theorem
  |-_IPC (p => q) => ((neg (q 'or' r)) => neg (p 'or' r)) by Th128;
