reserve a, b, c, d, e for Complex;

theorem :: REAL_1'10
  a + c = b + c implies a = b;
