let X1, X2 be set ; :: thesis: ( ( for x being object holds
( x in X1 iff ex g being Function st
( x = g & dom g = dom f & ( for y being object st y in dom f holds
g . y in f . y ) ) ) ) & ( for x being object holds
( x in X2 iff ex g being Function st
( x = g & dom g = dom f & ( for y being object st y in dom f holds
g . y in f . y ) ) ) ) implies X1 = X2 )

assume that
A21: for x being object holds
( x in X1 iff S1[x] ) and
A22: for x being object holds
( x in X2 iff S1[x] ) ; :: thesis: X1 = X2
thus X1 = X2 from XBOOLE_0:sch 2(A21, A22); :: thesis: verum