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 | |
parent | 0477146e3fc1be17486c145cc70b25fab3e182b0 (diff) |
Add value_modulo_in_range
Diffstat (limited to 'src')
-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. |