Section SUTT_facts.
Context {E : Type -> Type} {R1 R2 : Type} (RR : R1 -> R2 -> Prop).

Lemma sutt_inv_vis {E R1 R2} (RR : R1 -> R2 -> Prop) :
forall X e (k1 : X -> itree E R1) (k2 : X -> itree E R2),
sutt RR (Vis e k1) (Vis e k2) ->
forall x, sutt RR (k1 x) (k2 x).