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