let Y be non empty set ; :: thesis: for a, b, c being Element of Funcs Y,BOOLEAN holds (a 'imp' b) '&' (b 'imp' c) '<' (a 'imp' (b 'or' ('not' c))) '&' (b 'imp' c)
let a, b, c be Element of Funcs Y,BOOLEAN ; :: thesis: (a 'imp' b) '&' (b 'imp' c) '<' (a 'imp' (b 'or' ('not' c))) '&' (b 'imp' c)
(a 'imp' b) '&' (b 'imp' c) '<' a 'imp' (b 'or' ('not' c)) by Th20;
then A1: ((a 'imp' b) '&' (b 'imp' c)) 'imp' (a 'imp' (b 'or' ('not' c))) = I_el Y by BVFUNC_1:19;
((a 'imp' b) '&' (b 'imp' c)) 'imp' (b 'imp' c) = I_el Y by BVFUNC_6:39;
then ((a 'imp' b) '&' (b 'imp' c)) 'imp' ((a 'imp' (b 'or' ('not' c))) '&' (b 'imp' c)) = I_el Y by A1, BVFUNC_6:18;
hence (a 'imp' b) '&' (b 'imp' c) '<' (a 'imp' (b 'or' ('not' c))) '&' (b 'imp' c) by BVFUNC_1:19; :: thesis: verum