theorem
  idseq i is Element of i-tuples_on NAT
proof
  idseq i is FinSequence of NAT & len idseq i = i by Th46,CARD_1:def 7;
  hence thesis by Th90;
end;
