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