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 Th8:
  for X being set holds product(Seg n --> X) = n-tuples_on X
  proof
    let X be set;
    n-tuples_on X = Funcs(Seg n,X) by FINSEQ_2:93;
    hence thesis by CARD_3:11;
  end;
