Remake some curves

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Specific/solinas32_2e256m2e32m977/CurveParameters.v b/src/Specific/solinas32_2e256m2e32m977/CurveParameters.v
index e708379b5..167a414b6 100644
--- a/src/Specific/solinas32_2e256m2e32m977/CurveParameters.v
+++ b/src/Specific/solinas32_2e256m2e32m977/CurveParameters.v
@@ -3,17 +3,17 @@ Require Import Crypto.Util.LetIn.
 
 (***
 Modulus : 2^256 - 2^32 - 977 
-Base: 17
+Base: 21 + 1/3
 ***)
 
 Definition curve : CurveParameters :=
   {|
-    sz := 15%nat;
-    base := 17;
+    sz := 12%nat;
+    base := 21 + 1/3;
     bitwidth := 32;
     s := 2^256;
     c := [(1, 977); (2^32, 1)];
-    carry_chains := Some [seq 0 (pred 15); [0; 1]]%nat;
+    carry_chains := Some [[0; 11]; [1; 0; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11]; [1; 0]]%nat;
 
     a24 := None;
     coef_div_modulus := Some 2%nat;