theorem :: REAL_2'1
  b - a = b implies a = 0;
