theorem Th40:
  seq is non-zero implies (-seq)"=(-1r)(#)seq"
proof
  (-1)" = -1;
  hence thesis by Th39;
end;
