Section EUTTG_Properties1.
Context {E : Type -> Type} {R1 R2 : Type} (RR : R1 -> R2 -> Prop).
Local Notation euttG := (@euttG E R1 R2 RR).

Lemma rclo_flip clo (r: itree E R1 -> itree E R2 -> Prop)
(MON: monotone2 clo):
flip (rclo2 (fun x : itree E R2 -> itree E R1 -> Prop => flip (clo (flip x))) (flip r)) <2= rclo2 clo r.