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