theorem
  |-_IPC (p => q) => ((neg q) => neg p) by Th81;
