theorem Th30:
  (-g) (/) c = -(g(/)c)
proof
  thus (-g) (/) c = (-(1/c)) (#) g by Th22
    .= -(g(/)c) by Th24;
end;
