theorem Th3:
  ('not' p => p) => p in Cn(X)
proof
 T is being_a_theory & X c= T implies ('not' p => p) => p in T;
  hence thesis by Def2;
end;
