fact: Definition dipartlT y z x := {n : nat * nat | (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)