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

theorem
  0 <= |.x.|
 proof
  reconsider x as R_eal by XXREAL_0:def 1;
  0 <= |.x.|;
 hence thesis;
 end;
