
theorem Th7:
  for a being Real holds <*a*> is Point of Euclid 1
  proof
    let a be Real;
    reconsider ra = <*a*> as FinSequence of REAL;
    dom ra = Seg 1 by FINSEQ_1:def 8;
    then len ra = 1 by FINSEQ_1:def 3;
    hence thesis by TOPREAL3:45;
  end;
