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

theorem :: REAL_1'23  :: right to left - requirements REAL
  a*b=0 implies a=0 or b=0;
