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