proposition: Lemma MO_mapE (A B : UU0) (f : A -> B) (m : MO A) : ([the functor of MO] # f) m = (M # (fun x => (f x.1, x.2))) m.
proof: Proof. rewrite [in LHS]/actm /= /bindO /= [in RHS]fmapE. congr (_ _). apply: boolp.funext => -[] ? ?. by rewrite bindretf cats0. Qed.
imports: mathcomp(all_ssreflect) monae_lib HB(structures) hierarchy monad_lib fail_lib state_lib