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

Lemma euttG_flip gH r:
flip (gupaco2 (eqit_ (flip RR) true true (euttVC (flip RR) (flip gH))) (transD (flip RR)) (flip r)) <2=
gupaco2 (@eqit_ E R1 R2 RR true true (euttVC RR gH)) (transD RR) r.