aboutsummaryrefslogtreecommitdiff
path: root/src/Specific/montgomery32_2e130m5_5limbs/CurveParameters.v
diff options
context:
space:
mode:
Diffstat (limited to 'src/Specific/montgomery32_2e130m5_5limbs/CurveParameters.v')
-rw-r--r--src/Specific/montgomery32_2e130m5_5limbs/CurveParameters.v39
1 files changed, 39 insertions, 0 deletions
diff --git a/src/Specific/montgomery32_2e130m5_5limbs/CurveParameters.v b/src/Specific/montgomery32_2e130m5_5limbs/CurveParameters.v
new file mode 100644
index 000000000..4dfc2991f
--- /dev/null
+++ b/src/Specific/montgomery32_2e130m5_5limbs/CurveParameters.v
@@ -0,0 +1,39 @@
+Require Import Crypto.Specific.Framework.RawCurveParameters.
+Require Import Crypto.Util.LetIn.
+
+(***
+Modulus : 2^130 - 5
+Base: 32
+***)
+
+Definition curve : CurveParameters :=
+ {|
+ sz := 5%nat;
+ base := 32;
+ bitwidth := 32;
+ s := 2^130;
+ c := [(1, 5)];
+ carry_chains := None;
+
+ a24 := None;
+ coef_div_modulus := None;
+
+ goldilocks := None;
+ karatsuba := None;
+ montgomery := true;
+ freeze := Some false;
+ ladderstep := false;
+
+ mul_code := None;
+
+ square_code := None;
+
+ upper_bound_of_exponent_loose := None;
+ upper_bound_of_exponent_tight := None;
+ allowable_bit_widths := None;
+ freeze_extra_allowable_bit_widths := None;
+ modinv_fuel := None
+ |}.
+
+Ltac extra_prove_mul_eq _ := idtac.
+Ltac extra_prove_square_eq _ := idtac.