diff options
-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); |