reserve a,b for R_eal;
reserve A,B for Interval;

theorem
 for X being Subset of REAL holds X is non empty closed_interval
  iff ex a,b being Real st a <= b & X = [.a,b.]
 by XXREAL_1:29,XXREAL_1:30;
