fact: Definition bitseq_of_nat (i : nat) n := pad_seqL false (rev (bitseq_of_N (bin_of_nat i))) n.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype tuple) BinPos BinNat PArith ssr_ext