fact: Fixpoint posToPathAux (p : positive) : SplitPath := match p with | xH => [] | xI p' => posToPathAux p' ++ [Left; Right] | xO p' => posToPathAux p' ++ [Left; Left ] end.
imports: PArith List ChoiceFacts Lia mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool) Classes RandomQC Generators Sets