diff options
author | 2017-10-16 01:16:24 -0400 | |
---|---|---|
committer | 2017-10-18 23:01:29 -0400 | |
commit | 3963ad55fada5c6df6c52e82ee483da9a085c9a9 (patch) | |
tree | 50f5831e0608a6a48873ebdd9226460866cb9a86 /src/Specific/montgomery32_2e205m45x2e198m1/CurveParameters.v | |
parent | 228b9c35ae331ac30b5829689d9a9320612edb67 (diff) |
Remake some curves
Diffstat (limited to 'src/Specific/montgomery32_2e205m45x2e198m1/CurveParameters.v')
-rw-r--r-- | src/Specific/montgomery32_2e205m45x2e198m1/CurveParameters.v | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/Specific/montgomery32_2e205m45x2e198m1/CurveParameters.v b/src/Specific/montgomery32_2e205m45x2e198m1/CurveParameters.v new file mode 100644 index 000000000..1374b29d2 --- /dev/null +++ b/src/Specific/montgomery32_2e205m45x2e198m1/CurveParameters.v @@ -0,0 +1,35 @@ +Require Import Crypto.Specific.Framework.RawCurveParameters. +Require Import Crypto.Util.LetIn. + +(*** +Modulus : 2^205 - 45*2^198 - 1 +Base: 32 +***) + +Definition curve : CurveParameters := + {| + sz := 7%nat; + base := 32; + bitwidth := 32; + s := 2^205; + c := [(1, 1); (45, 2^198)]; + carry_chains := None; + + a24 := None; + coef_div_modulus := None; + + goldilocks := Some false; + montgomery := true; + + mul_code := None; + + square_code := None; + + upper_bound_of_exponent := 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. |