defpred S₁[ object ] means ex W being Subspace of V st
( dim W = n & $1 = m Subspaces_of W );
set A = bool (m Subspaces_of V);
consider X being set such that
A1: for x being object holds
( x in X iff ( x in bool (m Subspaces_of V) & S₁[x] ) ) from XBOOLE_0:sch 1();
X c= bool (m Subspaces_of V) by A1;
then reconsider X = X as Subset-Family of (m Subspaces_of V) ;
take X ; :: thesis: for X being set holds
( X in X iff ex W being Subspace of V st
( dim W = n & X = m Subspaces_of W ) )
let x be set ; :: thesis: ( x in X iff ex W being Subspace of V st
( dim W = n & x = m Subspaces_of W ) )
thus ( x in X implies ex W being Subspace of V st
( dim W = n & x = m Subspaces_of W ) ) by A1; :: thesis: ( ex W being Subspace of V st
( dim W = n & x = m Subspaces_of W ) implies x in X )
given W being Subspace of V such that A2: dim W = n and
A3: x = m Subspaces_of W ; :: thesis: x in X
x c= m Subspaces_of V by A3, VECTSP_9:38;
hence x in X by A1, A2, A3; :: thesis: verum