let V be RealLinearSpace; for o, u, u2 being Element of V st o,u,u2 are_LinDep & not are_Prop o,u & not are_Prop o,u2 & not are_Prop u,u2 & o,u,u2 are_Prop_Vect holds
( ex a1, b1 being Real st
( b1 * u2 = o + (a1 * u) & a1 <> 0 & b1 <> 0 ) & ex a2, c2 being Real st
( u2 = (c2 * o) + (a2 * u) & c2 <> 0 & a2 <> 0 ) )
let o, u, u2 be Element of V; ( o,u,u2 are_LinDep & not are_Prop o,u & not are_Prop o,u2 & not are_Prop u,u2 & o,u,u2 are_Prop_Vect implies ( ex a1, b1 being Real st
( b1 * u2 = o + (a1 * u) & a1 <> 0 & b1 <> 0 ) & ex a2, c2 being Real st
( u2 = (c2 * o) + (a2 * u) & c2 <> 0 & a2 <> 0 ) ) )
assume that
A1:
o,u,u2 are_LinDep
and
A2:
not are_Prop o,u
and
A3:
not are_Prop o,u2
and
A4:
not are_Prop u,u2
and
A5:
o,u,u2 are_Prop_Vect
; ( ex a1, b1 being Real st
( b1 * u2 = o + (a1 * u) & a1 <> 0 & b1 <> 0 ) & ex a2, c2 being Real st
( u2 = (c2 * o) + (a2 * u) & c2 <> 0 & a2 <> 0 ) )
consider a, b, c being Real such that
A6:
((a * o) + (b * u)) + (c * u2) = 0. V
and
A7:
( a <> 0 or b <> 0 or c <> 0 )
by A1, ANPROJ_1:def 3;
not u is zero
by A5, Def1;
then A8:
u <> 0. V
by STRUCT_0:def 12;
not u2 is zero
by A5, Def1;
then A9:
u2 <> 0. V
by STRUCT_0:def 12;
not o is zero
by A5, Def1;
then A10:
o <> 0. V
by STRUCT_0:def 12;
A11:
( a <> 0 & b <> 0 & c <> 0 )
proof
assume
( not
a <> 0 or not
b <> 0 or not
c <> 0 )
;
contradiction
hence
contradiction
by A20, A12, A28;
verum
end;
then A36:
c " <> 0
by XCMPLX_1:203;
a " <> 0
by A11, XCMPLX_1:203;
then A37:
( (a " ) * b <> 0 & - ((a " ) * c) <> 0 )
by A11, XCMPLX_1:6;
(a " ) * (- (c * u2)) =
(a " ) * ((a * o) + (b * u))
by A6, RLVECT_1:19
.=
((a " ) * (a * o)) + ((a " ) * (b * u))
by RLVECT_1:def 9
.=
(((a " ) * a) * o) + ((a " ) * (b * u))
by RLVECT_1:def 9
.=
(((a " ) * a) * o) + (((a " ) * b) * u)
by RLVECT_1:def 9
.=
(1 * o) + (((a " ) * b) * u)
by A11, XCMPLX_0:def 7
.=
o + (((a " ) * b) * u)
by RLVECT_1:def 9
;
then o + (((a " ) * b) * u) =
(a " ) * (c * (- u2))
by RLVECT_1:39
.=
((a " ) * c) * (- u2)
by RLVECT_1:def 9
.=
(- ((a " ) * c)) * u2
by RLVECT_1:38
;
hence
ex a1, b1 being Real st
( b1 * u2 = o + (a1 * u) & a1 <> 0 & b1 <> 0 )
by A37; ex a2, c2 being Real st
( u2 = (c2 * o) + (a2 * u) & c2 <> 0 & a2 <> 0 )
- b <> 0
by A11;
then A38:
(c " ) * (- b) <> 0
by A36, XCMPLX_1:6;
c * u2 =
- ((a * o) + (b * u))
by A6, RLVECT_1:def 11
.=
(- (a * o)) + (- (b * u))
by RLVECT_1:45
.=
((- a) * o) + (- (b * u))
by Lm8
.=
((- a) * o) + ((- b) * u)
by Lm8
;
then (c " ) * (c * u2) =
((c " ) * ((- a) * o)) + ((c " ) * ((- b) * u))
by RLVECT_1:def 9
.=
(((c " ) * (- a)) * o) + ((c " ) * ((- b) * u))
by RLVECT_1:def 9
.=
(((c " ) * (- a)) * o) + (((c " ) * (- b)) * u)
by RLVECT_1:def 9
;
then A39: (((c " ) * (- a)) * o) + (((c " ) * (- b)) * u) =
((c " ) * c) * u2
by RLVECT_1:def 9
.=
1 * u2
by A11, XCMPLX_0:def 7
.=
u2
by RLVECT_1:def 9
;
- a <> 0
by A11;
then
(c " ) * (- a) <> 0
by A36, XCMPLX_1:6;
hence
ex a2, c2 being Real st
( u2 = (c2 * o) + (a2 * u) & c2 <> 0 & a2 <> 0 )
by A39, A38; verum