theorem Th100:
  |-_IPC (p '&' (p => FALSUM)) => FALSUM by Th78;
