let L be non empty right_complementable associative well-unital distributive add-associative right_zeroed left_zeroed doubleLoopStr ; :: thesis: for A, B being non empty Subset of L st 0. L in A & B = A \ {(0. L)} holds
for f being LinearCombination of A
for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g

let A, B be non empty Subset of L; :: thesis: ( 0. L in A & B = A \ {(0. L)} implies for f being LinearCombination of A
for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g )

assume A1: ( 0. L in A & B = A \ {(0. L)} ) ; :: thesis: for f being LinearCombination of A
for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g

let f be LinearCombination of A; :: thesis: for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g

let u be set ; :: thesis: ( u = Sum f implies ex g being LinearCombination of B st u = Sum g )
assume A2: u = Sum f ; :: thesis: ex g being LinearCombination of B st u = Sum g
defpred S1[ Element of NAT ] means for f being LinearCombination of A st len f = $1 holds
for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g;
A3: S1[ 0 ]
proof
let f be LinearCombination of A; :: thesis: ( len f = 0 implies for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g )

assume A4: len f = 0 ; :: thesis: for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g

let u be set ; :: thesis: ( u = Sum f implies ex g being LinearCombination of B st u = Sum g )
assume A5: u = Sum f ; :: thesis: ex g being LinearCombination of B st u = Sum g
A6: f = <*> the carrier of L by A4;
set g = <*> the carrier of L;
reconsider g = <*> the carrier of L as FinSequence of the carrier of L ;
for i being set st i in dom g holds
ex u, v being Element of L ex a being Element of B st g /. i = (u * a) * v ;
then reconsider g = g as LinearCombination of B by IDEAL_1:def 9;
g = <*> the carrier of L ;
hence ex g being LinearCombination of B st u = Sum g by A5, A6; :: thesis: verum
end;
A7: now
let k be Element of NAT ; :: thesis: ( S1[k] implies S1[k + 1] )
assume A8: S1[k] ; :: thesis: S1[k + 1]
for f being LinearCombination of A st len f = k + 1 holds
for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g
proof
let f be LinearCombination of A; :: thesis: ( len f = k + 1 implies for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g )

assume A9: len f = k + 1 ; :: thesis: for u being set st u = Sum f holds
ex g being LinearCombination of B st u = Sum g

