reserve Y for non empty set,
  a,b,c,d for Function of Y,BOOLEAN;

theorem
  (a 'imp' b) 'or' (c 'imp' a) = I_el(Y)
proof
  (a 'imp' b) 'or' (c 'imp' a) =('not' a 'or' b) 'or' (c 'imp' a) by BVFUNC_4:8
    .=('not' a 'or' b) 'or' ('not' c 'or' a) by BVFUNC_4:8
    .='not' c 'or' (a 'or' ('not' a 'or' b)) by BVFUNC_1:8
    .='not' c 'or' ((a 'or' 'not' a) 'or' b) by BVFUNC_1:8
    .='not' c 'or' (I_el(Y) 'or' b) by BVFUNC_4:6
    .='not' c 'or' I_el(Y) by BVFUNC_1:10;
  hence thesis by BVFUNC_1:10;
end;
