diff options
Diffstat (limited to 'src/Rewriter/Arith.v')
-rw-r--r-- | src/Rewriter/Arith.v | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/src/Rewriter/Arith.v b/src/Rewriter/Arith.v new file mode 100644 index 000000000..cae1526d2 --- /dev/null +++ b/src/Rewriter/Arith.v @@ -0,0 +1,40 @@ +Require Import Coq.ZArith.ZArith. +Require Import Crypto.Language. +Require Import Crypto.LanguageWf. +Require Import Crypto.RewriterProofsTactics. +Require Import Crypto.RewriterRulesProofs. + +Module Compilers. + Import Language.Compilers. + Import Language.Compilers.defaults. + Import LanguageWf.Compilers. + Import RewriterProofsTactics.Compilers.RewriteRules.GoalType. + Import RewriterProofsTactics.Compilers.RewriteRules.Tactic. + + Module Import RewriteRules. + Section __. + Context (max_const_val : Z). + + Definition VerifiedRewriterArith : VerifiedRewriter. + Proof using All. make_rewriter false (arith_rewrite_rules_proofs max_const_val). Defined. + + Definition RewriteArith {t} := Eval hnf in @Rewrite VerifiedRewriterArith t. + + Lemma Wf_RewriteArith {t} e (Hwf : Wf e) : Wf (@RewriteArith t e). + Proof. now apply VerifiedRewriterArith. Qed. + + Lemma Interp_gen_RewriteArith {cast_outside_of_range t} e (Hwf : Wf e) + : expr.Interp (@ident.gen_interp cast_outside_of_range) (@RewriteArith t e) + == expr.Interp (@ident.gen_interp cast_outside_of_range) e. + Proof. now apply VerifiedRewriterArith. Qed. + + Lemma Interp_RewriteArith {t} e (Hwf : Wf e) : Interp (@RewriteArith t e) == Interp e. + Proof. apply Interp_gen_RewriteArith; assumption. Qed. + End __. + End RewriteRules. + + Module Export Hints. + Hint Resolve Wf_RewriteArith : wf. + Hint Rewrite @Interp_gen_RewriteArith @Interp_RewriteArith : interp. + End Hints. +End Compilers. |