reserve x,x1,x2,y,z,z1 for set;
reserve s1,r,r1,r2 for Real;
reserve s,w1,w2 for Real;
reserve n,i for Element of NAT;
reserve X for non empty TopSpace;
reserve p,p1,p2,p3 for Point of TOP-REAL n;
reserve P for Subset of TOP-REAL n;

theorem Th20:
  for p being Element of TOP-REAL 1 ex r being Real st p=<*r*>
proof
  let p be Element of TOP-REAL 1;
  1-tuples_on REAL = REAL 1;
  then reconsider p9=p as Element of 1-tuples_on REAL by EUCLID:22;
  ex r be Element of REAL st p9=<*r*> by FINSEQ_2:97;
  hence thesis;
end;
