reserve n   for Nat,
        r,s for Real,
        x,y for Element of REAL n,
        p,q for Point of TOP-REAL n,
        e   for Point of Euclid n;

theorem Th2:
  for i being Nat st i in Seg n holds abs x.i in REAL
  proof
    let i be Nat;
    assume
A1: i in Seg n;
    reconsider f = x as complex-valued Function;
    dom |.f.| = dom f & dom f = Seg n by FINSEQ_2:124,VALUED_1:def 11;
    then rng |.f.| c= REAL & i in dom |.f.| by A1;
    hence thesis by FUNCT_1:3;
  end;
