proposition: Lemma vector_cons_eq : forall (A : Set)(n : nat)(v1 v2 : Vector.t A n)(a1 a2 : A), Vector.cons A a1 n v1 = Vector.cons A a2 n v2 -> v1 = v2.
proof: Proof. intuition. apply vector_tl_eq in H. simpl in *. trivial. Qed.
imports: FCF.StdNat List Bvector micromega.Lia FCF.EqDec FCF.Fold ZArith