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