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