fact: Definition acto : Type -> Type := fun A => S -> {fset (choice_of_Type A * choice_of_Type S)}.
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