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

theorem
  |.x.| < +infty iff x in REAL by Th19,Th28,XXREAL_0:4,14;
