reserve x1, x2, x3, x4, x5, x6, x7 for set;

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;
