diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-11-03 00:47:54 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-11-03 00:48:02 -0400 |
| commit | a0fab645d1fd01e56c7d6b78178d77eaddbd02e6 (patch) | |
| tree | e1b0be2ac681bfdde87dbf52da73f0ae9a13dcc1 /src/Util/ZBounded.v | |
| parent | 0477146e3fc1be17486c145cc70b25fab3e182b0 (diff) | |
Add value_modulo_in_range
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. |