diff options
Diffstat (limited to 'src/RewriterRulesInterpGood.v')
-rw-r--r-- | src/RewriterRulesInterpGood.v | 42 |
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. |