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

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