proposition: Lemma euttVC_id gH: id <3= euttVC gH.
proof: Proof. intros. gbase. econstructor; try reflexivity; auto_ctrans. Qed.
imports: Coq(Setoid Morphisms Relations) Paco(paco) ITree(Basics.Utils Core.ITreeDefinition Eq.Eqit Eq.Paco2 Eq.Shallow)