theorem Th40:
  - vector(LC_CLSpace V,L) = - L
proof
  thus - vector(LC_CLSpace V,L) = (- 1r) * (vector(LC_CLSpace V,L)) by
CLVECT_1:3
    .= - L by Th39;
end;
