fact: Definition ask : [the functor of Ask.acto E \o M] ~~> M := fun A f s => f s s.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer