theorem Th22:
  v in W implies - v in W
proof
  assume v in W;
  then v * (- 1_R) in W by Th21;
  hence thesis by VECTSP_2:32;
end;
