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 vec_IndexSeq_nats_perm b n (v: Vector.t Index n): IndexSeq b v -> vec.Permutation (vec.map nb_val v) (vec.nb_nats b n).