consider M being set such that
A1:
( X in M & ( for X, Y being set st X in M & Y c= X holds
Y in M ) )
and
for X being set st X in M holds
ex Z being set st
( Z in M & ( for Y being set st Y c= X holds
Y in Z ) )
and
for X being set holds
( not X c= M or X,M are_equipotent or X in M )
by TARSKI_A:1;
consider IT being set such that
A2:
for Y being set holds
( Y in IT iff ( Y in M & S1[Y] ) )
from XFAMILY:sch 1();
take
IT
; for Z being set holds
( Z in IT iff Z c= X )
thus
for Z being set holds
( Z in IT iff Z c= X )
by A2, A1; verum