reserve a, b, c, d, e for Complex;

theorem :: REAL_1'21_1
  (- a) * b = -(a * b);
