diff options
author | Jade Philipoom <jadep@google.com> | 2018-02-16 10:51:43 +0100 |
---|---|---|
committer | Jason Gross <jasongross9@gmail.com> | 2018-02-23 13:06:33 -0500 |
commit | 56bf29e5a4244d665f231b5a2602694a7414c762 (patch) | |
tree | ef56863aaa50f283f66281191560cfdfc4c81456 /src/Util/ZUtil/AddModulo.v | |
parent | 53112bb801cdcfb68e2b390f0935b9d3fa74ec04 (diff) |
Add new modular addition operation on Z
Diffstat (limited to 'src/Util/ZUtil/AddModulo.v')
-rw-r--r-- | src/Util/ZUtil/AddModulo.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Util/ZUtil/AddModulo.v b/src/Util/ZUtil/AddModulo.v new file mode 100644 index 000000000..0f80a75d9 --- /dev/null +++ b/src/Util/ZUtil/AddModulo.v @@ -0,0 +1,9 @@ +Require Import Coq.ZArith.ZArith. +Require Import Crypto.Util.ZUtil.Definitions. +Local Open Scope Z_scope. + +Module Z. + Lemma add_modulo_correct x y modulus : + Z.add_modulo x y modulus = if (modulus <=? x + y) then (x + y) - modulus else (x + y). + Proof. reflexivity. Qed. +End Z.
\ No newline at end of file |