fact: Definition h_state {E} : stateE ~> stateT S (itree E) := fun _ e s => match e with | Get => Ret (s, s) | Put s' => Ret (s', tt) end.
imports: ExtLib(Structures.Functor Structures.Monad) ITree(Basics.Basics Basics.CategoryOps Basics.CategoryKleisli Core.ITreeDefinition Indexed.Function Indexed.Sum Core.Subevent Interp.Interp)