proposition: Lemma naturality_empty : naturality [the functor of Empty.acto \o M] M empty.
proof: Proof. by move=> A B h; apply funext. Qed.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer