aboutsummaryrefslogtreecommitdiff
path: root/src/RewriterRulesInterpGood.v
diff options
context:
space:
mode:
Diffstat (limited to 'src/RewriterRulesInterpGood.v')
-rw-r--r--src/RewriterRulesInterpGood.v42
1 files changed, 0 insertions, 42 deletions
diff --git a/src/RewriterRulesInterpGood.v b/src/RewriterRulesInterpGood.v
deleted file mode 100644
index 095719421..000000000
--- a/src/RewriterRulesInterpGood.v
+++ /dev/null
@@ -1,42 +0,0 @@
-Require Import Coq.ZArith.ZArith.
-Require Import Crypto.RewriterFull.
-Require Import Crypto.RewriterWf1.
-Local Open Scope Z_scope.
-
-Module Compilers.
- Import RewriterFull.Compilers.
- Import RewriterWf1.Compilers.
-
- Module Import RewriteRules.
- Import RewriterFull.Compilers.RewriteRules.
- Import RewriterWf1.Compilers.RewriteRules.InterpTactics.GoalType.
- Import RewriterWf1.Compilers.RewriteRules.InterpTactics.Tactic.
-
- Lemma RewriterRulesNBEInterp : Interp_GoalT RewriterNBE.
- Proof. prove_interp_good (). Qed.
-
- Lemma RewriterRulesArithInterp max_const : Interp_GoalT (RewriterArith max_const).
- Proof. prove_interp_good (). Qed.
-
- Lemma RewriterRulesArithWithCastsInterp : Interp_GoalT RewriterArithWithCasts.
- Proof. prove_interp_good (). Qed.
-
- Lemma RewriterRulesStripLiteralCastsInterp : Interp_GoalT RewriterStripLiteralCasts.
- Proof. prove_interp_good (). Qed.
-
- Lemma RewriterRulesToFancyInterp
- (invert_low invert_high : Z -> Z -> option Z)
- (Hlow : forall s v v', invert_low s v = Some v' -> v = Z.land v' (2^(s/2)-1))
- (Hhigh : forall s v v', invert_high s v = Some v' -> v = Z.shiftr v' (s/2))
- : Interp_GoalT (RewriterToFancy invert_low invert_high).
- Proof. prove_interp_good (). Qed.
-
- Lemma RewriterRulesToFancyWithCastsInterp
- (invert_low invert_high : Z -> Z -> option Z)
- (value_range flag_range : ZRange.zrange)
- (Hlow : forall s v v', invert_low s v = Some v' -> v = Z.land v' (2^(s/2)-1))
- (Hhigh : forall s v v', invert_high s v = Some v' -> v = Z.shiftr v' (s/2))
- : Interp_GoalT (RewriterToFancyWithCasts invert_low invert_high value_range flag_range).
- Proof. prove_interp_good (). Qed.
- End RewriteRules.
-End Compilers.