let X be non empty set ; :: thesis: for x being Element of X
for F being Part-Family of X
for A being set st A in { (EqClass (x,S)) where S is a_partition of X : S in F } holds
ex T being a_partition of X st
( T in F & A = EqClass (x,T) )

let x be Element of X; :: thesis: for F being Part-Family of X
for A being set st A in { (EqClass (x,S)) where S is a_partition of X : S in F } holds
ex T being a_partition of X st
( T in F & A = EqClass (x,T) )

let F be Part-Family of X; :: thesis: for A being set st A in { (EqClass (x,S)) where S is a_partition of X : S in F } holds
ex T being a_partition of X st
( T in F & A = EqClass (x,T) )

let A be set ; :: thesis: ( A in { (EqClass (x,S)) where S is a_partition of X : S in F } implies ex T being a_partition of X st
( T in F & A = EqClass (x,T) ) )

assume A in { (EqClass (x,S)) where S is a_partition of X : S in F } ; :: thesis: ex T being a_partition of X st
( T in F & A = EqClass (x,T) )

then consider S being a_partition of X such that
A1: ( A = EqClass (x,S) & S in F ) ;
take S ; :: thesis: ( S in F & A = EqClass (x,S) )
thus ( S in F & A = EqClass (x,S) ) by A1; :: thesis: verum