reserve k,j,n for Nat,
  r for Real;
reserve x,x1,x2,y for Element of REAL n;
reserve f for real-valued FinSequence;
reserve p,p1,p2,p3 for Point of TOP-REAL n,
  x,x1,x2,y,y1,y2 for Real;
reserve p,p1,p2 for Point of TOP-REAL 2;

theorem Th25:
  p = |[p`1, p`2]|
proof
  the TopStruct of TOP-REAL 2 = TopSpaceMetr Euclid 2 by Def8;
  then p is Tuple of 2,REAL by FINSEQ_2:131;
  then consider x,y be Element of REAL such that
A1: p = <* x,y *> by FINSEQ_2:100;
  p`1 = x by A1,FINSEQ_1:44;
  hence thesis by A1,FINSEQ_1:44;
end;
