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