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