diff options
| author |  Frédéric Besson <frederic.besson@inria.fr> | 2018-10-04 11:26:08 +0200 |
|---|---|---|
| committer |  Andres Erbsen <andreser@mit.edu> | 2018-10-04 11:06:38 -0400 |
| commit | 692fbf2183f34fefec728c063a2022c3529e8029 (patch) | |
| tree | be76190bb9e052f26cb8c85a09652df6a18b6811 | |
| parent | 46f1386270a334b85a93a0e06dda87c61548121d (diff) | |
Compatibility with Coq PR#8457
Based on hints from @andres-erbsen
| -rw-r--r-- | src/Specific/Framework/ArithmeticSynthesis/Montgomery.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Specific/Framework/ArithmeticSynthesis/Montgomery.v b/src/Specific/Framework/ArithmeticSynthesis/Montgomery.v index 789c73bd3..ba3340f32 100644 --- a/src/Specific/Framework/ArithmeticSynthesis/Montgomery.v +++ b/src/Specific/Framework/ArithmeticSynthesis/Montgomery.v @@ -124,6 +124,7 @@ Section with_args. -> eval B < eval m_enc -> 0 <= eval (f A B) < eval m_enc)))%Z }. Proof. + generalize m_big. exists (fun A B => add (r:=r)(R_numlimbs:=sz) m_enc A B). abstract ( split; intros; @@ -209,6 +210,7 @@ Section with_args. (eval A < eval m_enc -> f A = 0 <-> (montgomery_to_F_gen (eval A) = F.of_Z m 0))%Z }. Proof. + generalize m_big; exists (fun A => nonzero (R_numlimbs:=sz) A). abstract ( intros eval A H **; rewrite (@eval_nonzero r) by (eassumption || reflexivity); |