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

theorem :: REAL_2'49_1
  (- a) * (- b) = a * b;
