fact: Definition run_state {E} : itree (stateE +' E) ~> stateT S (itree E) := interp_state (case_ h_state pure_state).
imports: ExtLib(Structures.Functor Structures.Monad) ITree(Basics.Basics Basics.CategoryOps Basics.CategoryKleisli Core.ITreeDefinition Indexed.Function Indexed.Sum Core.Subevent Interp.Interp)