aboutsummaryrefslogtreecommitdiff
path: root/src/Util
diff options
context:
space:
mode:
authorGravatar Jason Gross <jagro@google.com>2016-07-29 17:08:32 -0700
committerGravatar Jason Gross <jagro@google.com>2016-07-29 17:12:39 -0700
commit3d6359a86c72463436b7bf561b2b90672c3f6ed5 (patch)
tree12185d0ca794d148ed00a5dc0138e5ace9f7e8df /src/Util
parent346c2eb4739c8d2102b1b19525685eab25229c2e (diff)
Add push_Zmod tactics
After | File Name | Before || Change ---------------------------------------------------------------------------------- 1m44.21s | Total | 1m47.96s || -0m03.75s ---------------------------------------------------------------------------------- 0m03.99s | ModularArithmetic/Pow2BaseProofs | 0m05.44s || -0m01.45s 0m32.42s | Specific/GF25519 | 0m32.42s || +0m00.00s 0m15.11s | ModularArithmetic/ModularBaseSystemProofs | 0m15.86s || -0m00.75s 0m11.83s | Experiments/SpecEd25519 | 0m12.26s || -0m00.42s 0m08.24s | Specific/GF1305 | 0m07.45s || +0m00.79s 0m03.89s | ModularArithmetic/Tutorial | 0m03.80s || +0m00.09s 0m03.72s | BaseSystemProofs | 0m03.81s || -0m00.08s 0m03.24s | ModularArithmetic/ModularBaseSystemOpt | 0m03.24s || +0m00.00s 0m02.61s | Util/ZUtil | 0m02.75s || -0m00.14s 0m02.16s | Encoding/PointEncodingPre | 0m01.60s || +0m00.56s 0m01.57s | ModularArithmetic/PrimeFieldTheorems | 0m01.56s || +0m00.01s 0m01.53s | ModularArithmetic/ModularArithmeticTheorems | 0m01.63s || -0m00.09s 0m01.13s | BaseSystem | 0m01.68s || -0m00.55s 0m01.09s | Experiments/DerivationsOptionRectLetInEncoding | 0m01.39s || -0m00.29s 0m01.06s | ModularArithmetic/ExtendedBaseVector | 0m01.17s || -0m00.10s 0m00.94s | ModularArithmetic/BarrettReduction/Z | 0m01.47s || -0m00.53s 0m00.86s | Util/NumTheoryUtil | 0m00.88s || -0m00.02s 0m00.85s | ModularArithmetic/ModularBaseSystemField | 0m00.87s || -0m00.02s 0m00.78s | ModularArithmetic/ModularBaseSystemListProofs | 0m00.85s || -0m00.06s 0m00.73s | Experiments/SpecificCurve25519 | 0m00.71s || +0m00.02s 0m00.64s | Encoding/ModularWordEncodingTheorems | 0m00.68s || -0m00.04s 0m00.64s | Testbit | 0m00.63s || +0m00.01s 0m00.62s | Encoding/ModularWordEncodingPre | 0m00.62s || +0m00.00s 0m00.60s | Spec/ModularWordEncoding | 0m00.60s || +0m00.00s 0m00.59s | ModularArithmetic/ExtPow2BaseMulProofs | 0m00.67s || -0m00.08s 0m00.57s | ModularArithmetic/ModularBaseSystemList | 0m00.64s || -0m00.07s 0m00.56s | ModularArithmetic/ModularBaseSystem | 0m00.61s || -0m00.04s 0m00.56s | ModularArithmetic/PseudoMersenneBaseParamProofs | 0m00.82s || -0m00.25s 0m00.47s | ModularArithmetic/Pre | 0m00.50s || -0m00.03s 0m00.45s | ModularArithmetic/Pow2Base | 0m00.44s || +0m00.01s 0m00.40s | ModularArithmetic/PseudoMersenneBaseParams | 0m00.51s || -0m00.10s 0m00.36s | Spec/ModularArithmetic | 0m00.41s || -0m00.04s
Diffstat (limited to 'src/Util')
-rw-r--r--src/Util/ZUtil.v22
1 files changed, 22 insertions, 0 deletions
diff --git a/src/Util/ZUtil.v b/src/Util/ZUtil.v
index d49c8eb8b..3530ab51e 100644
--- a/src/Util/ZUtil.v
+++ b/src/Util/ZUtil.v
@@ -1268,3 +1268,25 @@ Module Export BoundsTactics.
Ltac prime_bound := Z.prime_bound.
Ltac zero_bounds := Z.zero_bounds.
End BoundsTactics.
+
+Ltac push_Zmod :=
+ repeat match goal with
+ | _ => progress autorewrite with push_Zmod
+ | [ |- context[(?x * ?y) mod ?z] ]
+ => rewrite (Z.mul_mod_push x y z) by (Z.NoZMod || lia)
+ | [ |- context[(?x * ?y) mod ?z] ]
+ => rewrite (Z.mul_mod_l_push x y z) by (Z.NoZMod || lia)
+ | [ |- context[(?x * ?y) mod ?z] ]
+ => rewrite (Z.mul_mod_r_push x y z) by (Z.NoZMod || lia)
+ end.
+
+Ltac push_Zmod_hyps :=
+ repeat match goal with
+ | _ => progress autorewrite with push_Zmod in * |-
+ | [ H : context[(?x * ?y) mod ?z] |- _ ]
+ => rewrite (Z.mul_mod_push x y z) in H by (Z.NoZMod || lia)
+ | [ H : context[(?x * ?y) mod ?z] |- _ ]
+ => rewrite (Z.mul_mod_l_push x y z) in H by (Z.NoZMod || lia)
+ | [ H : context[(?x * ?y) mod ?z] |- _ ]
+ => rewrite (Z.mul_mod_r_push x y z) in H by (Z.NoZMod || lia)
+ end.