fact: Fixpoint qperm_partl p (ys zs xs : seq E) : M (seq E * seq E)%type := if xs is x :: xs then dispatch x p (ys, zs) (fun ys' zs' => qperm_partl p ys' zs' xs) else Ret (ys, zs).
imports: mathcomp(all_ssreflect) monae_lib hierarchy monad_lib fail_lib state_lib array_lib example_quicksort infotheo(ssr_ext)