theorem
  |-_IPC (p => (neg q)) => neg (p '&' q) by Th88;
