defpred S₁[ object ] means $1 is Ordinal;
thus ex Y being set st
for x being object holds
( x in Y iff ( x in X & S₁[x] ) ) from XBOOLE_0:sch 1(); :: thesis: verum