theorem Th72:
  for r being Real holds [.r,+infty.] is Event of Ext_Borel_Sets
proof
  let r be Real;
  Intersection ext_half_open_sets(r) is Element of Ext_Borel_Sets by Th50;
  hence thesis by Th60;
end;
