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