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