reserve x, y, z, r, s, t for Real;

theorem
  |.x.| = -x & x <> 0 implies x < 0 by Def1;
