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