theorem Th6:
  c in Atom(A).a implies c = a
proof
  Atom(A).a = { a } by Def4;
  hence thesis by TARSKI:def 1;
end;
