fact: Definition handle : forall A, M A -> M A -> M A := fun A m1 m2 => @handle_op unit _ (m1, (fun _ => m2)).
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer