aboutsummaryrefslogtreecommitdiff
path: root/src/Specific/ArithmeticSynthesisTest.v
diff options
context:
space:
mode:
authorGravatar jadep <jade.philipoom@gmail.com>2017-04-27 14:53:06 -0400
committerGravatar jadephilipoom <jade.philipoom@gmail.com>2017-05-01 14:34:48 -0400
commite4d70303b6d4815141e5adafc6deab58aa676629 (patch)
treea48a6a7a529b065ddd16bf7ffeda942bb57152c5 /src/Specific/ArithmeticSynthesisTest.v
parentbe54c2704f7bac666a3d4ca200f0622d6b38d7cb (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.v23
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 |