theorem Th113:
 |-_IPC (((p '&' q) => FALSUM)=> FALSUM) 'equiv'
        (((p => FALSUM) => FALSUM) '&' ((q => FALSUM) => FALSUM))
proof
A1: |-_IPC (((p '&' q) => FALSUM)=> FALSUM) =>
    (((p => FALSUM) => FALSUM) '&' ((q => FALSUM) => FALSUM)) by Th111;
  |-_IPC (((p => FALSUM) => FALSUM) '&' ((q => FALSUM) => FALSUM)) =>
    (((p '&' q) => FALSUM)=> FALSUM) by Th112;
  hence thesis by A1,Th84;
end;
