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

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