fact: Definition handle' A (m : M A) (h : Z -> M A) : M A := match m with inl z => h z | inr x => inr x end.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer