fact: Fixpoint bvToNat(k : nat)(v : Bvector k) := match v in Vector.t _ k with | Vector.nil _ => 0 | Vector.cons _ b _ v => Nat.b2n b + Nat.double (bvToNat v) end.
imports: FCF.StdNat List Bvector micromega.Lia FCF.EqDec FCF.Fold ZArith Permutation