reserve x,y,w,z for ExtReal,
  a for Real;

theorem
  x = 0 iff |.x.| = 0 by Th4,Def1;
