diff options
| author |  jadep <jade.philipoom@gmail.com> | 2016-10-23 20:52:50 -0400 |
|---|---|---|
| committer | jadep <jade.philipoom@gmail.com> | 2016-10-23 20:52:57 -0400 |
| commit | fc1f842a2797ed2318cb304d5f123e72ec9bc78e (patch) | |
| tree | c46df2e07355230d1731937cb04f429448cf9b16 /src/ModularArithmetic/ModularBaseSystemOpt.v | |
| parent | 1d67ceeb14375a2832162568cd285e5c65c0cb16 (diff) | |
Created separate definitions for cmovne and cmovl for reification
Diffstat (limited to 'src/ModularArithmetic/ModularBaseSystemOpt.v')
| -rw-r--r-- | src/ModularArithmetic/ModularBaseSystemOpt.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ModularArithmetic/ModularBaseSystemOpt.v b/src/ModularArithmetic/ModularBaseSystemOpt.v index 1117229d1..89acd77f4 100644 --- a/src/ModularArithmetic/ModularBaseSystemOpt.v +++ b/src/ModularArithmetic/ModularBaseSystemOpt.v @@ -976,7 +976,7 @@ Section Canonicalization. Lemma ge_modulus'_cps : forall {A} (f : Z -> A) (us : list Z) i b, f (ge_modulus' id us b i) = ge_modulus' f us b i. Proof. - induction i; intros; simpl; cbv [Let_In]; break_if; try reflexivity; + induction i; intros; simpl; cbv [Let_In cmovl cmovne]; break_if; try reflexivity; apply IHi. Qed. |