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

theorem :: REAL_2'71_2
  (- a) * (- 1) = a;
