fact: Definition run_reader {E} : Env -> itree (readerE +' E) ~> itree E := fun r => interp (case_ (eval_reader r) (id_ _)).
imports: Coq(List) ITree(Basics.Basics Basics.CategoryOps Core.ITreeDefinition Indexed.Sum Core.Subevent Interp.Interp Interp.Handler)