theorem
  for A being Subset of R^1, a being Real st A = {a} holds A` =
  ]. -infty, a .[ \/ ]. a,+infty .[ by TOPMETR:17,XXREAL_1:389;
