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