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