Instance eqm_setoid : Equivalence eqm.Instance Zplus_eqm : Proper (eqm ==> eqm ==> eqm) Z.add.Instance Zminus_eqm : Proper (eqm ==> eqm ==> eqm) Z.sub.Instance Zmult_eqm : Proper (eqm ==> eqm ==> eqm) Z.mul.Instance Zopp_eqm : Proper (eqm ==> eqm) Z.opp.

Lemma Zeven_mod : forall a, Z.even a = Zeq_bool (a mod 2) 0.