theorem Th6:
  z * (- v) = (- z) * v
proof
  thus z * (- v) = z * ((- 1r) * v) by Th3
    .= (z *(- 1r)) * v by Def4
    .= (- z) * v;
end;
