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;
