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