theorem Th26:
  (-a) * b = -(a * b)
proof
  thus (-a) * b = -(a + b) + -(-b) by Th16
    .= -((-b) + (a + b)) by Th16
    .= -(a * b) by RLVECT_1:def 3;
end;
