diff options
author | Andres Erbsen <andreser@mit.edu> | 2019-01-03 15:56:53 -0500 |
---|---|---|
committer | Andres Erbsen <andreser@mit.edu> | 2019-01-05 03:41:07 -0500 |
commit | 6b0c9c893188560f7bad198a8a3b1db9be4cabc1 (patch) | |
tree | 7fa5f19f175cfca7eb212e7fa0fa08e201e3f315 /src | |
parent | a1f2b8bb005c580d75574dd8e5b057cf12f9bcc7 (diff) |
build on Coq master
Diffstat (limited to 'src')
-rw-r--r-- | src/Experiments/NewPipeline/PushButtonSynthesis.v | 24 | ||||
-rw-r--r-- | src/Experiments/NewPipeline/StandaloneHaskellMain.v | 2 | ||||
-rw-r--r-- | src/Experiments/NewPipeline/StandaloneOCamlMain.v | 2 |
3 files changed, 14 insertions, 14 deletions
diff --git a/src/Experiments/NewPipeline/PushButtonSynthesis.v b/src/Experiments/NewPipeline/PushButtonSynthesis.v index ab94ce267..d4b1e5500 100644 --- a/src/Experiments/NewPipeline/PushButtonSynthesis.v +++ b/src/Experiments/NewPipeline/PushButtonSynthesis.v @@ -223,7 +223,7 @@ Local Opaque reified_%s_gen. (* needed for making [autorewrite] not take a very Lemma length_saturated_bounds_list : List.length saturated_bounds_list = n. Proof using Type. cbv [saturated_bounds_list]; now autorewrite with distr_length. Qed. - Local Hint Rewrite length_saturated_bounds_list : distr_length. + Hint Rewrite length_saturated_bounds_list : distr_length. Definition selectznz := Pipeline.BoundsPipeline @@ -297,7 +297,7 @@ Local Opaque reified_%s_gen. (* needed for making [autorewrite] not take a very Local Ltac solve_extra_bounds_side_conditions := cbn [lower upper fst snd] in *; Bool.split_andb; Z.ltb_to_lt; lia. - Local Hint Rewrite + Hint Rewrite eval_select Arithmetic.mulx_correct Arithmetic.addcarryx_correct @@ -615,22 +615,22 @@ Local Opaque reified_%s_gen. (* needed for making [autorewrite] not take a very Lemma length_prime_upperbound_list : List.length prime_upperbound_list = n. Proof using Type. cbv [prime_upperbound_list]; now autorewrite with distr_length. Qed. - Local Hint Rewrite length_prime_upperbound_list : distr_length. + Hint Rewrite length_prime_upperbound_list : distr_length. Lemma length_tight_upperbounds : List.length tight_upperbounds = n. Proof using Type. cbv [tight_upperbounds]; now autorewrite with distr_length. Qed. - Local Hint Rewrite length_tight_upperbounds : distr_length. + Hint Rewrite length_tight_upperbounds : distr_length. Lemma length_tight_bounds : List.length tight_bounds = n. Proof using Type. cbv [tight_bounds]; now autorewrite with distr_length. Qed. - Local Hint Rewrite length_tight_bounds : distr_length. + Hint Rewrite length_tight_bounds : distr_length. Lemma length_loose_bounds : List.length loose_bounds = n. Proof using Type. cbv [loose_bounds]; now autorewrite with distr_length. Qed. - Local Hint Rewrite length_loose_bounds : distr_length. + Hint Rewrite length_loose_bounds : distr_length. Lemma length_prime_bytes_upperbound_list : List.length prime_bytes_upperbound_list = bytes_n (Qnum limbwidth) (Qden limbwidth) n. Proof using Type. cbv [prime_bytes_upperbound_list]; now autorewrite with distr_length. Qed. - Local Hint Rewrite length_prime_bytes_upperbound_list : distr_length. + Hint Rewrite length_prime_bytes_upperbound_list : distr_length. Lemma length_saturated_bounds_list : List.length saturated_bounds_list = n. Proof using Type. cbv [saturated_bounds_list]; now autorewrite with distr_length. Qed. - Local Hint Rewrite length_saturated_bounds_list : distr_length. + Hint Rewrite length_saturated_bounds_list : distr_length. (** Note: If you change the name or type signature of this function, you will need to update the code in CLI.v *) @@ -906,7 +906,7 @@ Local Opaque reified_%s_gen. (* needed for making [autorewrite] not take a very Local Ltac solve_extra_bounds_side_conditions := cbn [lower upper fst snd] in *; Bool.split_andb; Z.ltb_to_lt; lia. - Local Hint Rewrite + Hint Rewrite eval_carry_mulmod eval_carry_squaremod eval_carry_scmulmod @@ -1222,7 +1222,7 @@ Module SaturatedSolinas. Local Ltac solve_extra_bounds_side_conditions := cbn [lower upper fst snd] in *; Bool.split_andb; Z.ltb_to_lt; lia. - Local Hint Rewrite + Hint Rewrite (fun pf => @Rows.eval_mulmod (weight machine_wordsize 1) (@wprops _ _ pf)) using solve [ auto with zarith | congruence | solve_extra_bounds_side_conditions ] : push_eval. Hint Unfold mulmod : push_eval. @@ -1933,7 +1933,7 @@ Local Opaque reified_%s_gen. (* needed for making [autorewrite] not take a very | now apply weight_bounded_of_bytes_valid | eapply length_of_valid; eassumption ]. - Local Hint Rewrite + Hint Rewrite (@eval_mulmod machine_wordsize n m r' m') (@eval_squaremod machine_wordsize n m r' m') (@eval_addmod machine_wordsize n m r' m') @@ -2925,7 +2925,7 @@ Module MontgomeryReduction. rewrite Z.pow_mul_r, R_two_pow by omega; reflexivity. Qed. - Local Declare Equivalent Keys weight w. + Declare Equivalent Keys weight w. Local Ltac change_weight := rewrite !Hw, ?Z.pow_0_r, ?Z.pow_1_r, ?Z.pow_2_r, ?Z.pow_1_l in *. Local Ltac solve_range := repeat match goal with diff --git a/src/Experiments/NewPipeline/StandaloneHaskellMain.v b/src/Experiments/NewPipeline/StandaloneHaskellMain.v index 131907bc1..b7d7fa869 100644 --- a/src/Experiments/NewPipeline/StandaloneHaskellMain.v +++ b/src/Experiments/NewPipeline/StandaloneHaskellMain.v @@ -6,7 +6,7 @@ Require Import Coq.Strings.String. Require Crypto.Util.Strings.String. Require Import Crypto.Util.Strings.Decimal. Require Import Crypto.Util.Strings.HexString. -Require Import Crypto.Experiments.NewPipeline.Toplevel1. +Require Import Crypto.Experiments.NewPipeline.PushButtonSynthesis. Require Import Crypto.Experiments.NewPipeline.CLI. Require Import Crypto.Util.Notations. Import ListNotations. Local Open Scope string_scope. diff --git a/src/Experiments/NewPipeline/StandaloneOCamlMain.v b/src/Experiments/NewPipeline/StandaloneOCamlMain.v index c5b4db570..a642a1006 100644 --- a/src/Experiments/NewPipeline/StandaloneOCamlMain.v +++ b/src/Experiments/NewPipeline/StandaloneOCamlMain.v @@ -7,7 +7,7 @@ Require Import Coq.Strings.String. Require Crypto.Util.Strings.String. Require Import Crypto.Util.Strings.Decimal. Require Import Crypto.Util.Strings.HexString. -Require Import Crypto.Experiments.NewPipeline.Toplevel1. +Require Import Crypto.Experiments.NewPipeline.PushButtonSynthesis. Require Import Crypto.Experiments.NewPipeline.CLI. Require Import Crypto.Util.Notations. Import ListNotations. Local Open Scope string_scope. |