fact: Fixpoint natToBv(k : nat)(v : nat) : Bvector k := match k with | 0 => Vector.nil _ | S k => Vector.cons _ (Nat.odd v) _ (natToBv k (Nat.div2 v)) end.
imports: FCF.StdNat List Bvector micromega.Lia FCF.EqDec FCF.Fold ZArith Permutation