
theorem Th1:
  for k being Real holds {k} in Borel_Sets
proof
  let k be Real;
  [.k,k.] is Element of Borel_Sets by FINANCE1:8;
  then [.k,k.] in Borel_Sets;
  hence thesis by XXREAL_1:17;
end;
