let V be RealUnitarySpace; :: thesis: for W being Subspace of V
for v being VECTOR of V holds
( v in W iff (- v) + W = the carrier of W )

let W be Subspace of V; :: thesis: for v being VECTOR of V holds
( v in W iff (- v) + W = the carrier of W )

let v be VECTOR of V; :: thesis: ( v in W iff (- v) + W = the carrier of W )
( ( v in W implies ((- 1) * v) + W = the carrier of W ) & ( ((- 1) * v) + W = the carrier of W implies v in W ) & (- 1) * v = - v ) by Th43, Th44, RLVECT_1:29;
hence ( v in W iff (- v) + W = the carrier of W ) ; :: thesis: verum