fact: Definition eutt_iter_gen' {F A B R1 R2 S} (HS : R2 <2= R1) : @Proper ((A -> itree F (A + B)) -> A -> itree F B) ((R1 ==> eutt (sum_rel R2 S)) ==> R1 ==> (eutt S)) (iter (C := ktree F)).
imports: Coq(Classes.Morphisms Setoids.Setoid Relations.Relations) Paco(paco) ITree(Basics.Basics Basics.CategoryOps Basics.CategoryTheory Basics.CategoryKleisli Basics.CategoryKleisliFacts Basics.Function Basics.HeterogeneousRelations Core.ITreeDefinition Core.ITreeMonad Core.KTree Eq.Shallow Eq.Eqit Eq.UpToTaus Eq.Paco2)