theorem Th28:
  |-_IPC p => (q => p) by Th18;
