diff options
Diffstat (limited to 'src/Util/ZBounded.v')
| -rw-r--r-- | src/Util/ZBounded.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Util/ZBounded.v b/src/Util/ZBounded.v index 64cb57b0a..4e0309053 100644 --- a/src/Util/ZBounded.v +++ b/src/Util/ZBounded.v @@ -152,3 +152,12 @@ Proof. rewrite Z.mod_small by omega. omega. Qed. + +Lemma value_modulo_in_range z r (Hr : lower r <= z <= upper r) + : value (modulo z r) = z. +Proof. + simpl. + destruct (upper r <? lower r) eqn:H'; [ reflexivity | ]. + rewrite Z.mod_small by omega. + omega. +Qed. |