fact: Definition bitseq_of_N (x : N) := match x with | N0 => false :: nil | Npos p => bitseq_of_pos p end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype tuple) BinPos BinNat PArith ssr_ext