diff options
author | Jade Philipoom <jadep@google.com> | 2018-02-16 10:53:46 +0100 |
---|---|---|
committer | Jason Gross <jasongross9@gmail.com> | 2018-02-23 13:06:33 -0500 |
commit | 3988a7cc318364585f9f36b1f776ce341f2f6caa (patch) | |
tree | df6a9ffc7680f4446685697ba1fa1017a8c363d9 /src/Arithmetic | |
parent | 010851c36c6c6dbdf8adb70db3502c6f7a005132 (diff) |
add equivalence proof for Montgomery reduce_via_partial_alt
Diffstat (limited to 'src/Arithmetic')
-rw-r--r-- | src/Arithmetic/MontgomeryReduction/Proofs.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Arithmetic/MontgomeryReduction/Proofs.v b/src/Arithmetic/MontgomeryReduction/Proofs.v index d5de00213..5f459e52d 100644 --- a/src/Arithmetic/MontgomeryReduction/Proofs.v +++ b/src/Arithmetic/MontgomeryReduction/Proofs.v @@ -242,6 +242,12 @@ Section montgomery. autorewrite with zsimplify; push_Zmod; autorewrite with zsimplify; pull_Zmod. break_match; Z.ltb_to_lt; autorewrite with zsimplify; try reflexivity; lia. Qed. + + Lemma reduce_via_partial_alt_eq : reduce_via_partial_alt N R N' T = reduce_via_partial N R N' T. + Proof. + cbv [reduce_via_partial_alt reduce_via_partial]. + rewrite partial_reduce_alt_eq by omega. reflexivity. + Qed. End alt. End redc. |