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

Lemma euttVC_transU gH r
(CLOR: transU RR r <2= r):
transU RR (euttVC RR gH r) <2= @euttVC E _ _ RR gH r.