theorem Th7:
  a in -A iff -a in A
proof
  - -a = a & - -A = A;
  hence thesis;
end;
