theorem Th4:
  p => (q => p) in CnPos (X)
proof
  T is Hilbert_theory & X c= T implies p => (q => p) in T;
  hence thesis by Def11;
end;
