fact: Definition FromW A (r : W A) : M A := fun env => if r is inr (a, _) then inr (a, env) else inl tt.
imports: JMeq mathcomp(all_ssreflect finmap) monae_lib HB(structures) hierarchy monad_lib fail_lib state_lib trace_lib monad_transformer monad_model