Module VectorNotations2.
Notation "[||]" := (nil _) : vector_scope.
Notation "h ':::' t" := (cons _ h _ t) (at level 60, right associativity) : vector_scope.
Notation " [| x |] " := (x ::: [||]) : vector_scope.
Notation " [| x ; y ; .. ; z |] " := (cons _ x _ (cons _ y _ .. (cons _ z _ (nil _)) ..)) : vector_scope.
Notation "v [@ p ]" := (nth v p) (at level 1, format "v [@ p ]") : vector_scope.
End VectorNotations2.
Ltac existT_eq :=
match goal with
| [ H: existT ?X1 ?Y1 ?Z1 = existT ?X2 ?Y2 ?Z2 |- _] =>
apply EqdepFacts.eq_sigT_iff_eq_dep in H; inv H
end.
Ltac existT_eq' :=
match goal with
| [ H: existT ?X1 ?Y1 ?Z1 = existT ?X2 ?Y2 ?Z2 |- _] =>
apply EqdepFacts.eq_sigT_iff_eq_dep in H; induction H
end.

Lemma vect_map_injective X Y n (f : X -> Y) (v1 v2 : Vector.t X n) :
(forall x y, f x = f y -> x = y) ->
map f v1 = map f v2 -> v1 = v2.