fact: Definition empty : [the functor of Empty.acto \o M] ~~> M := fun A _ => @nil A.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer