fact: Fixpoint bitseq_of_pos (p : positive) : bitseq := match p with | xI q => true :: bitseq_of_pos q | xO q => false :: bitseq_of_pos q | xH => true :: nil end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice) mathcomp(fintype tuple) BinPos BinNat PArith ssr_ext