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

theorem :: REAL_1'22:  :: right to left - requirements REAL
  -a = 0 implies a = 0;
