fact: Definition throw : [the functor of Throw.acto Z \o M] ~~> M := fun (A : UU0) z => inl z.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer