pply: H2; rewrite ?(eqGI_norm xEy, eqGI_dvdr _ xEy).
Qed.

(* Specifications: *)
Lemma coprimeGI_mulr (x y z : GI) :
Lemma coprimeGI_mull (x y z : GI) :
Lemma logGI_Gauss x y z :