aboutsummaryrefslogtreecommitdiff
path: root/src/Arithmetic/Saturated/MulSplitUnfolder.v
diff options
context:
space:
mode:
Diffstat (limited to 'src/Arithmetic/Saturated/MulSplitUnfolder.v')
-rw-r--r--src/Arithmetic/Saturated/MulSplitUnfolder.v45
1 files changed, 0 insertions, 45 deletions
diff --git a/src/Arithmetic/Saturated/MulSplitUnfolder.v b/src/Arithmetic/Saturated/MulSplitUnfolder.v
deleted file mode 100644
index e9747eb79..000000000
--- a/src/Arithmetic/Saturated/MulSplitUnfolder.v
+++ /dev/null
@@ -1,45 +0,0 @@
-Require Import Crypto.Arithmetic.CoreUnfolder.
-Require Import Crypto.Arithmetic.Saturated.CoreUnfolder.
-Require Import Crypto.Arithmetic.Saturated.MulSplit.
-
-Module B.
- Module Associational.
-(**
-<<
-#!/bin/bash
-for i in sat_multerm_cps sat_multerm sat_mul_cps sat_mul; do
- echo " Definition ${i}_sig := parameterize_sig (@MulSplit.B.Associational.${i}).";
- echo " Definition ${i} := parameterize_from_sig ${i}_sig.";
- echo " Definition ${i}_eq := parameterize_eq ${i} ${i}_sig.";
- echo " Hint Unfold ${i} : basesystem_partial_evaluation_unfolder.";
- echo " Hint Rewrite <- ${i}_eq : pattern_runtime."; echo "";
-done
-echo " End Associational."
-echo "End B."
->> *)
- Definition sat_multerm_cps_sig := parameterize_sig (@MulSplit.B.Associational.sat_multerm_cps).
- Definition sat_multerm_cps := parameterize_from_sig sat_multerm_cps_sig.
- Definition sat_multerm_cps_eq := parameterize_eq sat_multerm_cps sat_multerm_cps_sig.
- Hint Unfold sat_multerm_cps : basesystem_partial_evaluation_unfolder.
- Hint Rewrite <- sat_multerm_cps_eq : pattern_runtime.
-
- Definition sat_multerm_sig := parameterize_sig (@MulSplit.B.Associational.sat_multerm).
- Definition sat_multerm := parameterize_from_sig sat_multerm_sig.
- Definition sat_multerm_eq := parameterize_eq sat_multerm sat_multerm_sig.
- Hint Unfold sat_multerm : basesystem_partial_evaluation_unfolder.
- Hint Rewrite <- sat_multerm_eq : pattern_runtime.
-
- Definition sat_mul_cps_sig := parameterize_sig (@MulSplit.B.Associational.sat_mul_cps).
- Definition sat_mul_cps := parameterize_from_sig sat_mul_cps_sig.
- Definition sat_mul_cps_eq := parameterize_eq sat_mul_cps sat_mul_cps_sig.
- Hint Unfold sat_mul_cps : basesystem_partial_evaluation_unfolder.
- Hint Rewrite <- sat_mul_cps_eq : pattern_runtime.
-
- Definition sat_mul_sig := parameterize_sig (@MulSplit.B.Associational.sat_mul).
- Definition sat_mul := parameterize_from_sig sat_mul_sig.
- Definition sat_mul_eq := parameterize_eq sat_mul sat_mul_sig.
- Hint Unfold sat_mul : basesystem_partial_evaluation_unfolder.
- Hint Rewrite <- sat_mul_eq : pattern_runtime.
-
- End Associational.
-End B.