let V be ComplexLinearSpace; :: thesis: for v being VECTOR of V holds - v = (- 1r) * v
let v be VECTOR of V; :: thesis: - v = (- 1r) * v
v + ((- 1r) * v) = (1r * v) + ((- 1r) * v) by Def5
.= (1r + (- 1r)) * v by Def3
.= 0. V by Th1 ;
hence - v = (- v) + (v + ((- 1r) * v)) by RLVECT_1:4
.= ((- v) + v) + ((- 1r) * v) by RLVECT_1:def 3
.= (0. V) + ((- 1r) * v) by RLVECT_1:5
.= (- 1r) * v by RLVECT_1:4 ;
:: thesis: verum