From fc8755880efa368d97422fb09cdeb21e6751b87a Mon Sep 17 00:00:00 2001 From: Jade Philipoom Date: Fri, 16 Feb 2018 10:54:23 +0100 Subject: add proof about Z.equiv_modulo --- src/Util/ZUtil/EquivModulo.v | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Util/ZUtil') diff --git a/src/Util/ZUtil/EquivModulo.v b/src/Util/ZUtil/EquivModulo.v index 3ca8c60c5..a67174629 100644 --- a/src/Util/ZUtil/EquivModulo.v +++ b/src/Util/ZUtil/EquivModulo.v @@ -53,6 +53,9 @@ Module Z. rewrite Z.mul_div_eq by assumption. reflexivity. Qed. + + Lemma equiv_modulo_mod_small x y : x == y -> 0 <= x < N -> x = y mod N. + Proof. transitivity (x mod N); [rewrite Z.mod_small|]; auto. Qed. End equiv_modulo. Hint Rewrite div_to_inv_modulo using solve [ eassumption | lia ] : zstrip_div. -- cgit v1.2.3