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