theorem
  - (- L) = L
proof
  let v;
  thus (- (- L)).v = ((- 1r) * (- 1r) * L).v by Th29
    .= 1r * L.v by Def9
    .= L.v;
end;
