
theorem
  for p being Real holds {p} is non empty closed_interval Subset of REAL
proof
  let p be Real;
A1: {p} = [.p,p.] by XXREAL_1:17;
  thus thesis by A1,MEASURE5:14;
end;
