theorem
  (p => q) => (p => p) in IPC-Taut by Th17,Th18;
