defpred S1[ object ] means ( $1 in X & ex f being Function of S,BOOLEAN st
( f = $1 & f . s = TRUE ) );
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();
hence for b1, b2 being Subset of X st ( for x being object holds
( x in b1 iff ( x in X & ex f being Function of S,BOOLEAN st
( f = x & f . s = TRUE ) ) ) ) & ( for x being object holds
( x in b2 iff ( x in X & ex f being Function of S,BOOLEAN st
( f = x & f . s = TRUE ) ) ) ) holds
b1 = b2 ; :: thesis: verum