auto.
Qed.
Hint Resolve int_X_V2_empty.
Definition Gunion_disj := Gim.
Let Vim := fst Gunion_disj.
Let GGim := snd Gunion_disj.
Let Rim := fst GGim.
Let Sim := snd GGim.

(* Specifications: *)
Lemma Id_injproducg1 : forall x : Elt, dans x X -> injproducg V1 x = x :>Elt.
unfold Id, injproducg in |- *.