defpred S1[ set ] means $1 is Function;
ex Y being set st
for x being set holds
( x in Y iff ( x in X & S1[x] ) ) from XBOOLE_0:sch 1();
hence ex b1 being set st
for x being set holds
( x in b1 iff ( x in X & x is Function ) ) ; :: thesis: verum