defpred S1[ object ] means ( $1 in Funcs ( the carrier of S,(bool (Union the Sorts of U0))) & $1 is MSSubset of U0 & ( for B being MSSubset of U0 st B = $1 holds
( B is opers_closed & Constants U0 c= B & A c= B ) ) );
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 set st ( for x being object holds
( x in b1 iff ( x in Funcs ( the carrier of S,(bool (Union the Sorts of U0))) & x is MSSubset of U0 & ( for B being MSSubset of U0 st B = x holds
( B is opers_closed & Constants U0 c= B & A c= B ) ) ) ) ) & ( for x being object holds
( x in b2 iff ( x in Funcs ( the carrier of S,(bool (Union the Sorts of U0))) & x is MSSubset of U0 & ( for B being MSSubset of U0 st B = x holds
( B is opers_closed & Constants U0 c= B & A c= B ) ) ) ) ) holds
b1 = b2 ; :: thesis: verum