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

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