let p, q be Element of HP-WFF ; :: thesis: p => q <> VERUM
p => q = <*1*> ^ (p ^ q) by FINSEQ_1:32;
then (p => q) . 1 = 1 by FINSEQ_1:41;
hence p => q <> VERUM ; :: thesis: verum