theorem Th25:
  p => q <> VERUM
proof
  p => q = <*1*>^(p^q) by FINSEQ_1:32;
  then (p => q).1 = 1 by FINSEQ_1:41;
  hence thesis;
end;
