defpred S1[ object ] means ex N being strict net of X st
( N = $1 & the carrier of N in the_universe_of the carrier of X );
thus for X1, X2 being set st ( for x being object holds
( x in X1 iff S1[x] ) ) & ( for x being object holds
( x in X2 iff S1[x] ) ) holds
X1 = X2 from XBOOLE_0:sch 3(); :: thesis: verum