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