reserve A for non empty closed_interval Subset of REAL;

theorem L724x:
  for a,x be Real holds a - |. x .| <= a
proof
  let a,x be Real;
  |. x .| >= 0 by COMPLEX1:46; then
  -|. x .| +a<= 0+a by XREAL_1:6;
  hence thesis;
end;
