theorem
  idseq n | Seg m = idseq n iff n <= m
proof
  len idseq n = n by CARD_1:def 7;
  hence thesis by Th47;
end;
