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

theorem
  0 <= -r + |.r.|
proof
  -r >= -|.r.| by XREAL_1:24,COMPLEX1:76;
  then -r+|.r.| >= -|.r.|+|.r.| by XREAL_1:7;
  hence thesis;
end;
