Definition IndexSeq_uncons l b:
    IndexSeq b l -> l <> nil -> exists l', exists p: Index, nb_val p = b /\ Permutation.Permutation (p :: l') l.

Lemma nats_Permutation_IndexSeq' b n (l: Vector.t Index n): vec.Permutation (vec.map nb_val l) (vec.nb_nats b n) -> IndexSeq b l.