diff options
author | jadep <jade.philipoom@gmail.com> | 2017-04-27 14:53:06 -0400 |
---|---|---|
committer | jadephilipoom <jade.philipoom@gmail.com> | 2017-05-01 14:34:48 -0400 |
commit | e4d70303b6d4815141e5adafc6deab58aa676629 (patch) | |
tree | a48a6a7a529b065ddd16bf7ffeda942bb57152c5 /src/Specific/ArithmeticSynthesisTest.v | |
parent | be54c2704f7bac666a3d4ca200f0622d6b38d7cb (diff) |
move hints and context outside section (this is what happens when you 'organize' code last-minute and don't check that it still works)
Diffstat (limited to 'src/Specific/ArithmeticSynthesisTest.v')
-rw-r--r-- | src/Specific/ArithmeticSynthesisTest.v | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/src/Specific/ArithmeticSynthesisTest.v b/src/Specific/ArithmeticSynthesisTest.v index 5decf17da..016bd8fef 100644 --- a/src/Specific/ArithmeticSynthesisTest.v +++ b/src/Specific/ArithmeticSynthesisTest.v @@ -222,20 +222,19 @@ Section Ops51. apply Z.div_positive_gt_0; auto using wt_pos. apply wt_multiples. Qed. + End PreFreeze. - Context {select_cps : forall n, Z -> Z^n -> forall {T}, (Z^n->T) -> T} - {select : forall n, Z -> Z^n -> Z^n} - {select_id : forall n cond x T f, @select_cps n cond x T f = f (select n cond x)} - {eval_select : forall n cond x, - B.Positional.eval wt (select n cond x) = if dec (cond = 0) then 0 else B.Positional.eval wt x} - . - - Hint Rewrite select_id : uncps. - Hint Rewrite eval_select : push_basesystem_eval. + Context {select_cps : forall n, Z -> Z^n -> forall {T}, (Z^n->T) -> T} + {select : forall n, Z -> Z^n -> Z^n} + {select_id : forall n cond x T f, @select_cps n cond x T f = f (select n cond x)} + {eval_select : forall n cond x, + B.Positional.eval wt (select n cond x) = if dec (cond = 0) then 0 else B.Positional.eval wt x} + . - Hint Opaque freeze : uncps. - Hint Rewrite freeze_id : uncps. - End PreFreeze. + Hint Rewrite select_id : uncps. + Hint Rewrite eval_select : push_basesystem_eval. + Hint Opaque freeze : uncps. + Hint Rewrite freeze_id : uncps. Definition freeze_sig : {freeze : (Z^sz -> Z^sz)%type | |