fact: Definition list_alt : forall T, M T -> M T -> M T := fun A => curry (@append A).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer