reserve n for Element of NAT,
  i for Integer,
  a, b, r for Real,
  x for Point of TOP-REAL n;

theorem
  for x being set holds x in IntIntervals(a,b) iff ex n being Element of
  INT st x = ]. a+n, b+n .[;
