theorem Th25: :: RLVECT_1:25

for a being Real
for V being non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital RLSStruct
for v being Element of V holds a * (- v) = - (a * v)