Instance Vector_EqDec : 
    forall (n : nat),
      EqDec (Vector.t A n).(*
Fixpoint BvIsZero n (v : Bvector n) : bool  :=
  match v with
    | Vector.nil => true
    | Vector.cons b _ v' =>
      (andb (if (bool_dec b false) then true else false) (BvIsZero v'))
  end.
*)

Instance unit_EqDec : EqDec unit.Instance bool_EqDec : EqDec bool.(* Bvector decidable equality was added before Vector.t decidable equality.  Definitions remain for compatibility. *)
Definition eqbBvector n (v1 v2 : Bvector n) : bool :=
  (eqb_vector _ v1 v2).

(* Specifications: *)
Theorem eqbBvector_sound : forall n (v1 v2 : Bvector n), eqbBvector v1 v2 = true -> v1 = v2.
Theorem eqbBvector_complete : forall n (v : Bvector n), eqbBvector v v = true.