theorem :: REAL_2'10_1
  a + b = -(- a - b);
