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 Th29:
  for p being Element of TOP-REAL 2 holds p/.1=p`1 & p/.2=p`2
proof
  let p be Element of TOP-REAL 2;
  reconsider r1=p`1,r2=p`2 as Element of REAL by XREAL_0:def 1;
  reconsider g=<*r1,r2*> as FinSequence of REAL by FINSEQ_2:13;
A1: p/.2 = g/.2 by EUCLID:53
    .=p`2 by FINSEQ_4:17;
  p/.1 = g/.1 by EUCLID:53
    .=p`1 by FINSEQ_4:17;
  hence thesis by A1;
end;
