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 'or' a))
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 'or' a))
(a 'imp' b) '&' (b 'imp' c) '<' b 'imp' (c 'or' a) by Th21;
then A1: ((a 'imp' b) '&' (b 'imp' c)) 'imp' (b 'imp' (c 'or' a)) = I_el Y by BVFUNC_1:19;
(a 'imp' b) '&' (b 'imp' c) '<' a 'imp' (b 'or' ('not' c)) by Th20;
then ((a 'imp' b) '&' (b 'imp' c)) 'imp' (a 'imp' (b 'or' ('not' c))) = I_el Y by BVFUNC_1:19;
then ((a 'imp' b) '&' (b 'imp' c)) 'imp' ((a 'imp' (b 'or' ('not' c))) '&' (b 'imp' (c 'or' a))) = I_el Y by A1, BVFUNC_6:18;
hence (a 'imp' b) '&' (b 'imp' c) '<' (a 'imp' (b 'or' ('not' c))) '&' (b 'imp' (c 'or' a)) by BVFUNC_1:19; :: thesis: verum