fact: Definition run_writer_list {W E} : itree (writerE W +' E) ~> writerT (list W) (itree E) := fun _ t => ITree.map (fun wsx => (rev' (fst wsx), snd wsx)) (run_writer_list_state t []).
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)