fact: Definition handle : [the functor of Handle.acto Z \o M] ~~> M := fun A => uncurry (@handle' A).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer