End IdealDef.
Module Quotient.
Section ZmodQuotient.
Variables (R : zmodType) (I : predPredType R)
(zmodI : zmodPred I) (kI : keyed_pred zmodI).
Definition equiv (x y : R) := (x - y) \in kI.

Lemma equiv_is_equiv : equiv_class_of equiv.
Canonical equiv_equiv := EquivRelPack equiv_is_equiv.