proposition: Lemma partition_partl p xs : partition p xs = partl p ([::], [::]) xs.
proof: Proof. by rewrite partlE /=; case: partition. Qed.
imports: mathcomp(all_ssreflect) monae_lib hierarchy monad_lib fail_lib state_lib array_lib example_quicksort infotheo(ssr_ext)