let p be Element of LTLB_WFF ; :: thesis: p => TVERUM is ctaut
let g be Function of LTLB_WFF,BOOLEAN; :: according to LTLAXIO1:def 16 :: thesis: (VAL g) . (p => TVERUM) = 1
set v = VAL g;
A1: ( (VAL g) . p = 1 or (VAL g) . p = 0 ) by XBOOLEAN:def 3;
thus (VAL g) . (p => TVERUM) = ((VAL g) . p) => ((VAL g) . TVERUM) by LTLAXIO1:def 15
.= 1 by A1, Th4 ; :: thesis: verum