fact: Definition hyloM' (y : B) (g : forall y', seed p f y' y -> M C) : M C := if p y then Ret e else f y >>= (fun xz => match Bool.bool_dec (seed p f xz.2 y) true with | left H => op xz.1 (g xz.2 H) | right H => Ret e end).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib Equations(Equations)