theorem Th81:
  |-_IPC (p => q) => ((q => FALSUM) => (p => FALSUM)) by Th69,INTPRO_1:24;
