fact: Definition handle_writer_list {W E} : writerE W ~> stateT (list W) (itree E) := fun _ e s => match e with | Tell w => Ret (w :: s, 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)