let u be set ; :: thesis: ( u = Sum f implies ex g being LinearCombination of B st u = Sum g )
assume A10: u = Sum f ; :: thesis: ex g being LinearCombination of B st u = Sum g
set g = f | (Seg k);
reconsider g = f | (Seg k) as FinSequence by FINSEQ_1:19;
A11: rng f c= the carrier of L by FINSEQ_1:def 4;
A12: k <= k + 1 by NAT_1:12;
then A13: len g = k by A9, FINSEQ_1:21;
A14: dom g = Seg k by A9, A12, FINSEQ_1:21;
A15: dom f = Seg (k + 1) by A9, FINSEQ_1:def 3;
then A16: dom g c= dom f by A12, A14, FINSEQ_1:7;
now
let u be set ; :: thesis: ( u in rng g implies u in the carrier of L )
assume u in rng g ; :: thesis: u in the carrier of L
then consider x being set such that
A17: ( x in dom g & u = g . x ) by FUNCT_1:def 5;
g . x = f . x by A17, FUNCT_1:70;
then u in rng f by A16, A17, FUNCT_1:def 5;
hence u in the carrier of L by A11; :: thesis: verum
end;
then rng g c= the carrier of L by TARSKI:def 3;
then reconsider g = g as FinSequence of the carrier of L by FINSEQ_1:def 4;
for i being set st i in dom g holds
ex u, v being Element of L ex a being Element of A st g /. i = (u * a) * v
proof
let i be set ; :: thesis: ( i in dom g implies ex u, v being Element of L ex a being Element of A st g /. i = (u * a) * v )
assume A18: i in dom g ; :: thesis: ex u, v being Element of L ex a being Element of A st g /. i = (u * a) * v
then reconsider i = i as Element of NAT ;
( 1 <= i & i <= k ) by A14, A18, FINSEQ_1:3;
then ( 1 <= i & i <= k + 1 ) by NAT_1:12;
then A19: i in dom f by A15, FINSEQ_1:3;
then consider u, v being Element of L, a being Element of A such that
A20: f /. i = (u * a) * v by IDEAL_1:def 9;
g /. i = g . i by A18, PARTFUN1:def 8
.= f . i by A18, FUNCT_1:70
.= f /. i by A19, PARTFUN1:def 8 ;
hence ex u, v being Element of L ex a being Element of A st g /. i = (u * a) * v by A20; :: thesis: verum
end;
then reconsider g = g as LinearCombination of A by IDEAL_1:def 9;
consider g' being LinearCombination of B such that
A21: Sum g = Sum g' by A8, A13;
set h = f /. (len f);
1 <= len f by A9, NAT_1:12;
then len f in Seg (len f) by FINSEQ_1:3;
then A22: len f in dom f by FINSEQ_1:def 3;
then A23: f /. (len f) = f . (len f) by PARTFUN1:def 8;
A24: len f = (len g) + 1 by A9, A12, FINSEQ_1:21;
then A25: Sum f = (Sum g) + (f /. (len f)) by A14, A23, RLVECT_1:55;
now
per cases ( f /. (len f) = 0. L or f /. (len f) <> 0. L ) ;
case A26: f /. (len f) <> 0. L ; :: thesis: ex g being LinearCombination of B st u = Sum g
set l = g' ^ <*(f /. (len f))*>;
for i being set st i in dom (g' ^ <*(f /. (len f))*>) holds
ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v
proof
let i be set ; :: thesis: ( i in dom (g' ^ <*(f /. (len f))*>) implies ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v )
assume A27: i in dom (g' ^ <*(f /. (len f))*>) ; :: thesis: ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v
then reconsider i = i as Element of NAT ;
A28: len (g' ^ <*(f /. (len f))*>) = (len g') + (len <*(f /. (len f))*>) by FINSEQ_1:35
.= (len g') + 1 by FINSEQ_1:56 ;
now
per cases ( i = len (g' ^ <*(f /. (len f))*>) or i <> len (g' ^ <*(f /. (len f))*>) ) ;
case A29: i = len (g' ^ <*(f /. (len f))*>) ; :: thesis: ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v
A30: (g' ^ <*(f /. (len f))*>) /. i = (g' ^ <*(f /. (len f))*>) . i by A27, PARTFUN1:def 8
.= f /. (len f) by A28, A29, FINSEQ_1:59 ;
consider u, v being Element of L, a being Element of A such that
A31: f /. (len f) = (u * a) * v by A22, IDEAL_1:def 9;
now
assume not a in B ; :: thesis: contradiction
then a in {(0. L)} by A1, XBOOLE_0:def 5;
then a = 0. L by TARSKI:def 1;
then (u * a) * v = (0. L) * v by VECTSP_1:36
.= 0. L by VECTSP_1:39 ;
hence contradiction by A26, A31; :: thesis: verum
end;
hence ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v by A30, A31; :: thesis: verum
end;
case A32: i <> len (g' ^ <*(f /. (len f))*>) ; :: thesis: ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v
i in Seg (len (g' ^ <*(f /. (len f))*>)) by A27, FINSEQ_1:def 3;
then ( 1 <= i & i <= len (g' ^ <*(f /. (len f))*>) ) by FINSEQ_1:3;
then ( 1 <= i & i < len (g' ^ <*(f /. (len f))*>) ) by A32, XXREAL_0:1;
then ( 1 <= i & i <= len g' ) by A28, NAT_1:13;
then i in Seg (len g') by FINSEQ_1:3;
then A33: i in dom g' by FINSEQ_1:def 3;
(g' ^ <*(f /. (len f))*>) /. i = (g' ^ <*(f /. (len f))*>) . i by A27, PARTFUN1:def 8
.= g' . i by A33, FINSEQ_1:def 7
.= g' /. i by A33, PARTFUN1:def 8 ;
hence ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v by A33, IDEAL_1:def 9; :: thesis: verum
end;
end;
end;
hence ex u, v being Element of L ex a being Element of B st (g' ^ <*(f /. (len f))*>) /. i = (u * a) * v ; :: thesis: verum
end;
then reconsider l = g' ^ <*(f /. (len f))*> as LinearCombination of B by IDEAL_1:def 9;
Sum l = (Sum g') + (Sum <*(f /. (len f))*>) by RLVECT_1:58
.= Sum f by A21, A14, A23, A24, RLVECT_1:55, RLVECT_1:61 ;
hence ex g being LinearCombination of B st u = Sum g by A10; :: thesis: verum
end;
end;
end;
hence ex g being LinearCombination of B st u = Sum g by A10, A21; :: thesis: verum
end;
hence S1[k + 1] ; :: thesis: verum
end;
A34: for k being Element of NAT holds S1[k] from NAT_1:sch 1(A3, A7);
consider n being Element of NAT such that
A35: len f = n ;
thus ex g being LinearCombination of B st u = Sum g by A2, A34, A35; :: thesis: verum