theorem Th110:
  |-_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 Th108;
  |-_IPC (((p => FALSUM) => FALSUM) => ((q => FALSUM) => FALSUM)) =>
    (((p => q) => FALSUM)=> FALSUM) by Th109;
  hence thesis by A1,Th84;
end;
