theorem
  (x-y)*a = x*a - y*a
proof
  thus (x-y)*a = x*a + (-y)*a by VECTSP_1:def 3
    .= x*a - y*a by Th7;
end;
