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