let V be RealLinearSpace; :: thesis: for v being VECTOR of V
for X being Subspace of V
for y being VECTOR of (X + (Lin {v}))
for W being Subspace of X + (Lin {v}) st v = y & X = W & not v in X holds
for w being VECTOR of (X + (Lin {v}))
for x being VECTOR of X
for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
let v be VECTOR of V; :: thesis: for X being Subspace of V
for y being VECTOR of (X + (Lin {v}))
for W being Subspace of X + (Lin {v}) st v = y & X = W & not v in X holds
for w being VECTOR of (X + (Lin {v}))
for x being VECTOR of X
for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
let X be Subspace of V; :: thesis: for y being VECTOR of (X + (Lin {v}))
for W being Subspace of X + (Lin {v}) st v = y & X = W & not v in X holds
for w being VECTOR of (X + (Lin {v}))
for x being VECTOR of X
for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
let y be VECTOR of (X + (Lin {v})); :: thesis: for W being Subspace of X + (Lin {v}) st v = y & X = W & not v in X holds
for w being VECTOR of (X + (Lin {v}))
for x being VECTOR of X
for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
let W be Subspace of X + (Lin {v}); :: thesis: ( v = y & X = W & not v in X implies for w being VECTOR of (X + (Lin {v}))
for x being VECTOR of X
for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)] )
assume A1: ( v = y & X = W & not v in X ) ; :: thesis: for w being VECTOR of (X + (Lin {v}))
for x being VECTOR of X
for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
then A2: X + (Lin {v}) is_the_direct_sum_of W, Lin {y} by Th24;
let w be VECTOR of (X + (Lin {v})); :: thesis: for x being VECTOR of X
for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
let x be VECTOR of X; :: thesis: for t, r being Real st w |-- W,(Lin {y}) = [x,(r * v)] holds
(t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
let t, r be Real; :: thesis: ( w |-- W,(Lin {y}) = [x,(r * v)] implies (t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)] )
assume A3: w |-- W,(Lin {y}) = [x,(r * v)] ; :: thesis: (t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)]
reconsider z = x as VECTOR of (X + (Lin {v})) by A1, RLSUB_1:18;
reconsider u = x as VECTOR of V by RLSUB_1:18;
A4: t * z = t * u by RLSUB_1:22
.= t * x by RLSUB_1:22 ;
A5: (t * r) * y = (t * r) * v by A1, RLSUB_1:22;
A6: t * z in W by A1, A4, STRUCT_0:def 5;
A7: (t * r) * y in Lin {y} by RLVECT_4:11;
r * y = r * v by A1, RLSUB_1:22;
then t * w = t * (z + (r * y)) by A2, A3, Th16
.= (t * z) + (t * (r * y)) by RLVECT_1:def 9
.= (t * z) + ((t * r) * y) by RLVECT_1:def 9 ;
hence (t * w) |-- W,(Lin {y}) = [(t * x),((t * r) * v)] by A2, A4, A5, A6, A7, Th15; :: thesis: verum