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

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