let GF be non empty non degenerated right_complementable almost_left_invertible well-unital distributive Abelian add-associative right_zeroed associative commutative doubleLoopStr ; :: thesis: for V being non empty right_complementable vector-distributive scalar-distributive scalar-associative scalar-unital Abelian add-associative right_zeroed ModuleStr over GF
for A being Subset of V st Lin A = V holds
ex B being Subset of V st
( B c= A & B is linearly-independent & Lin B = V )

let V be non empty right_complementable vector-distributive scalar-distributive scalar-associative scalar-unital Abelian add-associative right_zeroed ModuleStr over GF; :: thesis: for A being Subset of V st Lin A = V holds
ex B being Subset of V st
( B c= A & B is linearly-independent & Lin B = V )

let A be Subset of V; :: thesis: ( Lin A = V implies ex B being Subset of V st
( B c= A & B is linearly-independent & Lin B = V ) )

assume A1: Lin A = V ; :: thesis: ex B being Subset of V st
( B c= A & B is linearly-independent & Lin B = V )

defpred S1[ set ] means ex B being Subset of V st
( B = $1 & B c= A & B is linearly-independent );
consider Q being set such that
A2: for Z being set holds
( Z in Q iff ( Z in bool the carrier of V & S1[Z] ) ) from XFAMILY:sch 1();
A3: now :: thesis: for Z being set st Z <> {} & Z c= Q & Z is c=-linear holds
union Z in Q
let Z be set ; :: thesis: ( Z <> {} & Z c= Q & Z is c=-linear implies union Z in Q )
assume that
Z <> {} and
A4: Z c= Q and
A5: Z is c=-linear ; :: thesis: union Z in Q
set W = union Z;
union Z c= the carrier of V
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in union Z or x in the carrier of V )
assume x in union Z ; :: thesis: x in the carrier of V
then consider X being set such that
A6: x in X and
A7: X in Z by TARSKI:def 4;
X in bool the carrier of V by A2, A4, A7;
hence x in the carrier of V by A6; :: thesis: verum
end;
then reconsider W = union Z as Subset of V ;
A8: W is linearly-independent
proof
deffunc H1( object ) -> set = { C where C is Subset of V : ( $1 in C & C in Z ) } ;
let l be Linear_Combination of W; :: according to VECTSP_7:def 1 :: thesis: ( Sum l = 0. V implies Carrier l = {} )
assume that
A9: Sum l = 0. V and
A10: Carrier l <> {} ; :: thesis: contradiction
consider f being Function such that
A11: dom f = Carrier l and
A12: for x being object st x in Carrier l holds
f . x = H1(x) from FUNCT_1:sch 3();
reconsider M = rng f as non empty set by A10, A11, RELAT_1:42;
set F = the Choice_Function of M;
set S = rng the Choice_Function of M;
A13: now :: thesis: not {} in M
assume {} in M ; :: thesis: contradiction
then consider x being object such that
A14: x in dom f and
A15: f . x = {} by FUNCT_1:def 3;
Carrier l c= W by VECTSP_6:def 4;
then consider X being set such that
A16: x in X and
A17: X in Z by A11, A14, TARSKI:def 4;
reconsider X = X as Subset of V by A2, A4, A17;
X in { C where C is Subset of V : ( x in C & C in Z ) } by A16, A17;
hence contradiction by A11, A12, A14, A15; :: thesis: verum
end;
then A18: dom the Choice_Function of M = M by RLVECT_3:28;
then dom the Choice_Function of M is finite by A11, FINSET_1:8;
then A19: rng the Choice_Function of M is finite by FINSET_1:8;
A20: now :: thesis: for X being set st X in rng the Choice_Function of M holds
X in Z
let X be set ; :: thesis: ( X in rng the Choice_Function of M implies X in Z )
assume X in rng the Choice_Function of M ; :: thesis: X in Z
then consider x being object such that
A21: x in dom the Choice_Function of M and
A22: the Choice_Function of M . x = X by FUNCT_1:def 3;
consider y being object such that
A23: ( y in dom f & f . y = x ) by A18, A21, FUNCT_1:def 3;
A24: x = { C where C is Subset of V : ( y in C & C in Z ) } by A11, A12, A23;
reconsider x = x as set by TARSKI:1;
X in x by A13, A18, A21, A22, ORDERS_1:89;
then ex C being Subset of V st
( C = X & y in C & C in Z ) by A24;
hence X in Z ; :: thesis: verum
end;
A25: now :: thesis: for X, Y being set st X in rng the Choice_Function of M & Y in rng the Choice_Function of M & not X c= Y holds
Y c= X
let X, Y be set ; :: thesis: ( X in rng the Choice_Function of M & Y in rng the Choice_Function of M & not X c= Y implies Y c= X )
assume ( X in rng the Choice_Function of M & Y in rng the Choice_Function of M ) ; :: thesis: ( X c= Y or Y c= X )
then ( X in Z & Y in Z ) by A20;
then X,Y are_c=-comparable by A5, ORDINAL1:def 8;
hence ( X c= Y or Y c= X ) ; :: thesis: verum
end;
rng the Choice_Function of M <> {} by A18, RELAT_1:42;
then union (rng the Choice_Function of M) in rng the Choice_Function of M by A25, A19, CARD_2:62;
then union (rng the Choice_Function of M) in Z by A20;
then consider B being Subset of V such that
A26: B = union (rng the Choice_Function of M) and
B c= A and
A27: B is linearly-independent by A2, A4;
Carrier l c= union (rng the Choice_Function of M)
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in Carrier l or x in union (rng the Choice_Function of M) )
set X = f . x;
assume A28: x in Carrier l ; :: thesis: x in union (rng the Choice_Function of M)
then A29: f . x = { C where C is Subset of V : ( x in C & C in Z ) } by A12;
A30: f . x in M by A11, A28, FUNCT_1:def 3;
then the Choice_Function of M . (f . x) in f . x by A13, ORDERS_1:89;
then A31: ex C being Subset of V st
( the Choice_Function of M . (f . x) = C & x in C & C in Z ) by A29;
the Choice_Function of M . (f . x) in rng the Choice_Function of M by A18, A30, FUNCT_1:def 3;
hence x in union (rng the Choice_Function of M) by A31, TARSKI:def 4; :: thesis: verum
end;
then l is Linear_Combination of B by A26, VECTSP_6:def 4;
hence contradiction by A9, A10, A27; :: thesis: verum
end;
W c= A
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in W or x in A )
assume x in W ; :: thesis: x in A
then consider X being set such that
A32: x in X and
A33: X in Z by TARSKI:def 4;
ex B being Subset of V st
( B = X & B c= A & B is linearly-independent ) by A2, A4, A33;
hence x in A by A32; :: thesis: verum
end;
hence union Z in Q by A2, A8; :: thesis: verum
end;
{} the carrier of V c= A ;
then Q <> {} by A2;
then consider X being set such that
A34: X in Q and
A35: for Z being set st Z in Q & Z <> X holds
not X c= Z by A3, ORDERS_1:67;
consider B being Subset of V such that
A36: B = X and
A37: B c= A and
A38: B is linearly-independent by A2, A34;
take B ; :: thesis: ( B c= A & B is linearly-independent & Lin B = V )
thus ( B c= A & B is linearly-independent ) by A37, A38; :: thesis: Lin B = V
assume A39: Lin B <> V ; :: thesis: contradiction
now :: thesis: ex v being Vector of V st
( v in A & not v in Lin B )
assume A40: for v being Vector of V st v in A holds
v in Lin B ; :: thesis: contradiction
now :: thesis: for v being Vector of V st v in Lin A holds
v in Lin B
reconsider F = the carrier of (Lin B) as Subset of V by VECTSP_4:def 2;
let v be Vector of V; :: thesis: ( v in Lin A implies v in Lin B )
assume v in Lin A ; :: thesis: v in Lin B
then consider l being Linear_Combination of A such that
A41: v = Sum l by Th7;
Carrier l c= the carrier of (Lin B)
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in Carrier l or x in the carrier of (Lin B) )
assume A42: x in Carrier l ; :: thesis: x in the carrier of (Lin B)
then reconsider a = x as Vector of V ;
Carrier l c= A by VECTSP_6:def 4;
then a in Lin B by A40, A42;
hence x in the carrier of (Lin B) by STRUCT_0:def 5; :: thesis: verum
end;
then reconsider l = l as Linear_Combination of F by VECTSP_6:def 4;
Sum l = v by A41;
then v in Lin F by Th7;
hence v in Lin B by Th11; :: thesis: verum
end;
then Lin A is Subspace of Lin B by VECTSP_4:28;
hence contradiction by A1, A39, VECTSP_4:25; :: thesis: verum
end;
then consider v being Vector of V such that
A43: v in A and
A44: not v in Lin B ;
A45: B \/ {v} is linearly-independent
proof
let l be Linear_Combination of B \/ {v}; :: according to VECTSP_7:def 1 :: thesis: ( Sum l = 0. V implies Carrier l = {} )
assume A46: Sum l = 0. V ; :: thesis: Carrier l = {}
now :: thesis: Carrier l = {}
per cases ( v in Carrier l or not v in Carrier l ) ;
suppose v in Carrier l ; :: thesis: Carrier l = {}
then l . v <> 0. GF by VECTSP_6:2;
then A47: - (l . v) <> 0. GF by VECTSP_2:3;
deffunc H1( Vector of V) -> Element of the carrier of GF = 0. GF;
deffunc H2( Vector of V) -> Element of the carrier of GF = l . $1;
consider f being Function of V,GF such that
A48: f . v = 0. GF and
A49: for u being Vector of V st u <> v holds
f . u = H2(u) from FUNCT_2:sch 6();
reconsider f = f as Element of Funcs ( the carrier of V, the carrier of GF) by FUNCT_2:8;
now :: thesis: for u being Vector of V st not u in (Carrier l) \ {v} holds
f . u = 0. GF
let u be Vector of V; :: thesis: ( not u in (Carrier l) \ {v} implies f . u = 0. GF )
assume not u in (Carrier l) \ {v} ; :: thesis: f . u = 0. GF
then ( not u in Carrier l or u in {v} ) by XBOOLE_0:def 5;
then ( ( l . u = 0. GF & u <> v ) or u = v ) by TARSKI:def 1;
hence f . u = 0. GF by A48, A49; :: thesis: verum
end;
then reconsider f = f as Linear_Combination of V by VECTSP_6:def 1;
Carrier f c= B
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in Carrier f or x in B )
A50: Carrier l c= B \/ {v} by VECTSP_6:def 4;
assume x in Carrier f ; :: thesis: x in B
then consider u being Vector of V such that
A51: u = x and
A52: f . u <> 0. GF ;
f . u = l . u by A48, A49, A52;
then u in Carrier l by A52;
then ( u in B or u in {v} ) by A50, XBOOLE_0:def 3;
hence x in B by A48, A51, A52, TARSKI:def 1; :: thesis: verum
end;
then reconsider f = f as Linear_Combination of B by VECTSP_6:def 4;
consider g being Function of V,GF such that
A53: g . v = - (l . v) and
A54: for u being Vector of V st u <> v holds
g . u = H1(u) from FUNCT_2:sch 6();
reconsider g = g as Element of Funcs ( the carrier of V, the carrier of GF) by FUNCT_2:8;
now :: thesis: for u being Vector of V st not u in {v} holds
g . u = 0. GF
let u be Vector of V; :: thesis: ( not u in {v} implies g . u = 0. GF )
assume not u in {v} ; :: thesis: g . u = 0. GF
then u <> v by TARSKI:def 1;
hence g . u = 0. GF by A54; :: thesis: verum
end;
then reconsider g = g as Linear_Combination of V by VECTSP_6:def 1;
Carrier g c= {v}
proof
let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in Carrier g or x in {v} )
assume x in Carrier g ; :: thesis: x in {v}
then ex u being Vector of V st
( x = u & g . u <> 0. GF ) ;
then x = v by A54;
hence x in {v} by TARSKI:def 1; :: thesis: verum
end;
then reconsider g = g as Linear_Combination of {v} by VECTSP_6:def 4;
A55: Sum g = (- (l . v)) * v by A53, VECTSP_6:17;
f - g = l
proof
let u be Vector of V; :: according to VECTSP_6:def 7 :: thesis: (f - g) . u = l . u
now :: thesis: (f - g) . u = l . u
per cases ( v = u or v <> u ) ;
suppose A56: v = u ; :: thesis: (f - g) . u = l . u
thus (f - g) . u = (f . u) - (g . u) by VECTSP_6:40
.= (0. GF) + (- (- (l . v))) by A48, A53, A56, RLVECT_1:def 11
.= (l . v) + (0. GF) by RLVECT_1:17
.= l . u by A56, RLVECT_1:4 ; :: thesis: verum
end;
suppose A57: v <> u ; :: thesis: (f - g) . u = l . u
thus (f - g) . u = (f . u) - (g . u) by VECTSP_6:40
.= (l . u) - (g . u) by A49, A57
.= (l . u) - (0. GF) by A54, A57
.= l . u by RLVECT_1:13 ; :: thesis: verum
end;
end;
end;
hence (f - g) . u = l . u ; :: thesis: verum
end;
then 0. V = (Sum f) - (Sum g) by A46, VECTSP_6:47;
then Sum f = (0. V) + (Sum g) by VECTSP_2:2
.= (- (l . v)) * v by A55, RLVECT_1:4 ;
then A58: (- (l . v)) * v in Lin B by Th7;
((- (l . v)) ") * ((- (l . v)) * v) = (((- (l . v)) ") * (- (l . v))) * v by VECTSP_1:def 16
.= (1_ GF) * v by A47, VECTSP_1:def 10
.= v ;
hence Carrier l = {} by A44, A58, VECTSP_4:21; :: thesis: verum
end;
end;
end;
hence Carrier l = {} ; :: thesis: verum
end;
{v} c= A by A43, ZFMISC_1:31;
then B \/ {v} c= A by A37, XBOOLE_1:8;
then A61: B \/ {v} in Q by A2, A45;
v in {v} by TARSKI:def 1;
then A62: v in B \/ {v} by XBOOLE_0:def 3;
not v in B by A44, Th8;
hence contradiction by A35, A36, A62, A61, XBOOLE_1:7; :: thesis: verum