defpred S1[ object ] means ex x being object st
( x in UN & GO x,$1 );
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 y being object holds
( y in b1 iff ex x being object st
( x in UN & GO x,y ) ) ) & ( for y being object holds
( y in b2 iff ex x being object st
( x in UN & GO x,y ) ) ) holds
b1 = b2 ; :: thesis: verum