theorem Th39:
  p => q is valid implies p |- q
proof
  assume p => q is valid;
  then {p} |- p => q by CQC_THE1:59;
  then {p} |- q by CQC_THE1:55,CQC_THE2:87;
  hence thesis;
end;
