fact: Definition flush : [the functor of Flush.acto \o M] ~~> M := fun A m => let: (x, _) := m in (x, [::]).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer