theorem Th39:
  p => (q => p) is valid_IPC
proof
  p => (q => p) in IPC-Taut
  proof
    IPC-Taut is IPC_theory;
    hence thesis;
  end;
  hence thesis;
end;
