fact: Definition is_partition p (yz : seq T * seq T) := all (<= p) yz.1 && all (>= p) yz.2.
imports: mathcomp(all_ssreflect) monae_lib hierarchy monad_lib fail_lib state_lib infotheo(ssr_ext) Recdef Equations(Equations) mathcomp(ssrnat)