fact: Definition acto (A : UU0) := (I -> S) -> SetMonad.acto (A * (I -> S))%type.
imports: JMeq mathcomp(all_ssreflect) mathcomp(finmap) mathcomp(classical_sets) monae_lib HB(structures) hierarchy monad_lib fail_lib state_lib trace_lib monad_transformer