Remake some curves

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Specific/solinas64_2e512m569/CurveParameters.v b/src/Specific/solinas64_2e512m569/CurveParameters.v
index 91ab7fcce..4d37db464 100644
--- a/src/Specific/solinas64_2e512m569/CurveParameters.v
+++ b/src/Specific/solinas64_2e512m569/CurveParameters.v
@@ -3,17 +3,17 @@ Require Import Crypto.Util.LetIn.
 
 (***
 Modulus : 2^512 - 569
-Base: 32
+Base: 51.2
 ***)
 
 Definition curve : CurveParameters :=
   {|
-    sz := 16%nat;
-    base := 32;
+    sz := 10%nat;
+    base := 51 + 1/5;
     bitwidth := 64;
     s := 2^512;
     c := [(1, 569)];
-    carry_chains := Some [seq 0 (pred 16); [0; 1]]%nat;
+    carry_chains := Some [seq 0 (pred 10); [0; 1]]%nat;
 
     a24 := None;
     coef_div_modulus := Some 2%nat;