fact: Definition handle_writer {W E} (Monoid_W : Monoid W) : writerE W ~> stateT W (itree E) := fun _ e s => match e with | Tell w => Ret (monoid_plus Monoid_W s w, tt) end.
imports: Coq(List) ExtLib(Structures.Functor Structures.Monad Structures.Monoid) ITree(Basics.Basics Basics.CategoryOps Basics.MonadState Indexed.Function Indexed.Sum Core.ITreeDefinition Core.Subevent Interp.Interp Interp.Handler Events.State)