let V be RealUnitarySpace; :: thesis: for W being Subspace of V
for v being VECTOR of V
for a being Real st v in W holds
a * v in v + W
let W be Subspace of V; :: thesis: for v being VECTOR of V
for a being Real st v in W holds
a * v in v + W
let v be VECTOR of V; :: thesis: for a being Real st v in W holds
a * v in v + W
let a be Real; :: thesis: ( v in W implies a * v in v + W )
assume A1: v in W ; :: thesis: a * v in v + W
A2: a * v = ((a - 1) + 1) * v
.= ((a - 1) * v) + (1 * v) by RLVECT_1:def 9
.= v + ((a - 1) * v) by RLVECT_1:def 9 ;
(a - 1) * v in W by A1, Th15;
hence a * v in v + W by A2; :: thesis: verum