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

Lemma transU_dist_rev:
forall r1 r2, (transU RR r1 \2/ transU RR r2) <2= @transU E R1 R2 RR (r1 \2/ r2).