theorem Th41:
  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;
