let V be RealLinearSpace; :: thesis: for u, v, w being Element of V st ( for a, b, c being Real st ((a * u) + (b * v)) + (c * w) = 0. V holds
( a = 0 & b = 0 & c = 0 ) ) holds
( not u is zero & not v is zero & not w is zero & not u,v,w are_LinDep & not are_Prop u,v )
let u, v, w be Element of V; :: thesis: ( ( for a, b, c being Real st ((a * u) + (b * v)) + (c * w) = 0. V holds
( a = 0 & b = 0 & c = 0 ) ) implies ( not u is zero & not v is zero & not w is zero & not u,v,w are_LinDep & not are_Prop u,v ) )
assume A1:
for a, b, c being Real st ((a * u) + (b * v)) + (c * w) = 0. V holds
( a = 0 & b = 0 & c = 0 )
; :: thesis: ( not u is zero & not v is zero & not w is zero & not u,v,w are_LinDep & not are_Prop u,v )
thus
( not u is zero & not v is zero & not w is zero )
:: thesis: ( not u,v,w are_LinDep & not are_Prop u,v )
thus
not u,v,w are_LinDep
by A1, ANPROJ_1:def 3; :: thesis: not are_Prop u,v
hence
not are_Prop u,v
by ANPROJ_1:17; :: thesis: verum