fact: Definition dipartl p i y z x : M (dipartlT y z x) := ipartl p i y z x >>= dassert [pred n | (n.1 <= x + y + z) && (n.2 <= x + y + z)].
imports: mathcomp(all_ssreflect) monae_lib hierarchy monad_lib fail_lib state_lib array_lib example_quicksort infotheo(ssr_ext)