fact: Parameter eutt_inv_vis : forall {U : Type} (e : E U) (k1 k2 : U -> itree E R), Vis e k1 ≈ Vis e k2 -> (forall u, k1 u ≈ k2 u).
imports: Coq(Setoid Morphisms) ITree(Eq.Shallow) ITree.Core.ITreeDefinition ITree.Basics.Basics ITree.Indexed.Sum ITree.Interp.Interp ITree.Interp.Recursion