fact: Definition seed_select {M : nondetStateMonad (Z * seq Z * seq Z)%type} := fun (p : pred (seq Z)) (f : seq Z -> M (Z * seq Z)%type) (a b : seq Z) => size a < size b.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monae_lib hierarchy monad_lib fail_lib state_lib