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

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