
theorem TCL001:
  for r be Real holds r < |. r .| + 1
  proof
    let r be Real;
    r + 0 < |. r .| +1 by XREAL_1:8,ABSVALUE:4;
    hence r < |. r .| +1;
  end;
