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