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;
