elliptic-curve 0.2.2 → 0.3.0

raw patch · 228 files changed

+13275/−13171 lines, 228 filesdep +elliptic-curvedep +groupsdep −arithmoidep ~basedep ~galois-fielddep ~protoludePVP ok

version bump matches the API change (PVP)

Dependencies added: elliptic-curve, groups

Dependencies removed: arithmoi

Dependency ranges changed: base, galois-field, protolude

API changes (from Hackage documentation)

Files

• ChangeLog.md +8/−0
• README.md +89/−85
• bench/Bench/Binary.hs +50/−0
• bench/Bench/Curve.hs +8/−0
• bench/Bench/Edwards.hs +32/−0
• bench/Bench/Montgomery.hs +25/−0
• bench/Bench/Weierstrass.hs +117/−0
• bench/Main.hs +14/−0
• benchmarks/BinaryBenchmarks.hs +0/−50
• benchmarks/EdwardsBenchmarks.hs +0/−32
• benchmarks/FieldBenchmarks.hs +0/−11
• benchmarks/GroupBenchmarks.hs +0/−8
• benchmarks/Main.hs +0/−15
• benchmarks/MontgomeryBenchmarks.hs +0/−25
• benchmarks/WeierstrassBenchmarks.hs +0/−109
• elliptic-curve.cabal +121/−295
• generate/Generate/Binary/Curve.hs +25/−34
• generate/Generate/Binary/Generate.hs +11/−15
• generate/Generate/Binary/Parameters.hs +144/−164
• generate/Generate/Binary/Types.hs +7/−4
• generate/Generate/Curve.hs +60/−33
• generate/Generate/Edwards/Curve.hs +25/−34
• generate/Generate/Edwards/Generate.hs +11/−15
• generate/Generate/Edwards/Parameters.hs +72/−83
• generate/Generate/Edwards/Types.hs +7/−4
• generate/Generate/Generate.hs +14/−17
• generate/Generate/Montgomery/Curve.hs +24/−33
• generate/Generate/Montgomery/Generate.hs +11/−15
• generate/Generate/Montgomery/Parameters.hs +48/−56
• generate/Generate/Montgomery/Types.hs +7/−4
• generate/Generate/Pretty.hs +9/−4
• generate/Generate/Types.hs +10/−10
• generate/Generate/Weierstrass/Curve.hs +26/−35
• generate/Generate/Weierstrass/Generate.hs +11/−15
• generate/Generate/Weierstrass/Parameters.hs +1086/−1029
• generate/Generate/Weierstrass/Types.hs +7/−4
• generate/Main.hs +8/−8
• src/Curve.hs +0/−129
• src/Curve/Binary.hs +0/−251
• src/Curve/Binary/SECT113R1.hs +0/−107
• src/Curve/Binary/SECT113R2.hs +0/−107
• src/Curve/Binary/SECT131R1.hs +0/−107
• src/Curve/Binary/SECT131R2.hs +0/−107
• src/Curve/Binary/SECT163K1.hs +0/−107
• src/Curve/Binary/SECT163R1.hs +0/−107
• src/Curve/Binary/SECT163R2.hs +0/−107
• src/Curve/Binary/SECT193R1.hs +0/−107
• src/Curve/Binary/SECT193R2.hs +0/−107
• src/Curve/Binary/SECT233K1.hs +0/−107
• src/Curve/Binary/SECT233R1.hs +0/−107
• src/Curve/Binary/SECT239K1.hs +0/−107
• src/Curve/Binary/SECT283K1.hs +0/−107
• src/Curve/Binary/SECT283R1.hs +0/−107
• src/Curve/Binary/SECT409K1.hs +0/−107
• src/Curve/Binary/SECT409R1.hs +0/−107
• src/Curve/Binary/SECT571K1.hs +0/−107
• src/Curve/Binary/SECT571R1.hs +0/−107
• src/Curve/Edwards.hs +0/−243
• src/Curve/Edwards/Curve1174.hs +0/−106
• src/Curve/Edwards/Curve41417.hs +0/−106
• src/Curve/Edwards/E222.hs +0/−106
• src/Curve/Edwards/E382.hs +0/−106
• src/Curve/Edwards/E521.hs +0/−106
• src/Curve/Edwards/Ed25519.hs +0/−106
• src/Curve/Edwards/Ed3363.hs +0/−106
• src/Curve/Edwards/Ed448.hs +0/−106
• src/Curve/Edwards/JubJub.hs +0/−106
• src/Curve/Montgomery.hs +0/−137
• src/Curve/Montgomery/Curve25519.hs +0/−93
• src/Curve/Montgomery/Curve383187.hs +0/−93
• src/Curve/Montgomery/Curve448.hs +0/−93
• src/Curve/Montgomery/M221.hs +0/−93
• src/Curve/Montgomery/M383.hs +0/−93
• src/Curve/Montgomery/M511.hs +0/−93
• src/Curve/Weierstrass.hs +0/−386
• src/Curve/Weierstrass/ANSSIFRP256V1.hs +0/−119
• src/Curve/Weierstrass/Anomalous.hs +0/−119
• src/Curve/Weierstrass/BLS12381.hs +0/−119
• src/Curve/Weierstrass/BLS12381T.hs +0/−131
• src/Curve/Weierstrass/BLS48581.hs +0/−119
• src/Curve/Weierstrass/BLS48581T.hs +0/−169
• src/Curve/Weierstrass/BN224.hs +0/−119
• src/Curve/Weierstrass/BN254.hs +0/−119
• src/Curve/Weierstrass/BN254A.hs +0/−119
• src/Curve/Weierstrass/BN254AT.hs +0/−131
• src/Curve/Weierstrass/BN254B.hs +0/−119
• src/Curve/Weierstrass/BN254BT.hs +0/−131
• src/Curve/Weierstrass/BN254T.hs +0/−131
• src/Curve/Weierstrass/BN256.hs +0/−119
• src/Curve/Weierstrass/BN384.hs +0/−119
• src/Curve/Weierstrass/BN462.hs +0/−119
• src/Curve/Weierstrass/BN462T.hs +0/−131
• src/Curve/Weierstrass/BN512.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP160R1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP160T1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP192R1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP192T1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP224R1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP224T1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP256R1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP256T1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP320R1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP320T1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP384R1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP384T1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP512R1.hs +0/−119
• src/Curve/Weierstrass/BrainpoolP512T1.hs +0/−119
• src/Curve/Weierstrass/SECP112R1.hs +0/−119
• src/Curve/Weierstrass/SECP112R2.hs +0/−119
• src/Curve/Weierstrass/SECP128R1.hs +0/−119
• src/Curve/Weierstrass/SECP128R2.hs +0/−119
• src/Curve/Weierstrass/SECP160K1.hs +0/−119
• src/Curve/Weierstrass/SECP160R1.hs +0/−119
• src/Curve/Weierstrass/SECP160R2.hs +0/−119
• src/Curve/Weierstrass/SECP192K1.hs +0/−119
• src/Curve/Weierstrass/SECP192R1.hs +0/−119
• src/Curve/Weierstrass/SECP224K1.hs +0/−119
• src/Curve/Weierstrass/SECP224R1.hs +0/−119
• src/Curve/Weierstrass/SECP256K1.hs +0/−119
• src/Curve/Weierstrass/SECP256R1.hs +0/−119
• src/Curve/Weierstrass/SECP384R1.hs +0/−119
• src/Curve/Weierstrass/SECP521R1.hs +0/−119
• src/Data/Curve.hs +179/−0
• src/Data/Curve/Binary.hs +258/−0
• src/Data/Curve/Binary/SECT113R1.hs +106/−0
• src/Data/Curve/Binary/SECT113R2.hs +106/−0
• src/Data/Curve/Binary/SECT131R1.hs +106/−0
• src/Data/Curve/Binary/SECT131R2.hs +106/−0
• src/Data/Curve/Binary/SECT163K1.hs +106/−0
• src/Data/Curve/Binary/SECT163R1.hs +106/−0
• src/Data/Curve/Binary/SECT163R2.hs +106/−0
• src/Data/Curve/Binary/SECT193R1.hs +106/−0
• src/Data/Curve/Binary/SECT193R2.hs +106/−0
• src/Data/Curve/Binary/SECT233K1.hs +106/−0
• src/Data/Curve/Binary/SECT233R1.hs +106/−0
• src/Data/Curve/Binary/SECT239K1.hs +106/−0
• src/Data/Curve/Binary/SECT283K1.hs +106/−0
• src/Data/Curve/Binary/SECT283R1.hs +106/−0
• src/Data/Curve/Binary/SECT409K1.hs +106/−0
• src/Data/Curve/Binary/SECT409R1.hs +106/−0
• src/Data/Curve/Binary/SECT571K1.hs +106/−0
• src/Data/Curve/Binary/SECT571R1.hs +106/−0
• src/Data/Curve/Edwards.hs +249/−0
• src/Data/Curve/Edwards/Curve1174.hs +106/−0
• src/Data/Curve/Edwards/Curve41417.hs +106/−0
• src/Data/Curve/Edwards/E222.hs +106/−0
• src/Data/Curve/Edwards/E382.hs +106/−0
• src/Data/Curve/Edwards/E521.hs +106/−0
• src/Data/Curve/Edwards/Ed25519.hs +106/−0
• src/Data/Curve/Edwards/Ed3363.hs +106/−0
• src/Data/Curve/Edwards/Ed448.hs +106/−0
• src/Data/Curve/Edwards/JubJub.hs +106/−0
• src/Data/Curve/Montgomery.hs +141/−0
• src/Data/Curve/Montgomery/Curve25519.hs +93/−0
• src/Data/Curve/Montgomery/Curve383187.hs +93/−0
• src/Data/Curve/Montgomery/Curve448.hs +93/−0
• src/Data/Curve/Montgomery/M221.hs +93/−0
• src/Data/Curve/Montgomery/M383.hs +93/−0
• src/Data/Curve/Montgomery/M511.hs +93/−0
• src/Data/Curve/Weierstrass.hs +398/−0
• src/Data/Curve/Weierstrass/ANSSIFRP256V1.hs +119/−0
• src/Data/Curve/Weierstrass/Anomalous.hs +119/−0
• src/Data/Curve/Weierstrass/BLS12381.hs +119/−0
• src/Data/Curve/Weierstrass/BLS12381T.hs +123/−0
• src/Data/Curve/Weierstrass/BLS48581.hs +119/−0
• src/Data/Curve/Weierstrass/BLS48581T.hs +165/−0
• src/Data/Curve/Weierstrass/BN224.hs +119/−0
• src/Data/Curve/Weierstrass/BN254.hs +119/−0
• src/Data/Curve/Weierstrass/BN254A.hs +119/−0
• src/Data/Curve/Weierstrass/BN254AT.hs +123/−0
• src/Data/Curve/Weierstrass/BN254B.hs +119/−0
• src/Data/Curve/Weierstrass/BN254BT.hs +123/−0
• src/Data/Curve/Weierstrass/BN254C.hs +119/−0
• src/Data/Curve/Weierstrass/BN254CT.hs +123/−0
• src/Data/Curve/Weierstrass/BN254D.hs +119/−0
• src/Data/Curve/Weierstrass/BN254DT.hs +123/−0
• src/Data/Curve/Weierstrass/BN254T.hs +123/−0
• src/Data/Curve/Weierstrass/BN256.hs +119/−0
• src/Data/Curve/Weierstrass/BN384.hs +119/−0
• src/Data/Curve/Weierstrass/BN462.hs +119/−0
• src/Data/Curve/Weierstrass/BN462T.hs +123/−0
• src/Data/Curve/Weierstrass/BN512.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP160R1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP160T1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP192R1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP192T1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP224R1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP224T1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP256R1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP256T1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP320R1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP320T1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP384R1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP384T1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP512R1.hs +119/−0
• src/Data/Curve/Weierstrass/BrainpoolP512T1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP112R1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP112R2.hs +119/−0
• src/Data/Curve/Weierstrass/SECP128R1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP128R2.hs +119/−0
• src/Data/Curve/Weierstrass/SECP160K1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP160R1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP160R2.hs +119/−0
• src/Data/Curve/Weierstrass/SECP192K1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP192R1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP224K1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP224R1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP256K1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP256R1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP384R1.hs +119/−0
• src/Data/Curve/Weierstrass/SECP521R1.hs +119/−0
• src/Group.hs +0/−56
• src/Group/Field.hs +0/−109
• src/Group/Field/BN254TF.hs +0/−94
• test/Main.hs +14/−0
• test/Test/Binary.hs +53/−0
• test/Test/Curve.hs +78/−0
• test/Test/Edwards.hs +35/−0
• test/Test/Field.hs +72/−0
• test/Test/Montgomery.hs +28/−0
• test/Test/Weierstrass.hs +120/−0
• tests/BinaryTests.hs +0/−53
• tests/EdwardsTests.hs +0/−35
• tests/FieldTests.hs +0/−11
• tests/GroupTests.hs +0/−125
• tests/Main.hs +0/−15
• tests/MontgomeryTests.hs +0/−28
• tests/WeierstrassTests.hs +0/−112

@@ -1,5 +1,13 @@ # Change log for elliptic-curve +## 0.3.0++* Refactor library structure from `Curve` to `Data.Curve`.+* Remove `Group` class and `BN254TF` field group.+* Fix dependency issue with `galois-field`.+* Add `BN254C` and `BN254D` elliptic curves.+* Add `frob` function for elliptic curves.+ ## 0.2.2  * Fix `Arbitrary` instances for elliptic curves.

@@ -10,7 +10,7 @@  ## Curve representations -An [**elliptic curve**](src/Curve.hs) E(K) over a field K is a *smooth projective plane algebraic cubic curve* with a specified base point `O`, and the *points* on E(K) form an *algebraic group* with identity point `O`. By the *Riemann-Roch theorem*, any elliptic curve is isomorphic to a cubic curve of the form+An [**elliptic curve**](src/Data/Curve.hs) E(K) over a field K is a *smooth projective plane algebraic cubic curve* with a specified base point `O`, and the *points* on E(K) form an *algebraic group* with identity point `O`. By the *Riemann-Roch theorem*, any elliptic curve is isomorphic to a cubic curve of the form ``` E(K) = {(x, y) | y^2 + a1xy + a3y = x^3 + a2x^2 + a4x + a6} U {O} ```@@ -18,7 +18,7 @@  ### Weierstrass curves -A (short) [**Weierstrass curve**](src/Curve/Weierstrass.hs) is an elliptic curve over GF(p) for some prime p, and is of the form+A (short) [**Weierstrass curve**](src/Data/Curve/Weierstrass.hs) is an elliptic curve over GF(p) for some prime p, and is of the form ``` E(GF(p)) = {(x, y) | y^2 = x^3 + Ax^2 + B} U {O} ```@@ -26,7 +26,7 @@  ### Binary curves -A (short Weierstrass) [**binary curve**](src/Curve/Binary.hs) is an elliptic curve over GF(2^m) for some positive m, and is of the form+A (short Weierstrass) [**binary curve**](src/Data/Curve/Binary.hs) is an elliptic curve over GF(2^m) for some positive m, and is of the form ``` E(GF(2^m)) = {(x, y) | y^2 = x^3 + Ax + B} U {O} ```@@ -34,7 +34,7 @@  ### Montgomery curves -A [**Montgomery curve**](src/Curve/Montgomery.hs) is an elliptic curve over GF(p) for some prime p, and is of the form+A [**Montgomery curve**](src/Data/Curve/Montgomery.hs) is an elliptic curve over GF(p) for some prime p, and is of the form ``` E(GF(p)) = {(x, y) | By^2 = x^3 + Ax^2 + x} U {O} ```@@ -42,7 +42,7 @@  ### Edwards curves -A (twisted) [**Edwards curve**](src/Curve/Edwards.hs) is an elliptic curve over GF(p) for some prime p, and is of the form+A (twisted) [**Edwards curve**](src/Data/Curve/Edwards.hs) is an elliptic curve over GF(p) for some prime p, and is of the form ``` E(GF(p)) = {(x, y) | Ax^2 + y^2 = 1 + Dx^2y^2} ```@@ -168,98 +168,102 @@ ### Binary curves  * SECT (NIST) curves-  * [SECT113R1](src/Curve/Binary/SECT113R1.hs)-  * [SECT113R2](src/Curve/Binary/SECT113R2.hs)-  * [SECT131R1](src/Curve/Binary/SECT131R1.hs)-  * [SECT131R2](src/Curve/Binary/SECT131R2.hs)-  * [SECT163K1](src/Curve/Binary/SECT163K1.hs)-  * [SECT163R1](src/Curve/Binary/SECT163R1.hs)-  * [SECT163R2](src/Curve/Binary/SECT163R2.hs)-  * [SECT193R1](src/Curve/Binary/SECT193R1.hs)-  * [SECT193R2](src/Curve/Binary/SECT193R2.hs)-  * [SECT233K1](src/Curve/Binary/SECT233K1.hs)-  * [SECT233R1](src/Curve/Binary/SECT233R1.hs)-  * [SECT239K1](src/Curve/Binary/SECT239K1.hs)-  * [SECT283K1](src/Curve/Binary/SECT283K1.hs)-  * [SECT283R1](src/Curve/Binary/SECT283R1.hs)-  * [SECT409K1](src/Curve/Binary/SECT409K1.hs)-  * [SECT409R1](src/Curve/Binary/SECT409R1.hs)-  * [SECT571K1](src/Curve/Binary/SECT571K1.hs)-  * [SECT571R1](src/Curve/Binary/SECT571R1.hs)+  * [SECT113R1](src/Data/Curve/Binary/SECT113R1.hs)+  * [SECT113R2](src/Data/Curve/Binary/SECT113R2.hs)+  * [SECT131R1](src/Data/Curve/Binary/SECT131R1.hs)+  * [SECT131R2](src/Data/Curve/Binary/SECT131R2.hs)+  * [SECT163K1](src/Data/Curve/Binary/SECT163K1.hs)+  * [SECT163R1](src/Data/Curve/Binary/SECT163R1.hs)+  * [SECT163R2](src/Data/Curve/Binary/SECT163R2.hs)+  * [SECT193R1](src/Data/Curve/Binary/SECT193R1.hs)+  * [SECT193R2](src/Data/Curve/Binary/SECT193R2.hs)+  * [SECT233K1](src/Data/Curve/Binary/SECT233K1.hs)+  * [SECT233R1](src/Data/Curve/Binary/SECT233R1.hs)+  * [SECT239K1](src/Data/Curve/Binary/SECT239K1.hs)+  * [SECT283K1](src/Data/Curve/Binary/SECT283K1.hs)+  * [SECT283R1](src/Data/Curve/Binary/SECT283R1.hs)+  * [SECT409K1](src/Data/Curve/Binary/SECT409K1.hs)+  * [SECT409R1](src/Data/Curve/Binary/SECT409R1.hs)+  * [SECT571K1](src/Data/Curve/Binary/SECT571K1.hs)+  * [SECT571R1](src/Data/Curve/Binary/SECT571R1.hs)  ### Edwards curves  * Edwards curves-  * [Curve1174](src/Curve/Edwards/Curve1174.hs)-  * [Curve41417](src/Curve/Edwards/Curve41417.hs)-  * [E-222](src/Curve/Edwards/E222.hs)-  * [E-382](src/Curve/Edwards/E382.hs)-  * [E-521](src/Curve/Edwards/E521.hs)-  * [Ed25519 (Curve25519)](src/Curve/Edwards/Ed25519.hs)-  * [Ed3363 (HighFive)](src/Curve/Edwards/Ed3363.hs)-  * [Ed448 (Goldilocks)](src/Curve/Edwards/Ed448.hs)-  * [JubJub](src/Curve/Edwards/JubJub.hs)+  * [Curve1174](src/Data/Curve/Edwards/Curve1174.hs)+  * [Curve41417](src/Data/Curve/Edwards/Curve41417.hs)+  * [E-222](src/Data/Curve/Edwards/E222.hs)+  * [E-382](src/Data/Curve/Edwards/E382.hs)+  * [E-521](src/Data/Curve/Edwards/E521.hs)+  * [Ed25519 (Curve25519)](src/Data/Curve/Edwards/Ed25519.hs)+  * [Ed3363 (HighFive)](src/Data/Curve/Edwards/Ed3363.hs)+  * [Ed448 (Goldilocks)](src/Data/Curve/Edwards/Ed448.hs)+  * [JubJub](src/Data/Curve/Edwards/JubJub.hs)  ### Montgomery curves  * Montgomery curves-  * [Curve25519 (Ed25519)](src/Curve/Montgomery/Curve25519.hs)-  * [Curve383187](src/Curve/Montgomery/Curve383187.hs)-  * [Curve448 (Goldilocks)](src/Curve/Montgomery/Curve448.hs)-  * [M221](src/Curve/Montgomery/M221.hs)-  * [M383](src/Curve/Montgomery/M383.hs)-  * [M511](src/Curve/Montgomery/M511.hs)+  * [Curve25519 (Ed25519)](src/Data/Curve/Montgomery/Curve25519.hs)+  * [Curve383187](src/Data/Curve/Montgomery/Curve383187.hs)+  * [Curve448 (Goldilocks)](src/Data/Curve/Montgomery/Curve448.hs)+  * [M221](src/Data/Curve/Montgomery/M221.hs)+  * [M383](src/Data/Curve/Montgomery/M383.hs)+  * [M511](src/Data/Curve/Montgomery/M511.hs)  ### Weierstrass curves -* [Anomalous](src/Curve/Weierstrass/Anomalous.hs)-* [ANSSIFRP256V1](src/Curve/Weierstrass/ANSSIFRP256V1.hs)+* [Anomalous](src/Data/Curve/Weierstrass/Anomalous.hs)+* [ANSSIFRP256V1](src/Data/Curve/Weierstrass/ANSSIFRP256V1.hs) * Barreto-Lynn-Scott (BLS) curves-  * [BLS12381](src/Curve/Weierstrass/BLS12381.hs)-  * [BLS12381T](src/Curve/Weierstrass/BLS12381T.hs)-  * [BLS48581](src/Curve/Weierstrass/BLS48581.hs)-  * [BLS48581T](src/Curve/Weierstrass/BLS48581T.hs)+  * [BLS12381](src/Data/Curve/Weierstrass/BLS12381.hs)+  * [BLS12381T](src/Data/Curve/Weierstrass/BLS12381T.hs)+  * [BLS48581](src/Data/Curve/Weierstrass/BLS48581.hs)+  * [BLS48581T](src/Data/Curve/Weierstrass/BLS48581T.hs) * Barreto-Naehrig (BN) curves-  * [BN224 (Fp224BN)](src/Curve/Weierstrass/BN224.hs)-  * [BN254 (CurveSNARK)](src/Curve/Weierstrass/BN254.hs)-  * [BN254T (CurveSNARKn2)](src/Curve/Weierstrass/BN254T.hs)-  * [BN254A (Fp254BNa)](src/Curve/Weierstrass/BN254A.hs)-  * [BN254AT (Fp254n2BNa)](src/Curve/Weierstrass/BN254AT.hs)-  * [BN254B (Fp254BNb)](src/Curve/Weierstrass/BN254B.hs)-  * [BN254BT (Fp254n2BNb)](src/Curve/Weierstrass/BN254BT.hs)-  * [BN256 (Fp256BN)](src/Curve/Weierstrass/BN256.hs)-  * [BN384 (Fp384BN)](src/Curve/Weierstrass/BN384.hs)-  * [BN462 (Fp462BN)](src/Curve/Weierstrass/BN462.hs)-  * [BN462T (Fp462n2BN)](src/Curve/Weierstrass/BN462T.hs)-  * [BN512 (Fp512BN)](src/Curve/Weierstrass/BN512.hs)+  * [BN224 (Fp224BN)](src/Data/Curve/Weierstrass/BN224.hs)+  * [BN254 (CurveSNARK)](src/Data/Curve/Weierstrass/BN254.hs)+  * [BN254T (CurveSNARKn2)](src/Data/Curve/Weierstrass/BN254T.hs)+  * [BN254A (Fp254BNa)](src/Data/Curve/Weierstrass/BN254A.hs)+  * [BN254AT (Fp254n2BNa)](src/Data/Curve/Weierstrass/BN254AT.hs)+  * [BN254B (Fp254BNb)](src/Data/Curve/Weierstrass/BN254B.hs)+  * [BN254BT (Fp254n2BNb)](src/Data/Curve/Weierstrass/BN254BT.hs)+  * [BN254C (Fp254BNc)](src/Data/Curve/Weierstrass/BN254C.hs)+  * [BN254CT (Fp254n2BNc)](src/Data/Curve/Weierstrass/BN254CT.hs)+  * [BN254D (Fp254BNd)](src/Data/Curve/Weierstrass/BN254D.hs)+  * [BN254DT (Fp254n2BNd)](src/Data/Curve/Weierstrass/BN254DT.hs)+  * [BN256 (Fp256BN)](src/Data/Curve/Weierstrass/BN256.hs)+  * [BN384 (Fp384BN)](src/Data/Curve/Weierstrass/BN384.hs)+  * [BN462 (Fp462BN)](src/Data/Curve/Weierstrass/BN462.hs)+  * [BN462T (Fp462n2BN)](src/Data/Curve/Weierstrass/BN462T.hs)+  * [BN512 (Fp512BN)](src/Data/Curve/Weierstrass/BN512.hs) * Brainpool curves-  * [BrainpoolP160R1](src/Curve/Weierstrass/BrainpoolP160R1.hs)-  * [BrainpoolP160T1](src/Curve/Weierstrass/BrainpoolP160T1.hs)-  * [BrainpoolP192R1](src/Curve/Weierstrass/BrainpoolP192R1.hs)-  * [BrainpoolP192T1](src/Curve/Weierstrass/BrainpoolP192T1.hs)-  * [BrainpoolP224R1](src/Curve/Weierstrass/BrainpoolP224R1.hs)-  * [BrainpoolP224T1](src/Curve/Weierstrass/BrainpoolP224T1.hs)-  * [BrainpoolP256R1](src/Curve/Weierstrass/BrainpoolP256R1.hs)-  * [BrainpoolP256T1](src/Curve/Weierstrass/BrainpoolP256T1.hs)-  * [BrainpoolP320R1](src/Curve/Weierstrass/BrainpoolP320R1.hs)-  * [BrainpoolP320T1](src/Curve/Weierstrass/BrainpoolP320T1.hs)-  * [BrainpoolP384R1](src/Curve/Weierstrass/BrainpoolP384R1.hs)-  * [BrainpoolP384T1](src/Curve/Weierstrass/BrainpoolP384T1.hs)-  * [BrainpoolP512R1](src/Curve/Weierstrass/BrainpoolP512R1.hs)-  * [BrainpoolP512T1](src/Curve/Weierstrass/BrainpoolP512T1.hs)+  * [BrainpoolP160R1](src/Data/Curve/Weierstrass/BrainpoolP160R1.hs)+  * [BrainpoolP160T1](src/Data/Curve/Weierstrass/BrainpoolP160T1.hs)+  * [BrainpoolP192R1](src/Data/Curve/Weierstrass/BrainpoolP192R1.hs)+  * [BrainpoolP192T1](src/Data/Curve/Weierstrass/BrainpoolP192T1.hs)+  * [BrainpoolP224R1](src/Data/Curve/Weierstrass/BrainpoolP224R1.hs)+  * [BrainpoolP224T1](src/Data/Curve/Weierstrass/BrainpoolP224T1.hs)+  * [BrainpoolP256R1](src/Data/Curve/Weierstrass/BrainpoolP256R1.hs)+  * [BrainpoolP256T1](src/Data/Curve/Weierstrass/BrainpoolP256T1.hs)+  * [BrainpoolP320R1](src/Data/Curve/Weierstrass/BrainpoolP320R1.hs)+  * [BrainpoolP320T1](src/Data/Curve/Weierstrass/BrainpoolP320T1.hs)+  * [BrainpoolP384R1](src/Data/Curve/Weierstrass/BrainpoolP384R1.hs)+  * [BrainpoolP384T1](src/Data/Curve/Weierstrass/BrainpoolP384T1.hs)+  * [BrainpoolP512R1](src/Data/Curve/Weierstrass/BrainpoolP512R1.hs)+  * [BrainpoolP512T1](src/Data/Curve/Weierstrass/BrainpoolP512T1.hs) * SECP (NIST) curves-  * [SECP112R1](src/Curve/Weierstrass/SECP112R1.hs)-  * [SECP112R2](src/Curve/Weierstrass/SECP112R2.hs)-  * [SECP128R1](src/Curve/Weierstrass/SECP128R1.hs)-  * [SECP128R2](src/Curve/Weierstrass/SECP128R2.hs)-  * [SECP160K1](src/Curve/Weierstrass/SECP160K1.hs)-  * [SECP160R1](src/Curve/Weierstrass/SECP160R1.hs)-  * [SECP160R2](src/Curve/Weierstrass/SECP160R2.hs)-  * [SECP192K1](src/Curve/Weierstrass/SECP192K1.hs)-  * [SECP192R1](src/Curve/Weierstrass/SECP192R1.hs)-  * [SECP224K1](src/Curve/Weierstrass/SECP224K1.hs)-  * [SECP224R1](src/Curve/Weierstrass/SECP224R1.hs)-  * [SECP256K1](src/Curve/Weierstrass/SECP256K1.hs)-  * [SECP256R1](src/Curve/Weierstrass/SECP256R1.hs)-  * [SECP384R1](src/Curve/Weierstrass/SECP384R1.hs)-  * [SECP521R1](src/Curve/Weierstrass/SECP521R1.hs)+  * [SECP112R1](src/Data/Curve/Weierstrass/SECP112R1.hs)+  * [SECP112R2](src/Data/Curve/Weierstrass/SECP112R2.hs)+  * [SECP128R1](src/Data/Curve/Weierstrass/SECP128R1.hs)+  * [SECP128R2](src/Data/Curve/Weierstrass/SECP128R2.hs)+  * [SECP160K1](src/Data/Curve/Weierstrass/SECP160K1.hs)+  * [SECP160R1](src/Data/Curve/Weierstrass/SECP160R1.hs)+  * [SECP160R2](src/Data/Curve/Weierstrass/SECP160R2.hs)+  * [SECP192K1](src/Data/Curve/Weierstrass/SECP192K1.hs)+  * [SECP192R1](src/Data/Curve/Weierstrass/SECP192R1.hs)+  * [SECP224K1](src/Data/Curve/Weierstrass/SECP224K1.hs)+  * [SECP224R1](src/Data/Curve/Weierstrass/SECP224R1.hs)+  * [SECP256K1](src/Data/Curve/Weierstrass/SECP256K1.hs)+  * [SECP256R1](src/Data/Curve/Weierstrass/SECP256R1.hs)+  * [SECP384R1](src/Data/Curve/Weierstrass/SECP384R1.hs)+  * [SECP521R1](src/Data/Curve/Weierstrass/SECP521R1.hs)

@@ -0,0 +1,50 @@+module Bench.Binary where++import Criterion.Main+import qualified Data.Curve.Binary.SECT113R1 as SECT113R1+import qualified Data.Curve.Binary.SECT113R2 as SECT113R2+import qualified Data.Curve.Binary.SECT131R1 as SECT131R1+import qualified Data.Curve.Binary.SECT131R2 as SECT131R2+import qualified Data.Curve.Binary.SECT163K1 as SECT163K1+import qualified Data.Curve.Binary.SECT163R1 as SECT163R1+import qualified Data.Curve.Binary.SECT163R2 as SECT163R2+import qualified Data.Curve.Binary.SECT193R1 as SECT193R1+import qualified Data.Curve.Binary.SECT193R2 as SECT193R2+import qualified Data.Curve.Binary.SECT233K1 as SECT233K1+import qualified Data.Curve.Binary.SECT233R1 as SECT233R1+import qualified Data.Curve.Binary.SECT239K1 as SECT239K1+import qualified Data.Curve.Binary.SECT283K1 as SECT283K1+import qualified Data.Curve.Binary.SECT283R1 as SECT283R1+import qualified Data.Curve.Binary.SECT409K1 as SECT409K1+import qualified Data.Curve.Binary.SECT409R1 as SECT409R1+import qualified Data.Curve.Binary.SECT571K1 as SECT571K1+import qualified Data.Curve.Binary.SECT571R1 as SECT571R1++import Bench.Curve++benchBinary :: Benchmark+benchBinary = bgroup "Binary"+  [ benchBinary' "SECT113R1" SECT113R1.gA SECT113R1.gP+  , benchBinary' "SECT113R2" SECT113R2.gA SECT113R2.gP+  , benchBinary' "SECT131R1" SECT131R1.gA SECT131R1.gP+  , benchBinary' "SECT131R2" SECT131R2.gA SECT131R2.gP+  , benchBinary' "SECT163K1" SECT163K1.gA SECT163K1.gP+  , benchBinary' "SECT163R1" SECT163R1.gA SECT163R1.gP+  , benchBinary' "SECT163R2" SECT163R2.gA SECT163R2.gP+  , benchBinary' "SECT193R1" SECT193R1.gA SECT193R1.gP+  , benchBinary' "SECT193R2" SECT193R2.gA SECT193R2.gP+  , benchBinary' "SECT233K1" SECT233K1.gA SECT233K1.gP+  , benchBinary' "SECT233R1" SECT233R1.gA SECT233R1.gP+  , benchBinary' "SECT239K1" SECT239K1.gA SECT239K1.gP+  , benchBinary' "SECT283K1" SECT283K1.gA SECT283K1.gP+  , benchBinary' "SECT283R1" SECT283R1.gA SECT283R1.gP+  , benchBinary' "SECT409K1" SECT409K1.gA SECT409K1.gP+  , benchBinary' "SECT409R1" SECT409R1.gA SECT409R1.gP+  , benchBinary' "SECT571K1" SECT571K1.gA SECT571K1.gP+  , benchBinary' "SECT571R1" SECT571R1.gA SECT571R1.gP+  ]+  where+    benchBinary' curve affine projective = bgroup curve+      [ benchmark "Affine" affine+      , benchmark "Projective" projective+      ]

@@ -0,0 +1,8 @@+module Bench.Curve where++import Criterion.Main+import Data.Curve+import GHC.Base++benchmark :: Curve f c e q r => String -> Point f c e q r -> Benchmark+benchmark = (. nf (flip mul' (-3 :: Int))) . bench

@@ -0,0 +1,32 @@+module Bench.Edwards where++import Criterion.Main+import qualified Data.Curve.Edwards.Curve1174  as Curve1174+import qualified Data.Curve.Edwards.Curve41417 as Curve41417+import qualified Data.Curve.Edwards.E222       as E222+import qualified Data.Curve.Edwards.E382       as E382+import qualified Data.Curve.Edwards.E521       as E521+import qualified Data.Curve.Edwards.Ed448      as Ed448+import qualified Data.Curve.Edwards.Ed3363     as Ed3363+import qualified Data.Curve.Edwards.Ed25519    as Ed25519+import qualified Data.Curve.Edwards.JubJub     as JubJub++import Bench.Curve++benchEdwards :: Benchmark+benchEdwards = bgroup "Edwards"+  [ benchEdwards'  "Curve1174"  Curve1174.gA  Curve1174.gP+  , benchEdwards' "Curve41417" Curve41417.gA Curve41417.gP+  , benchEdwards'       "E222"       E222.gA       E222.gP+  , benchEdwards'       "E382"       E382.gA       E382.gP+  , benchEdwards'       "E521"       E521.gA       E521.gP+  , benchEdwards'      "Ed448"      Ed448.gA      Ed448.gP+  , benchEdwards'     "Ed3363"     Ed3363.gA     Ed3363.gP+  , benchEdwards'    "Ed25519"    Ed25519.gA    Ed25519.gP+  , benchEdwards'     "JubJub"     JubJub.gA     JubJub.gP+  ]+  where+    benchEdwards' curve affine projective = bgroup curve+      [ benchmark "Affine" affine+      , benchmark "Projective" projective+      ]

@@ -0,0 +1,25 @@+module Bench.Montgomery where++import Criterion.Main+import qualified Data.Curve.Montgomery.Curve448    as Curve448+import qualified Data.Curve.Montgomery.Curve25519  as Curve25519+import qualified Data.Curve.Montgomery.Curve383187 as Curve383187+import qualified Data.Curve.Montgomery.M221        as M221+import qualified Data.Curve.Montgomery.M383        as M383+import qualified Data.Curve.Montgomery.M511        as M511++import Bench.Curve++benchMontgomery :: Benchmark+benchMontgomery = bgroup "Montgomery"+  [ benchMontgomery'    "Curve448"    Curve448.gA+  , benchMontgomery'  "Curve25519"  Curve25519.gA+  , benchMontgomery' "Curve383187" Curve383187.gA+  , benchMontgomery'        "M221"        M221.gA+  , benchMontgomery'        "M383"        M383.gA+  , benchMontgomery'        "M511"        M511.gA+  ]+  where+    benchMontgomery' curve affine = bgroup curve+      [ benchmark "Affine" affine+      ]

@@ -0,0 +1,117 @@+module Bench.Weierstrass where++import Criterion.Main+import qualified Data.Curve.Weierstrass.Anomalous       as Anomalous+import qualified Data.Curve.Weierstrass.ANSSIFRP256V1   as ANSSIFRP256V1+import qualified Data.Curve.Weierstrass.BLS12381        as BLS12381+import qualified Data.Curve.Weierstrass.BLS12381T       as BLS12381T+import qualified Data.Curve.Weierstrass.BLS48581        as BLS48581+import qualified Data.Curve.Weierstrass.BLS48581T       as BLS48581T+import qualified Data.Curve.Weierstrass.BN224           as BN224+import qualified Data.Curve.Weierstrass.BN254           as BN254+import qualified Data.Curve.Weierstrass.BN254T          as BN254T+import qualified Data.Curve.Weierstrass.BN254A          as BN254A+import qualified Data.Curve.Weierstrass.BN254AT         as BN254AT+import qualified Data.Curve.Weierstrass.BN254B          as BN254B+import qualified Data.Curve.Weierstrass.BN254BT         as BN254BT+import qualified Data.Curve.Weierstrass.BN254C          as BN254C+import qualified Data.Curve.Weierstrass.BN254CT         as BN254CT+import qualified Data.Curve.Weierstrass.BN254D          as BN254D+import qualified Data.Curve.Weierstrass.BN254DT         as BN254DT+import qualified Data.Curve.Weierstrass.BN256           as BN256+import qualified Data.Curve.Weierstrass.BN384           as BN384+import qualified Data.Curve.Weierstrass.BN462           as BN462+import qualified Data.Curve.Weierstrass.BN462T          as BN462T+import qualified Data.Curve.Weierstrass.BN512           as BN512+import qualified Data.Curve.Weierstrass.BrainpoolP160R1 as BrainpoolP160R1+import qualified Data.Curve.Weierstrass.BrainpoolP160T1 as BrainpoolP160T1+import qualified Data.Curve.Weierstrass.BrainpoolP192R1 as BrainpoolP192R1+import qualified Data.Curve.Weierstrass.BrainpoolP192T1 as BrainpoolP192T1+import qualified Data.Curve.Weierstrass.BrainpoolP224R1 as BrainpoolP224R1+import qualified Data.Curve.Weierstrass.BrainpoolP224T1 as BrainpoolP224T1+import qualified Data.Curve.Weierstrass.BrainpoolP256R1 as BrainpoolP256R1+import qualified Data.Curve.Weierstrass.BrainpoolP256T1 as BrainpoolP256T1+import qualified Data.Curve.Weierstrass.BrainpoolP320R1 as BrainpoolP320R1+import qualified Data.Curve.Weierstrass.BrainpoolP320T1 as BrainpoolP320T1+import qualified Data.Curve.Weierstrass.BrainpoolP384R1 as BrainpoolP384R1+import qualified Data.Curve.Weierstrass.BrainpoolP384T1 as BrainpoolP384T1+import qualified Data.Curve.Weierstrass.BrainpoolP512R1 as BrainpoolP512R1+import qualified Data.Curve.Weierstrass.BrainpoolP512T1 as BrainpoolP512T1+import qualified Data.Curve.Weierstrass.SECP112R1       as SECP112R1+import qualified Data.Curve.Weierstrass.SECP112R2       as SECP112R2+import qualified Data.Curve.Weierstrass.SECP128R1       as SECP128R1+import qualified Data.Curve.Weierstrass.SECP128R2       as SECP128R2+import qualified Data.Curve.Weierstrass.SECP160K1       as SECP160K1+import qualified Data.Curve.Weierstrass.SECP160R1       as SECP160R1+import qualified Data.Curve.Weierstrass.SECP160R2       as SECP160R2+import qualified Data.Curve.Weierstrass.SECP192K1       as SECP192K1+import qualified Data.Curve.Weierstrass.SECP192R1       as SECP192R1+import qualified Data.Curve.Weierstrass.SECP224K1       as SECP224K1+import qualified Data.Curve.Weierstrass.SECP224R1       as SECP224R1+import qualified Data.Curve.Weierstrass.SECP256K1       as SECP256K1+import qualified Data.Curve.Weierstrass.SECP256R1       as SECP256R1+import qualified Data.Curve.Weierstrass.SECP384R1       as SECP384R1+import qualified Data.Curve.Weierstrass.SECP521R1       as SECP521R1++import Bench.Curve++benchWeierstrass :: Benchmark+benchWeierstrass = bgroup "Weierstrass"+  [ benchWeierstrass'       "Anomalous"       Anomalous.gA       Anomalous.gJ       Anomalous.gP+  , benchWeierstrass'   "ANSSIFRP256V1"   ANSSIFRP256V1.gA   ANSSIFRP256V1.gJ   ANSSIFRP256V1.gP+  , benchWeierstrass'        "BLS12381"        BLS12381.gA        BLS12381.gJ        BLS12381.gP+  , benchWeierstrass'       "BLS12381T"       BLS12381T.gA       BLS12381T.gJ       BLS12381T.gP+  , benchWeierstrass'        "BLS48581"        BLS48581.gA        BLS48581.gJ        BLS48581.gP+  , benchWeierstrass'       "BLS48581T"       BLS48581T.gA       BLS48581T.gJ       BLS48581T.gP+  , benchWeierstrass'           "BN224"           BN224.gA           BN224.gJ           BN224.gP+  , benchWeierstrass'           "BN254"           BN254.gA           BN254.gJ           BN254.gP+  , benchWeierstrass'          "BN254T"          BN254T.gA          BN254T.gJ          BN254T.gP+  , benchWeierstrass'          "BN254A"          BN254A.gA          BN254A.gJ          BN254A.gP+  , benchWeierstrass'         "BN254AT"         BN254AT.gA         BN254AT.gJ         BN254AT.gP+  , benchWeierstrass'          "BN254B"          BN254B.gA          BN254B.gJ          BN254B.gP+  , benchWeierstrass'         "BN254BT"         BN254BT.gA         BN254BT.gJ         BN254BT.gP+  , benchWeierstrass'          "BN254C"          BN254C.gA          BN254C.gJ          BN254C.gP+  , benchWeierstrass'         "BN254CT"         BN254CT.gA         BN254CT.gJ         BN254CT.gP+  , benchWeierstrass'          "BN254D"          BN254D.gA          BN254D.gJ          BN254D.gP+  , benchWeierstrass'         "BN254DT"         BN254DT.gA         BN254DT.gJ         BN254DT.gP+  , benchWeierstrass'           "BN256"           BN256.gA           BN256.gJ           BN256.gP+  , benchWeierstrass'           "BN384"           BN384.gA           BN384.gJ           BN384.gP+  , benchWeierstrass'           "BN462"           BN462.gA           BN462.gJ           BN462.gP+  , benchWeierstrass'          "BN462T"          BN462T.gA          BN462T.gJ          BN462T.gP+  , benchWeierstrass'           "BN512"           BN512.gA           BN512.gJ           BN512.gP+  , benchWeierstrass' "BrainpoolP160R1" BrainpoolP160R1.gA BrainpoolP160R1.gJ BrainpoolP160R1.gP+  , benchWeierstrass' "BrainpoolP160T1" BrainpoolP160T1.gA BrainpoolP160T1.gJ BrainpoolP160T1.gP+  , benchWeierstrass' "BrainpoolP192R1" BrainpoolP192R1.gA BrainpoolP192R1.gJ BrainpoolP192R1.gP+  , benchWeierstrass' "BrainpoolP192T1" BrainpoolP192T1.gA BrainpoolP192T1.gJ BrainpoolP192T1.gP+  , benchWeierstrass' "BrainpoolP224R1" BrainpoolP224R1.gA BrainpoolP224R1.gJ BrainpoolP224R1.gP+  , benchWeierstrass' "BrainpoolP224T1" BrainpoolP224T1.gA BrainpoolP224T1.gJ BrainpoolP224T1.gP+  , benchWeierstrass' "BrainpoolP256R1" BrainpoolP256R1.gA BrainpoolP256R1.gJ BrainpoolP256R1.gP+  , benchWeierstrass' "BrainpoolP256T1" BrainpoolP256T1.gA BrainpoolP256T1.gJ BrainpoolP256T1.gP+  , benchWeierstrass' "BrainpoolP320R1" BrainpoolP320R1.gA BrainpoolP320R1.gJ BrainpoolP320R1.gP+  , benchWeierstrass' "BrainpoolP320T1" BrainpoolP320T1.gA BrainpoolP320T1.gJ BrainpoolP320T1.gP+  , benchWeierstrass' "BrainpoolP384R1" BrainpoolP384R1.gA BrainpoolP384R1.gJ BrainpoolP384R1.gP+  , benchWeierstrass' "BrainpoolP384T1" BrainpoolP384T1.gA BrainpoolP384T1.gJ BrainpoolP384T1.gP+  , benchWeierstrass' "BrainpoolP512R1" BrainpoolP512R1.gA BrainpoolP512R1.gJ BrainpoolP512R1.gP+  , benchWeierstrass' "BrainpoolP512T1" BrainpoolP512T1.gA BrainpoolP512T1.gJ BrainpoolP512T1.gP+  , benchWeierstrass'       "SECP112R1"       SECP112R1.gA       SECP112R1.gJ       SECP112R1.gP+  , benchWeierstrass'       "SECP112R2"       SECP112R2.gA       SECP112R2.gJ       SECP112R2.gP+  , benchWeierstrass'       "SECP128R1"       SECP128R1.gA       SECP128R1.gJ       SECP128R1.gP+  , benchWeierstrass'       "SECP128R2"       SECP128R2.gA       SECP128R2.gJ       SECP128R2.gP+  , benchWeierstrass'       "SECP160K1"       SECP160K1.gA       SECP160K1.gJ       SECP160K1.gP+  , benchWeierstrass'       "SECP160R1"       SECP160R1.gA       SECP160R1.gJ       SECP160R1.gP+  , benchWeierstrass'       "SECP160R2"       SECP160R2.gA       SECP160R2.gJ       SECP160R2.gP+  , benchWeierstrass'       "SECP192K1"       SECP192K1.gA       SECP192K1.gJ       SECP192K1.gP+  , benchWeierstrass'       "SECP192R1"       SECP192R1.gA       SECP192R1.gJ       SECP192R1.gP+  , benchWeierstrass'       "SECP224K1"       SECP224K1.gA       SECP224K1.gJ       SECP224K1.gP+  , benchWeierstrass'       "SECP224R1"       SECP224R1.gA       SECP224R1.gJ       SECP224R1.gP+  , benchWeierstrass'       "SECP256K1"       SECP256K1.gA       SECP256K1.gJ       SECP256K1.gP+  , benchWeierstrass'       "SECP256R1"       SECP256R1.gA       SECP256R1.gJ       SECP256R1.gP+  , benchWeierstrass'       "SECP384R1"       SECP384R1.gA       SECP384R1.gJ       SECP384R1.gP+  , benchWeierstrass'       "SECP521R1"       SECP521R1.gA       SECP521R1.gJ       SECP521R1.gP+  ]+  where+    benchWeierstrass' curve affine jacobian projective = bgroup curve+      [ benchmark "Affine" affine+      , benchmark "Jacobian" jacobian+      , benchmark "Projective" projective+      ]

@@ -0,0 +1,14 @@+module Main where++import Protolude++import Criterion.Main++import Bench.Binary+import Bench.Edwards+import Bench.Montgomery+import Bench.Weierstrass++main :: IO ()+main = defaultMain+  [benchBinary, benchEdwards, benchMontgomery, benchWeierstrass]

@@ -1,50 +0,0 @@-module BinaryBenchmarks where--import Criterion.Main-import qualified Curve.Binary.SECT113R1 as SECT113R1-import qualified Curve.Binary.SECT113R2 as SECT113R2-import qualified Curve.Binary.SECT131R1 as SECT131R1-import qualified Curve.Binary.SECT131R2 as SECT131R2-import qualified Curve.Binary.SECT163K1 as SECT163K1-import qualified Curve.Binary.SECT163R1 as SECT163R1-import qualified Curve.Binary.SECT163R2 as SECT163R2-import qualified Curve.Binary.SECT193R1 as SECT193R1-import qualified Curve.Binary.SECT193R2 as SECT193R2-import qualified Curve.Binary.SECT233K1 as SECT233K1-import qualified Curve.Binary.SECT233R1 as SECT233R1-import qualified Curve.Binary.SECT239K1 as SECT239K1-import qualified Curve.Binary.SECT283K1 as SECT283K1-import qualified Curve.Binary.SECT283R1 as SECT283R1-import qualified Curve.Binary.SECT409K1 as SECT409K1-import qualified Curve.Binary.SECT409R1 as SECT409R1-import qualified Curve.Binary.SECT571K1 as SECT571K1-import qualified Curve.Binary.SECT571R1 as SECT571R1--import GroupBenchmarks--benchmarkBinary :: Benchmark-benchmarkBinary = bgroup "Binary"-  [ benchmarkBinary' "SECT113R1" SECT113R1.gA SECT113R1.gP-  , benchmarkBinary' "SECT113R2" SECT113R2.gA SECT113R2.gP-  , benchmarkBinary' "SECT131R1" SECT131R1.gA SECT131R1.gP-  , benchmarkBinary' "SECT131R2" SECT131R2.gA SECT131R2.gP-  , benchmarkBinary' "SECT163K1" SECT163K1.gA SECT163K1.gP-  , benchmarkBinary' "SECT163R1" SECT163R1.gA SECT163R1.gP-  , benchmarkBinary' "SECT163R2" SECT163R2.gA SECT163R2.gP-  , benchmarkBinary' "SECT193R1" SECT193R1.gA SECT193R1.gP-  , benchmarkBinary' "SECT193R2" SECT193R2.gA SECT193R2.gP-  , benchmarkBinary' "SECT233K1" SECT233K1.gA SECT233K1.gP-  , benchmarkBinary' "SECT233R1" SECT233R1.gA SECT233R1.gP-  , benchmarkBinary' "SECT239K1" SECT239K1.gA SECT239K1.gP-  , benchmarkBinary' "SECT283K1" SECT283K1.gA SECT283K1.gP-  , benchmarkBinary' "SECT283R1" SECT283R1.gA SECT283R1.gP-  , benchmarkBinary' "SECT409K1" SECT409K1.gA SECT409K1.gP-  , benchmarkBinary' "SECT409R1" SECT409R1.gA SECT409R1.gP-  , benchmarkBinary' "SECT571K1" SECT571K1.gA SECT571K1.gP-  , benchmarkBinary' "SECT571R1" SECT571R1.gA SECT571R1.gP-  ]-  where-    benchmarkBinary' curve affine projective = bgroup curve-      [ benchmark "Affine" affine-      , benchmark "Projective" projective-      ]

@@ -1,32 +0,0 @@-module EdwardsBenchmarks where--import Criterion.Main-import qualified Curve.Edwards.Curve1174  as Curve1174-import qualified Curve.Edwards.Curve41417 as Curve41417-import qualified Curve.Edwards.E222       as E222-import qualified Curve.Edwards.E382       as E382-import qualified Curve.Edwards.E521       as E521-import qualified Curve.Edwards.Ed448      as Ed448-import qualified Curve.Edwards.Ed3363     as Ed3363-import qualified Curve.Edwards.Ed25519    as Ed25519-import qualified Curve.Edwards.JubJub     as JubJub--import GroupBenchmarks--benchmarkEdwards :: Benchmark-benchmarkEdwards = bgroup "Edwards"-  [ benchmarkEdwards'  "Curve1174"  Curve1174.gA  Curve1174.gP-  , benchmarkEdwards' "Curve41417" Curve41417.gA Curve41417.gP-  , benchmarkEdwards'       "E222"       E222.gA       E222.gP-  , benchmarkEdwards'       "E382"       E382.gA       E382.gP-  , benchmarkEdwards'       "E521"       E521.gA       E521.gP-  , benchmarkEdwards'      "Ed448"      Ed448.gA      Ed448.gP-  , benchmarkEdwards'     "Ed3363"     Ed3363.gA     Ed3363.gP-  , benchmarkEdwards'    "Ed25519"    Ed25519.gA    Ed25519.gP-  , benchmarkEdwards'     "JubJub"     JubJub.gA     JubJub.gP-  ]-  where-    benchmarkEdwards' curve affine projective = bgroup curve-      [ benchmark "Affine" affine-      , benchmark "Projective" projective-      ]

@@ -1,11 +0,0 @@-module FieldBenchmarks where--import Criterion.Main-import qualified Group.Field.BN254TF as BN254TF--import GroupBenchmarks--benchmarkField :: Benchmark-benchmarkField = bgroup "Field"-  [ benchmark "BN254TF" BN254TF._g-  ]

@@ -1,8 +0,0 @@-module GroupBenchmarks where--import Criterion.Main-import GHC.Base-import Group--benchmark :: Group g => String -> g -> Benchmark-benchmark = (. whnf (flip mul' 3)) . bench

@@ -1,15 +0,0 @@-module Main where--import Protolude--import Criterion.Main--import BinaryBenchmarks-import EdwardsBenchmarks-import MontgomeryBenchmarks-import WeierstrassBenchmarks-import FieldBenchmarks--main :: IO ()-main = defaultMain-  [benchmarkBinary, benchmarkEdwards, benchmarkMontgomery, benchmarkWeierstrass, benchmarkField]

@@ -1,25 +0,0 @@-module MontgomeryBenchmarks where--import Criterion.Main-import qualified Curve.Montgomery.Curve448    as Curve448-import qualified Curve.Montgomery.Curve25519  as Curve25519-import qualified Curve.Montgomery.Curve383187 as Curve383187-import qualified Curve.Montgomery.M221        as M221-import qualified Curve.Montgomery.M383        as M383-import qualified Curve.Montgomery.M511        as M511--import GroupBenchmarks--benchmarkMontgomery :: Benchmark-benchmarkMontgomery = bgroup "Montgomery"-  [ benchmarkMontgomery'    "Curve448"    Curve448.gA-  , benchmarkMontgomery'  "Curve25519"  Curve25519.gA-  , benchmarkMontgomery' "Curve383187" Curve383187.gA-  , benchmarkMontgomery'        "M221"        M221.gA-  , benchmarkMontgomery'        "M383"        M383.gA-  , benchmarkMontgomery'        "M511"        M511.gA-  ]-  where-    benchmarkMontgomery' curve affine = bgroup curve-      [ benchmark "Affine" affine-      ]

@@ -1,109 +0,0 @@-module WeierstrassBenchmarks where--import Criterion.Main-import qualified Curve.Weierstrass.Anomalous       as Anomalous-import qualified Curve.Weierstrass.ANSSIFRP256V1   as ANSSIFRP256V1-import qualified Curve.Weierstrass.BLS12381        as BLS12381-import qualified Curve.Weierstrass.BLS12381T       as BLS12381T-import qualified Curve.Weierstrass.BLS48581        as BLS48581-import qualified Curve.Weierstrass.BLS48581T       as BLS48581T-import qualified Curve.Weierstrass.BN224           as BN224-import qualified Curve.Weierstrass.BN254           as BN254-import qualified Curve.Weierstrass.BN254T          as BN254T-import qualified Curve.Weierstrass.BN254A          as BN254A-import qualified Curve.Weierstrass.BN254AT         as BN254AT-import qualified Curve.Weierstrass.BN254B          as BN254B-import qualified Curve.Weierstrass.BN254BT         as BN254BT-import qualified Curve.Weierstrass.BN256           as BN256-import qualified Curve.Weierstrass.BN384           as BN384-import qualified Curve.Weierstrass.BN462           as BN462-import qualified Curve.Weierstrass.BN462T          as BN462T-import qualified Curve.Weierstrass.BN512           as BN512-import qualified Curve.Weierstrass.BrainpoolP160R1 as BrainpoolP160R1-import qualified Curve.Weierstrass.BrainpoolP160T1 as BrainpoolP160T1-import qualified Curve.Weierstrass.BrainpoolP192R1 as BrainpoolP192R1-import qualified Curve.Weierstrass.BrainpoolP192T1 as BrainpoolP192T1-import qualified Curve.Weierstrass.BrainpoolP224R1 as BrainpoolP224R1-import qualified Curve.Weierstrass.BrainpoolP224T1 as BrainpoolP224T1-import qualified Curve.Weierstrass.BrainpoolP256R1 as BrainpoolP256R1-import qualified Curve.Weierstrass.BrainpoolP256T1 as BrainpoolP256T1-import qualified Curve.Weierstrass.BrainpoolP320R1 as BrainpoolP320R1-import qualified Curve.Weierstrass.BrainpoolP320T1 as BrainpoolP320T1-import qualified Curve.Weierstrass.BrainpoolP384R1 as BrainpoolP384R1-import qualified Curve.Weierstrass.BrainpoolP384T1 as BrainpoolP384T1-import qualified Curve.Weierstrass.BrainpoolP512R1 as BrainpoolP512R1-import qualified Curve.Weierstrass.BrainpoolP512T1 as BrainpoolP512T1-import qualified Curve.Weierstrass.SECP112R1       as SECP112R1-import qualified Curve.Weierstrass.SECP112R2       as SECP112R2-import qualified Curve.Weierstrass.SECP128R1       as SECP128R1-import qualified Curve.Weierstrass.SECP128R2       as SECP128R2-import qualified Curve.Weierstrass.SECP160K1       as SECP160K1-import qualified Curve.Weierstrass.SECP160R1       as SECP160R1-import qualified Curve.Weierstrass.SECP160R2       as SECP160R2-import qualified Curve.Weierstrass.SECP192K1       as SECP192K1-import qualified Curve.Weierstrass.SECP192R1       as SECP192R1-import qualified Curve.Weierstrass.SECP224K1       as SECP224K1-import qualified Curve.Weierstrass.SECP224R1       as SECP224R1-import qualified Curve.Weierstrass.SECP256K1       as SECP256K1-import qualified Curve.Weierstrass.SECP256R1       as SECP256R1-import qualified Curve.Weierstrass.SECP384R1       as SECP384R1-import qualified Curve.Weierstrass.SECP521R1       as SECP521R1--import GroupBenchmarks--benchmarkWeierstrass :: Benchmark-benchmarkWeierstrass = bgroup "Weierstrass"-  [ benchmarkWeierstrass'       "Anomalous"       Anomalous.gA       Anomalous.gJ       Anomalous.gP-  , benchmarkWeierstrass'   "ANSSIFRP256V1"   ANSSIFRP256V1.gA   ANSSIFRP256V1.gJ   ANSSIFRP256V1.gP-  , benchmarkWeierstrass'        "BLS12381"        BLS12381.gA        BLS12381.gJ        BLS12381.gP-  , benchmarkWeierstrass'       "BLS12381T"       BLS12381T.gA       BLS12381T.gJ       BLS12381T.gP-  , benchmarkWeierstrass'        "BLS48581"        BLS48581.gA        BLS48581.gJ        BLS48581.gP-  , benchmarkWeierstrass'       "BLS48581T"       BLS48581T.gA       BLS48581T.gJ       BLS48581T.gP-  , benchmarkWeierstrass'           "BN224"           BN224.gA           BN224.gJ           BN224.gP-  , benchmarkWeierstrass'           "BN254"           BN254.gA           BN254.gJ           BN254.gP-  , benchmarkWeierstrass'          "BN254T"          BN254T.gA          BN254T.gJ          BN254T.gP-  , benchmarkWeierstrass'          "BN254A"          BN254A.gA          BN254A.gJ          BN254A.gP-  , benchmarkWeierstrass'         "BN254AT"         BN254AT.gA         BN254AT.gJ         BN254AT.gP-  , benchmarkWeierstrass'          "BN254B"          BN254B.gA          BN254B.gJ          BN254B.gP-  , benchmarkWeierstrass'         "BN254BT"         BN254BT.gA         BN254BT.gJ         BN254BT.gP-  , benchmarkWeierstrass'           "BN256"           BN256.gA           BN256.gJ           BN256.gP-  , benchmarkWeierstrass'           "BN384"           BN384.gA           BN384.gJ           BN384.gP-  , benchmarkWeierstrass'           "BN462"           BN462.gA           BN462.gJ           BN462.gP-  , benchmarkWeierstrass'          "BN462T"          BN462T.gA          BN462T.gJ          BN462T.gP-  , benchmarkWeierstrass'           "BN512"           BN512.gA           BN512.gJ           BN512.gP-  , benchmarkWeierstrass' "BrainpoolP160R1" BrainpoolP160R1.gA BrainpoolP160R1.gJ BrainpoolP160R1.gP-  , benchmarkWeierstrass' "BrainpoolP160T1" BrainpoolP160T1.gA BrainpoolP160T1.gJ BrainpoolP160T1.gP-  , benchmarkWeierstrass' "BrainpoolP192R1" BrainpoolP192R1.gA BrainpoolP192R1.gJ BrainpoolP192R1.gP-  , benchmarkWeierstrass' "BrainpoolP192T1" BrainpoolP192T1.gA BrainpoolP192T1.gJ BrainpoolP192T1.gP-  , benchmarkWeierstrass' "BrainpoolP224R1" BrainpoolP224R1.gA BrainpoolP224R1.gJ BrainpoolP224R1.gP-  , benchmarkWeierstrass' "BrainpoolP224T1" BrainpoolP224T1.gA BrainpoolP224T1.gJ BrainpoolP224T1.gP-  , benchmarkWeierstrass' "BrainpoolP256R1" BrainpoolP256R1.gA BrainpoolP256R1.gJ BrainpoolP256R1.gP-  , benchmarkWeierstrass' "BrainpoolP256T1" BrainpoolP256T1.gA BrainpoolP256T1.gJ BrainpoolP256T1.gP-  , benchmarkWeierstrass' "BrainpoolP320R1" BrainpoolP320R1.gA BrainpoolP320R1.gJ BrainpoolP320R1.gP-  , benchmarkWeierstrass' "BrainpoolP320T1" BrainpoolP320T1.gA BrainpoolP320T1.gJ BrainpoolP320T1.gP-  , benchmarkWeierstrass' "BrainpoolP384R1" BrainpoolP384R1.gA BrainpoolP384R1.gJ BrainpoolP384R1.gP-  , benchmarkWeierstrass' "BrainpoolP384T1" BrainpoolP384T1.gA BrainpoolP384T1.gJ BrainpoolP384T1.gP-  , benchmarkWeierstrass' "BrainpoolP512R1" BrainpoolP512R1.gA BrainpoolP512R1.gJ BrainpoolP512R1.gP-  , benchmarkWeierstrass' "BrainpoolP512T1" BrainpoolP512T1.gA BrainpoolP512T1.gJ BrainpoolP512T1.gP-  , benchmarkWeierstrass'       "SECP112R1"       SECP112R1.gA       SECP112R1.gJ       SECP112R1.gP-  , benchmarkWeierstrass'       "SECP112R2"       SECP112R2.gA       SECP112R2.gJ       SECP112R2.gP-  , benchmarkWeierstrass'       "SECP128R1"       SECP128R1.gA       SECP128R1.gJ       SECP128R1.gP-  , benchmarkWeierstrass'       "SECP128R2"       SECP128R2.gA       SECP128R2.gJ       SECP128R2.gP-  , benchmarkWeierstrass'       "SECP160K1"       SECP160K1.gA       SECP160K1.gJ       SECP160K1.gP-  , benchmarkWeierstrass'       "SECP160R1"       SECP160R1.gA       SECP160R1.gJ       SECP160R1.gP-  , benchmarkWeierstrass'       "SECP160R2"       SECP160R2.gA       SECP160R2.gJ       SECP160R2.gP-  , benchmarkWeierstrass'       "SECP192K1"       SECP192K1.gA       SECP192K1.gJ       SECP192K1.gP-  , benchmarkWeierstrass'       "SECP192R1"       SECP192R1.gA       SECP192R1.gJ       SECP192R1.gP-  , benchmarkWeierstrass'       "SECP224K1"       SECP224K1.gA       SECP224K1.gJ       SECP224K1.gP-  , benchmarkWeierstrass'       "SECP224R1"       SECP224R1.gA       SECP224R1.gJ       SECP224R1.gP-  , benchmarkWeierstrass'       "SECP256K1"       SECP256K1.gA       SECP256K1.gJ       SECP256K1.gP-  , benchmarkWeierstrass'       "SECP256R1"       SECP256R1.gA       SECP256R1.gJ       SECP256R1.gP-  , benchmarkWeierstrass'       "SECP384R1"       SECP384R1.gA       SECP384R1.gJ       SECP384R1.gP-  , benchmarkWeierstrass'       "SECP521R1"       SECP521R1.gA       SECP521R1.gJ       SECP521R1.gP-  ]-  where-    benchmarkWeierstrass' curve affine jacobian projective = bgroup curve-      [ benchmark "Affine" affine-      , benchmark "Jacobian" jacobian-      , benchmark "Projective" projective-      ]

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: c5865759f58bc792d7eb06624580c9d93023c42e4ec63b310c5a6d34c01e81ae+-- hash: b795e74bcfe34d3cb0d57160b2daa7b414f62bb8c56ee349b497535e99cc2aba  name:           elliptic-curve-version:        0.2.2+version:        0.3.0 synopsis:       Elliptic curve library description:    An extensible library of elliptic curves used in cryptography research category:       Cryptography@@ -27,94 +27,95 @@  library   exposed-modules:-      Curve-      Curve.Binary-      Curve.Binary.SECT113R1-      Curve.Binary.SECT113R2-      Curve.Binary.SECT131R1-      Curve.Binary.SECT131R2-      Curve.Binary.SECT163K1-      Curve.Binary.SECT163R1-      Curve.Binary.SECT163R2-      Curve.Binary.SECT193R1-      Curve.Binary.SECT193R2-      Curve.Binary.SECT233K1-      Curve.Binary.SECT233R1-      Curve.Binary.SECT239K1-      Curve.Binary.SECT283K1-      Curve.Binary.SECT283R1-      Curve.Binary.SECT409K1-      Curve.Binary.SECT409R1-      Curve.Binary.SECT571K1-      Curve.Binary.SECT571R1-      Curve.Edwards-      Curve.Edwards.Curve1174-      Curve.Edwards.Curve41417-      Curve.Edwards.E222-      Curve.Edwards.E382-      Curve.Edwards.E521-      Curve.Edwards.Ed448-      Curve.Edwards.Ed3363-      Curve.Edwards.Ed25519-      Curve.Edwards.JubJub-      Curve.Montgomery-      Curve.Montgomery.Curve448-      Curve.Montgomery.Curve25519-      Curve.Montgomery.Curve383187-      Curve.Montgomery.M221-      Curve.Montgomery.M383-      Curve.Montgomery.M511-      Curve.Weierstrass-      Curve.Weierstrass.Anomalous-      Curve.Weierstrass.ANSSIFRP256V1-      Curve.Weierstrass.BLS12381-      Curve.Weierstrass.BLS12381T-      Curve.Weierstrass.BLS48581-      Curve.Weierstrass.BLS48581T-      Curve.Weierstrass.BN224-      Curve.Weierstrass.BN254-      Curve.Weierstrass.BN254T-      Curve.Weierstrass.BN254A-      Curve.Weierstrass.BN254AT-      Curve.Weierstrass.BN254B-      Curve.Weierstrass.BN254BT-      Curve.Weierstrass.BN256-      Curve.Weierstrass.BN384-      Curve.Weierstrass.BN462-      Curve.Weierstrass.BN462T-      Curve.Weierstrass.BN512-      Curve.Weierstrass.SECP112R1-      Curve.Weierstrass.SECP112R2-      Curve.Weierstrass.SECP128R1-      Curve.Weierstrass.SECP128R2-      Curve.Weierstrass.SECP160K1-      Curve.Weierstrass.SECP160R1-      Curve.Weierstrass.SECP160R2-      Curve.Weierstrass.SECP192K1-      Curve.Weierstrass.SECP192R1-      Curve.Weierstrass.SECP224K1-      Curve.Weierstrass.SECP224R1-      Curve.Weierstrass.SECP256K1-      Curve.Weierstrass.SECP256R1-      Curve.Weierstrass.SECP384R1-      Curve.Weierstrass.SECP521R1-      Curve.Weierstrass.BrainpoolP160R1-      Curve.Weierstrass.BrainpoolP160T1-      Curve.Weierstrass.BrainpoolP192R1-      Curve.Weierstrass.BrainpoolP192T1-      Curve.Weierstrass.BrainpoolP224R1-      Curve.Weierstrass.BrainpoolP224T1-      Curve.Weierstrass.BrainpoolP256R1-      Curve.Weierstrass.BrainpoolP256T1-      Curve.Weierstrass.BrainpoolP320R1-      Curve.Weierstrass.BrainpoolP320T1-      Curve.Weierstrass.BrainpoolP384R1-      Curve.Weierstrass.BrainpoolP384T1-      Curve.Weierstrass.BrainpoolP512R1-      Curve.Weierstrass.BrainpoolP512T1-      Group-      Group.Field-      Group.Field.BN254TF+      Data.Curve+      Data.Curve.Binary+      Data.Curve.Binary.SECT113R1+      Data.Curve.Binary.SECT113R2+      Data.Curve.Binary.SECT131R1+      Data.Curve.Binary.SECT131R2+      Data.Curve.Binary.SECT163K1+      Data.Curve.Binary.SECT163R1+      Data.Curve.Binary.SECT163R2+      Data.Curve.Binary.SECT193R1+      Data.Curve.Binary.SECT193R2+      Data.Curve.Binary.SECT233K1+      Data.Curve.Binary.SECT233R1+      Data.Curve.Binary.SECT239K1+      Data.Curve.Binary.SECT283K1+      Data.Curve.Binary.SECT283R1+      Data.Curve.Binary.SECT409K1+      Data.Curve.Binary.SECT409R1+      Data.Curve.Binary.SECT571K1+      Data.Curve.Binary.SECT571R1+      Data.Curve.Edwards+      Data.Curve.Edwards.Curve1174+      Data.Curve.Edwards.Curve41417+      Data.Curve.Edwards.E222+      Data.Curve.Edwards.E382+      Data.Curve.Edwards.E521+      Data.Curve.Edwards.Ed448+      Data.Curve.Edwards.Ed3363+      Data.Curve.Edwards.Ed25519+      Data.Curve.Edwards.JubJub+      Data.Curve.Montgomery+      Data.Curve.Montgomery.Curve448+      Data.Curve.Montgomery.Curve25519+      Data.Curve.Montgomery.Curve383187+      Data.Curve.Montgomery.M221+      Data.Curve.Montgomery.M383+      Data.Curve.Montgomery.M511+      Data.Curve.Weierstrass+      Data.Curve.Weierstrass.Anomalous+      Data.Curve.Weierstrass.ANSSIFRP256V1+      Data.Curve.Weierstrass.BLS12381+      Data.Curve.Weierstrass.BLS12381T+      Data.Curve.Weierstrass.BLS48581+      Data.Curve.Weierstrass.BLS48581T+      Data.Curve.Weierstrass.BN224+      Data.Curve.Weierstrass.BN254+      Data.Curve.Weierstrass.BN254T+      Data.Curve.Weierstrass.BN254A+      Data.Curve.Weierstrass.BN254AT+      Data.Curve.Weierstrass.BN254B+      Data.Curve.Weierstrass.BN254BT+      Data.Curve.Weierstrass.BN254C+      Data.Curve.Weierstrass.BN254CT+      Data.Curve.Weierstrass.BN254D+      Data.Curve.Weierstrass.BN254DT+      Data.Curve.Weierstrass.BN256+      Data.Curve.Weierstrass.BN384+      Data.Curve.Weierstrass.BN462+      Data.Curve.Weierstrass.BN462T+      Data.Curve.Weierstrass.BN512+      Data.Curve.Weierstrass.SECP112R1+      Data.Curve.Weierstrass.SECP112R2+      Data.Curve.Weierstrass.SECP128R1+      Data.Curve.Weierstrass.SECP128R2+      Data.Curve.Weierstrass.SECP160K1+      Data.Curve.Weierstrass.SECP160R1+      Data.Curve.Weierstrass.SECP160R2+      Data.Curve.Weierstrass.SECP192K1+      Data.Curve.Weierstrass.SECP192R1+      Data.Curve.Weierstrass.SECP224K1+      Data.Curve.Weierstrass.SECP224R1+      Data.Curve.Weierstrass.SECP256K1+      Data.Curve.Weierstrass.SECP256R1+      Data.Curve.Weierstrass.SECP384R1+      Data.Curve.Weierstrass.SECP521R1+      Data.Curve.Weierstrass.BrainpoolP160R1+      Data.Curve.Weierstrass.BrainpoolP160T1+      Data.Curve.Weierstrass.BrainpoolP192R1+      Data.Curve.Weierstrass.BrainpoolP192T1+      Data.Curve.Weierstrass.BrainpoolP224R1+      Data.Curve.Weierstrass.BrainpoolP224T1+      Data.Curve.Weierstrass.BrainpoolP256R1+      Data.Curve.Weierstrass.BrainpoolP256T1+      Data.Curve.Weierstrass.BrainpoolP320R1+      Data.Curve.Weierstrass.BrainpoolP320T1+      Data.Curve.Weierstrass.BrainpoolP384R1+      Data.Curve.Weierstrass.BrainpoolP384T1+      Data.Curve.Weierstrass.BrainpoolP512R1+      Data.Curve.Weierstrass.BrainpoolP512T1   other-modules:       Generate.Binary.Curve       Generate.Binary.Generate@@ -140,13 +141,14 @@   hs-source-dirs:       src       generate-  default-extensions: LambdaCase RecordWildCards OverloadedStrings NoImplicitPrelude FlexibleInstances FlexibleContexts ScopedTypeVariables RankNTypes DataKinds DeriveAnyClass DeriveFunctor DeriveGeneric MultiParamTypeClasses PatternSynonyms PolyKinds TypeFamilyDependencies-  ghc-options: -Wall+  default-extensions: LambdaCase RecordWildCards OverloadedStrings NoImplicitPrelude FlexibleInstances FlexibleContexts ScopedTypeVariables RankNTypes DataKinds DeriveAnyClass DeriveFunctor DeriveGeneric MultiParamTypeClasses OverloadedLists PatternSynonyms PolyKinds TypeFamilyDependencies+  ghc-options: -freverse-errors -Wall   build-depends:       MonadRandom     , base >=4.10 && <5-    , galois-field >=0.4 && <0.5-    , protolude+    , galois-field >=1 && <2+    , groups+    , protolude >=0.2 && <0.3     , tasty-quickcheck     , text     , wl-pprint-text@@ -156,112 +158,24 @@   type: exitcode-stdio-1.0   main-is: Main.hs   other-modules:-      BinaryTests-      EdwardsTests-      FieldTests-      GroupTests-      MontgomeryTests-      WeierstrassTests-      Curve-      Curve.Binary-      Curve.Binary.SECT113R1-      Curve.Binary.SECT113R2-      Curve.Binary.SECT131R1-      Curve.Binary.SECT131R2-      Curve.Binary.SECT163K1-      Curve.Binary.SECT163R1-      Curve.Binary.SECT163R2-      Curve.Binary.SECT193R1-      Curve.Binary.SECT193R2-      Curve.Binary.SECT233K1-      Curve.Binary.SECT233R1-      Curve.Binary.SECT239K1-      Curve.Binary.SECT283K1-      Curve.Binary.SECT283R1-      Curve.Binary.SECT409K1-      Curve.Binary.SECT409R1-      Curve.Binary.SECT571K1-      Curve.Binary.SECT571R1-      Curve.Edwards-      Curve.Edwards.Curve1174-      Curve.Edwards.Curve41417-      Curve.Edwards.E222-      Curve.Edwards.E382-      Curve.Edwards.E521-      Curve.Edwards.Ed25519-      Curve.Edwards.Ed3363-      Curve.Edwards.Ed448-      Curve.Edwards.JubJub-      Curve.Montgomery-      Curve.Montgomery.Curve25519-      Curve.Montgomery.Curve383187-      Curve.Montgomery.Curve448-      Curve.Montgomery.M221-      Curve.Montgomery.M383-      Curve.Montgomery.M511-      Curve.Weierstrass-      Curve.Weierstrass.Anomalous-      Curve.Weierstrass.ANSSIFRP256V1-      Curve.Weierstrass.BLS12381-      Curve.Weierstrass.BLS12381T-      Curve.Weierstrass.BLS48581-      Curve.Weierstrass.BLS48581T-      Curve.Weierstrass.BN224-      Curve.Weierstrass.BN254-      Curve.Weierstrass.BN254A-      Curve.Weierstrass.BN254AT-      Curve.Weierstrass.BN254B-      Curve.Weierstrass.BN254BT-      Curve.Weierstrass.BN254T-      Curve.Weierstrass.BN256-      Curve.Weierstrass.BN384-      Curve.Weierstrass.BN462-      Curve.Weierstrass.BN462T-      Curve.Weierstrass.BN512-      Curve.Weierstrass.BrainpoolP160R1-      Curve.Weierstrass.BrainpoolP160T1-      Curve.Weierstrass.BrainpoolP192R1-      Curve.Weierstrass.BrainpoolP192T1-      Curve.Weierstrass.BrainpoolP224R1-      Curve.Weierstrass.BrainpoolP224T1-      Curve.Weierstrass.BrainpoolP256R1-      Curve.Weierstrass.BrainpoolP256T1-      Curve.Weierstrass.BrainpoolP320R1-      Curve.Weierstrass.BrainpoolP320T1-      Curve.Weierstrass.BrainpoolP384R1-      Curve.Weierstrass.BrainpoolP384T1-      Curve.Weierstrass.BrainpoolP512R1-      Curve.Weierstrass.BrainpoolP512T1-      Curve.Weierstrass.SECP112R1-      Curve.Weierstrass.SECP112R2-      Curve.Weierstrass.SECP128R1-      Curve.Weierstrass.SECP128R2-      Curve.Weierstrass.SECP160K1-      Curve.Weierstrass.SECP160R1-      Curve.Weierstrass.SECP160R2-      Curve.Weierstrass.SECP192K1-      Curve.Weierstrass.SECP192R1-      Curve.Weierstrass.SECP224K1-      Curve.Weierstrass.SECP224R1-      Curve.Weierstrass.SECP256K1-      Curve.Weierstrass.SECP256R1-      Curve.Weierstrass.SECP384R1-      Curve.Weierstrass.SECP521R1-      Group-      Group.Field-      Group.Field.BN254TF+      Test.Binary+      Test.Curve+      Test.Edwards+      Test.Field+      Test.Montgomery+      Test.Weierstrass       Paths_elliptic_curve   hs-source-dirs:-      tests-      src-  default-extensions: LambdaCase RecordWildCards OverloadedStrings NoImplicitPrelude FlexibleInstances FlexibleContexts ScopedTypeVariables RankNTypes DataKinds DeriveAnyClass DeriveFunctor DeriveGeneric MultiParamTypeClasses PatternSynonyms PolyKinds TypeFamilyDependencies-  ghc-options: -Wall -main-is Main+      test+  default-extensions: LambdaCase RecordWildCards OverloadedStrings NoImplicitPrelude FlexibleInstances FlexibleContexts ScopedTypeVariables RankNTypes DataKinds DeriveAnyClass DeriveFunctor DeriveGeneric MultiParamTypeClasses OverloadedLists PatternSynonyms PolyKinds TypeFamilyDependencies+  ghc-options: -freverse-errors -Wall -main-is Main   build-depends:       MonadRandom-    , arithmoi     , base >=4.10 && <5-    , galois-field >=0.4 && <0.5-    , protolude+    , elliptic-curve+    , galois-field >=1 && <2+    , groups+    , protolude >=0.2 && <0.3     , tasty     , tasty-hunit     , tasty-quickcheck@@ -273,112 +187,24 @@   type: exitcode-stdio-1.0   main-is: Main.hs   other-modules:-      BinaryBenchmarks-      EdwardsBenchmarks-      FieldBenchmarks-      GroupBenchmarks-      MontgomeryBenchmarks-      WeierstrassBenchmarks-      Curve-      Curve.Binary-      Curve.Binary.SECT113R1-      Curve.Binary.SECT113R2-      Curve.Binary.SECT131R1-      Curve.Binary.SECT131R2-      Curve.Binary.SECT163K1-      Curve.Binary.SECT163R1-      Curve.Binary.SECT163R2-      Curve.Binary.SECT193R1-      Curve.Binary.SECT193R2-      Curve.Binary.SECT233K1-      Curve.Binary.SECT233R1-      Curve.Binary.SECT239K1-      Curve.Binary.SECT283K1-      Curve.Binary.SECT283R1-      Curve.Binary.SECT409K1-      Curve.Binary.SECT409R1-      Curve.Binary.SECT571K1-      Curve.Binary.SECT571R1-      Curve.Edwards-      Curve.Edwards.Curve1174-      Curve.Edwards.Curve41417-      Curve.Edwards.E222-      Curve.Edwards.E382-      Curve.Edwards.E521-      Curve.Edwards.Ed25519-      Curve.Edwards.Ed3363-      Curve.Edwards.Ed448-      Curve.Edwards.JubJub-      Curve.Montgomery-      Curve.Montgomery.Curve25519-      Curve.Montgomery.Curve383187-      Curve.Montgomery.Curve448-      Curve.Montgomery.M221-      Curve.Montgomery.M383-      Curve.Montgomery.M511-      Curve.Weierstrass-      Curve.Weierstrass.Anomalous-      Curve.Weierstrass.ANSSIFRP256V1-      Curve.Weierstrass.BLS12381-      Curve.Weierstrass.BLS12381T-      Curve.Weierstrass.BLS48581-      Curve.Weierstrass.BLS48581T-      Curve.Weierstrass.BN224-      Curve.Weierstrass.BN254-      Curve.Weierstrass.BN254A-      Curve.Weierstrass.BN254AT-      Curve.Weierstrass.BN254B-      Curve.Weierstrass.BN254BT-      Curve.Weierstrass.BN254T-      Curve.Weierstrass.BN256-      Curve.Weierstrass.BN384-      Curve.Weierstrass.BN462-      Curve.Weierstrass.BN462T-      Curve.Weierstrass.BN512-      Curve.Weierstrass.BrainpoolP160R1-      Curve.Weierstrass.BrainpoolP160T1-      Curve.Weierstrass.BrainpoolP192R1-      Curve.Weierstrass.BrainpoolP192T1-      Curve.Weierstrass.BrainpoolP224R1-      Curve.Weierstrass.BrainpoolP224T1-      Curve.Weierstrass.BrainpoolP256R1-      Curve.Weierstrass.BrainpoolP256T1-      Curve.Weierstrass.BrainpoolP320R1-      Curve.Weierstrass.BrainpoolP320T1-      Curve.Weierstrass.BrainpoolP384R1-      Curve.Weierstrass.BrainpoolP384T1-      Curve.Weierstrass.BrainpoolP512R1-      Curve.Weierstrass.BrainpoolP512T1-      Curve.Weierstrass.SECP112R1-      Curve.Weierstrass.SECP112R2-      Curve.Weierstrass.SECP128R1-      Curve.Weierstrass.SECP128R2-      Curve.Weierstrass.SECP160K1-      Curve.Weierstrass.SECP160R1-      Curve.Weierstrass.SECP160R2-      Curve.Weierstrass.SECP192K1-      Curve.Weierstrass.SECP192R1-      Curve.Weierstrass.SECP224K1-      Curve.Weierstrass.SECP224R1-      Curve.Weierstrass.SECP256K1-      Curve.Weierstrass.SECP256R1-      Curve.Weierstrass.SECP384R1-      Curve.Weierstrass.SECP521R1-      Group-      Group.Field-      Group.Field.BN254TF+      Bench.Binary+      Bench.Curve+      Bench.Edwards+      Bench.Montgomery+      Bench.Weierstrass       Paths_elliptic_curve   hs-source-dirs:-      benchmarks-      src-  default-extensions: LambdaCase RecordWildCards OverloadedStrings NoImplicitPrelude FlexibleInstances FlexibleContexts ScopedTypeVariables RankNTypes DataKinds DeriveAnyClass DeriveFunctor DeriveGeneric MultiParamTypeClasses PatternSynonyms PolyKinds TypeFamilyDependencies-  ghc-options: -Wall -main-is Main+      bench+  default-extensions: LambdaCase RecordWildCards OverloadedStrings NoImplicitPrelude FlexibleInstances FlexibleContexts ScopedTypeVariables RankNTypes DataKinds DeriveAnyClass DeriveFunctor DeriveGeneric MultiParamTypeClasses OverloadedLists PatternSynonyms PolyKinds TypeFamilyDependencies+  ghc-options: -freverse-errors -Wall -main-is Main   build-depends:       MonadRandom     , base >=4.10 && <5     , criterion-    , galois-field >=0.4 && <0.5-    , protolude+    , elliptic-curve+    , galois-field >=1 && <2+    , groups+    , protolude >=0.2 && <0.3     , tasty-quickcheck     , text     , wl-pprint-text

@@ -14,34 +14,29 @@ -- Curve ------------------------------------------------------------------------------- -prettyImports :: Types -> Doc-prettyImports Types{..}-  =    "module Curve.Binary." <> pretty curve+prettyImports :: Text -> Types -> Doc+prettyImports name Types{..}+  =    "module Data.Curve.Binary." <> pretty name   <$$> indent 2-    (    "( module Curve.Binary"-    <$$> ", module Curve.Binary." <> pretty curve+    (    "( module Data.Curve.Binary"     <$$> ", Point(..)"+    <$$> "-- *" <+> pretty curve <+> "curve"+    <$$> ", module Data.Curve.Binary." <> pretty name     <$$> ") where"     )   <>   prettyBreak-  <$$> prettyImport field+  <$$> prettyImport   <>   prettyBreak-  <$$> "import Curve.Binary"-  <$$> maybe mempty pretty imports+  <$$> "import Data.Curve.Binary"+  <$$> if curve == name then mempty else "import Data.Curve.Binary."+  <>   pretty curve <+> "(" <> pretty curve <> ", F2m, Fr)" -prettyTypes :: Types -> Doc-prettyTypes Types{..}+prettyTypes :: Types -> Parameters -> Doc+prettyTypes Types{..} Parameters{..}   =    prettySection "Types"-  <$$> prettyDocumentation curve'-  <$$> "data" <+> pretty curve-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of points of" <+> curve')-  <$$> prettyType field-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of coefficients of" <+> curve')-  <$$> prettyType field'+  <$$> prettyType curve field p r   <>   prettyBreak-  <$$> prettyDocumentation (curve' <+> "is a binary curve")+  <$$> prettyComment (curve' <+> "is a binary curve")   <$$> "instance Curve 'Binary c" <+> pretty curve <+> prettyField field   <+>  "Fr => BCurve c" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2@@ -55,16 +50,12 @@     <$$> prettyInline "p_"     <$$> "r_ = const _r"     <$$> prettyInline "r_"-    <$$> "x_ = const _x"-    <$$> prettyInline "x_"-    <$$> "y_ = const _y"-    <$$> prettyInline "y_"     )   <>   prettyBreak   <$$> prettyDocumentation ("Affine" <+> curve' <+> "point")   <$$> "type PA = BAPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Affine" <+> curve' <+> "is a binary affine curve")+  <$$> prettyComment ("Affine" <+> curve' <+> "is a binary affine curve")   <$$> "instance BACurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gA_ = gA"@@ -74,7 +65,7 @@   <$$> prettyDocumentation ("Projective" <+> pretty curve <+> "point")   <$$> "type PP = BPPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Projective" <+> curve' <+> "is a binary projective curve")+  <$$> prettyComment ("Projective" <+> curve' <+> "is a binary projective curve")   <$$> "instance BPCurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gP_ = gP"@@ -98,18 +89,18 @@   <$$> prettyInline "_b"   <>   prettyBreak   <$$> prettyDocumentation ("Cofactor of" <+> curve')-  <$$> "_h :: Integer"-  <$$> "_h =" <+> prettyInteger h+  <$$> "_h :: Natural"+  <$$> "_h =" <+> prettyNatural h   <$$> prettyInline "_h"   <>   prettyBreak   <$$> prettyDocumentation ("Polynomial of" <+> curve')-  <$$> "_p :: Integer"-  <$$> "_p =" <+> prettyInteger p+  <$$> "_p :: Natural"+  <$$> "_p =" <+> prettyNatural p   <$$> prettyInline "_p"   <>   prettyBreak   <$$> prettyDocumentation ("Order of" <+> curve')-  <$$> "_r :: Integer"-  <$$> "_r =" <+> prettyInteger r+  <$$> "_r :: Natural"+  <$$> "_r =" <+> prettyNatural r   <$$> prettyInline "_r"   <>   prettyBreak   <$$> prettyDocumentation ("Coordinate @X@ of" <+> curve')@@ -136,10 +127,10 @@     curve' = pretty curve <+> "curve"  prettyCurve :: Curve -> Doc-prettyCurve (Curve types parameters)-  =    prettyImports types+prettyCurve (Curve name types parameters)+  =    prettyImports name types   <>   prettyBreak-  <$$> prettyTypes types+  <$$> prettyTypes types parameters   <>   prettyBreak   <$$> prettyParameters types parameters   <>   prettyBreak

@@ -23,8 +23,6 @@     <$$> ") where"     )   <>   prettyBreak-  <$$> "import Protolude"-  <>   prettyBreak   <$$> "import Generate.Binary.Types"  prettyCurves :: [Curve] -> Doc@@ -39,7 +37,7 @@     )   where     prettyCurves' :: Curve -> Doc-    prettyCurves' = pretty . toLower . curve . types+    prettyCurves' = pretty . toLower . name  prettyParameters :: [Curve] -> Doc prettyParameters curves@@ -47,26 +45,24 @@   <$$> vcat (punctuate prettyBreak (map prettyParameters' curves))   where     prettyParameters' :: Curve -> Doc-    prettyParameters' (Curve Types{..} Parameters{..})-      =    pretty (toLower curve) <+> ":: Curve"-      <$$> pretty (toLower curve) <+> "= Curve"+    prettyParameters' (Curve name Types{..} Parameters{..})+      =    pretty (toLower name) <+> ":: Curve"+      <$$> pretty (toLower name) <+> "= Curve"       <$$> indent 2-        (    "{ types = Types"+        (    "{ name =" <+> prettyText name+        <$$> ", types = Types"         <$$> indent 2-          (    "{ curve   =" <+> prettyText curve-          <$$> ", field   =" <+> prettyField field-          <$$> ", field'  =" <+> prettyField field'-          <$$> ", imports = "-          <>   maybe "Nothing" ((<>) "Just " . prettyText) imports+          (    "{ curve =" <+> prettyText curve+          <$$> ", field =" <+> prettyField field           <$$> "}"           )         <$$> ", parameters = Parameters"         <$$> indent 2           (    "{ a =" <+> prettyElement a           <$$> ", b =" <+> prettyElement b-          <$$> ", h =" <+> prettyInteger h-          <$$> ", p =" <+> prettyInteger p-          <$$> ", r =" <+> prettyInteger r+          <$$> ", h =" <+> prettyNatural h+          <$$> ", p =" <+> prettyNatural p+          <$$> ", r =" <+> prettyNatural r           <$$> ", x =" <+> prettyElement x           <$$> ", y =" <+> prettyElement y           <$$> "}"

@@ -2,8 +2,6 @@   ( curves   ) where -import Protolude- import Generate.Binary.Types  -------------------------------------------------------------------------------@@ -38,342 +36,324 @@  sect113r1 :: Curve sect113r1 = Curve-  { types = Types-    { curve   = "SECT113R1"-    , field   = BinaryField "F2m" 0x20000000000000000000000000201-    , field'  = PrimeField "Fr" 0x100000000000000d9ccec8a39e56f-    , imports = Nothing+  { name = "SECT113R1"+  , types = Types+    { curve = "SECT113R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x3088250ca6e7c7fe649ce85820f7-    , b = BF 0xe8bee4d3e2260744188be0e9c723+    { a = B 0x3088250ca6e7c7fe649ce85820f7+    , b = B 0xe8bee4d3e2260744188be0e9c723     , h = 0x2     , p = 0x20000000000000000000000000201     , r = 0x100000000000000d9ccec8a39e56f-    , x = BF 0x9d73616f35f4ab1407d73562c10f-    , y = BF 0xa52830277958ee84d1315ed31886+    , x = B 0x9d73616f35f4ab1407d73562c10f+    , y = B 0xa52830277958ee84d1315ed31886     }   }  sect113r2 :: Curve sect113r2 = Curve-  { types = Types-    { curve   = "SECT113R2"-    , field   = BinaryField "F2m" 0x20000000000000000000000000201-    , field'  = PrimeField "Fr" 0x10000000000000108789b2496af93-    , imports = Nothing+  { name = "SECT113R2"+  , types = Types+    { curve = "SECT113R2"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x689918dbec7e5a0dd6dfc0aa55c7-    , b = BF 0x95e9a9ec9b297bd4bf36e059184f+    { a = B 0x689918dbec7e5a0dd6dfc0aa55c7+    , b = B 0x95e9a9ec9b297bd4bf36e059184f     , h = 0x2     , p = 0x20000000000000000000000000201     , r = 0x10000000000000108789b2496af93-    , x = BF 0x1a57a6a7b26ca5ef52fcdb8164797-    , y = BF 0xb3adc94ed1fe674c06e695baba1d+    , x = B 0x1a57a6a7b26ca5ef52fcdb8164797+    , y = B 0xb3adc94ed1fe674c06e695baba1d     }   }  sect131r1 :: Curve sect131r1 = Curve-  { types = Types-    { curve   = "SECT131R1"-    , field   = BinaryField "F2m" 0x80000000000000000000000000000010d-    , field'  = PrimeField "Fr" 0x400000000000000023123953a9464b54d-    , imports = Nothing+  { name = "SECT131R1"+  , types = Types+    { curve = "SECT131R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x7a11b09a76b562144418ff3ff8c2570b8-    , b = BF 0x217c05610884b63b9c6c7291678f9d341+    { a = B 0x7a11b09a76b562144418ff3ff8c2570b8+    , b = B 0x217c05610884b63b9c6c7291678f9d341     , h = 0x2     , p = 0x80000000000000000000000000000010d     , r = 0x400000000000000023123953a9464b54d-    , x = BF 0x81baf91fdf9833c40f9c181343638399-    , y = BF 0x78c6e7ea38c001f73c8134b1b4ef9e150+    , x = B 0x81baf91fdf9833c40f9c181343638399+    , y = B 0x78c6e7ea38c001f73c8134b1b4ef9e150     }   }  sect131r2 :: Curve sect131r2 = Curve-  { types = Types-    { curve   = "SECT131R2"-    , field   = BinaryField "F2m" 0x80000000000000000000000000000010d-    , field'  = PrimeField "Fr" 0x400000000000000016954a233049ba98f-    , imports = Nothing+  { name = "SECT131R2"+  , types = Types+    { curve = "SECT131R2"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x3e5a88919d7cafcbf415f07c2176573b2-    , b = BF 0x4b8266a46c55657ac734ce38f018f2192+    { a = B 0x3e5a88919d7cafcbf415f07c2176573b2+    , b = B 0x4b8266a46c55657ac734ce38f018f2192     , h = 0x2     , p = 0x80000000000000000000000000000010d     , r = 0x400000000000000016954a233049ba98f-    , x = BF 0x356dcd8f2f95031ad652d23951bb366a8-    , y = BF 0x648f06d867940a5366d9e265de9eb240f+    , x = B 0x356dcd8f2f95031ad652d23951bb366a8+    , y = B 0x648f06d867940a5366d9e265de9eb240f     }   }  sect163k1 :: Curve sect163k1 = Curve-  { types = Types-    { curve   = "SECT163K1"-    , field   = BinaryField "F2m" 0x800000000000000000000000000000000000000c9-    , field'  = PrimeField "Fr" 0x4000000000000000000020108a2e0cc0d99f8a5ef-    , imports = Nothing+  { name = "SECT163K1"+  , types = Types+    { curve = "SECT163K1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x1-    , b = BF 0x1+    { a = B 0x1+    , b = B 0x1     , h = 0x2     , p = 0x800000000000000000000000000000000000000c9     , r = 0x4000000000000000000020108a2e0cc0d99f8a5ef-    , x = BF 0x2fe13c0537bbc11acaa07d793de4e6d5e5c94eee8-    , y = BF 0x289070fb05d38ff58321f2e800536d538ccdaa3d9+    , x = B 0x2fe13c0537bbc11acaa07d793de4e6d5e5c94eee8+    , y = B 0x289070fb05d38ff58321f2e800536d538ccdaa3d9     }   }  sect163r1 :: Curve sect163r1 = Curve-  { types = Types-    { curve   = "SECT163R1"-    , field   = BinaryField "F2m" 0x800000000000000000000000000000000000000c9-    , field'  = PrimeField "Fr" 0x3ffffffffffffffffffff48aab689c29ca710279b-    , imports = Nothing+  { name = "SECT163R1"+  , types = Types+    { curve = "SECT163R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x7b6882caaefa84f9554ff8428bd88e246d2782ae2-    , b = BF 0x713612dcddcb40aab946bda29ca91f73af958afd9+    { a = B 0x7b6882caaefa84f9554ff8428bd88e246d2782ae2+    , b = B 0x713612dcddcb40aab946bda29ca91f73af958afd9     , h = 0x2     , p = 0x800000000000000000000000000000000000000c9     , r = 0x3ffffffffffffffffffff48aab689c29ca710279b-    , x = BF 0x369979697ab43897789566789567f787a7876a654-    , y = BF 0x435edb42efafb2989d51fefce3c80988f41ff883+    , x = B 0x369979697ab43897789566789567f787a7876a654+    , y = B 0x435edb42efafb2989d51fefce3c80988f41ff883     }   }  sect163r2 :: Curve sect163r2 = Curve-  { types = Types-    { curve   = "SECT163R2"-    , field   = BinaryField "F2m" 0x800000000000000000000000000000000000000c9-    , field'  = PrimeField "Fr" 0x40000000000000000000292fe77e70c12a4234c33-    , imports = Nothing+  { name = "SECT163R2"+  , types = Types+    { curve = "SECT163R2"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x1-    , b = BF 0x20a601907b8c953ca1481eb10512f78744a3205fd+    { a = B 0x1+    , b = B 0x20a601907b8c953ca1481eb10512f78744a3205fd     , h = 0x2     , p = 0x800000000000000000000000000000000000000c9     , r = 0x40000000000000000000292fe77e70c12a4234c33-    , x = BF 0x3f0eba16286a2d57ea0991168d4994637e8343e36-    , y = BF 0xd51fbc6c71a0094fa2cdd545b11c5c0c797324f1+    , x = B 0x3f0eba16286a2d57ea0991168d4994637e8343e36+    , y = B 0xd51fbc6c71a0094fa2cdd545b11c5c0c797324f1     }   }  sect193r1 :: Curve sect193r1 = Curve-  { types = Types-    { curve   = "SECT193R1"-    , field   = BinaryField "F2m" 0x2000000000000000000000000000000000000000000008001-    , field'  = PrimeField "Fr" 0x1000000000000000000000000c7f34a778f443acc920eba49-    , imports = Nothing+  { name = "SECT193R1"+  , types = Types+    { curve = "SECT193R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x17858feb7a98975169e171f77b4087de098ac8a911df7b01-    , b = BF 0xfdfb49bfe6c3a89facadaa7a1e5bbc7cc1c2e5d831478814+    { a = B 0x17858feb7a98975169e171f77b4087de098ac8a911df7b01+    , b = B 0xfdfb49bfe6c3a89facadaa7a1e5bbc7cc1c2e5d831478814     , h = 0x2     , p = 0x2000000000000000000000000000000000000000000008001     , r = 0x1000000000000000000000000c7f34a778f443acc920eba49-    , x = BF 0x1f481bc5f0ff84a74ad6cdf6fdef4bf6179625372d8c0c5e1-    , y = BF 0x25e399f2903712ccf3ea9e3a1ad17fb0b3201b6af7ce1b05+    , x = B 0x1f481bc5f0ff84a74ad6cdf6fdef4bf6179625372d8c0c5e1+    , y = B 0x25e399f2903712ccf3ea9e3a1ad17fb0b3201b6af7ce1b05     }   }  sect193r2 :: Curve sect193r2 = Curve-  { types = Types-    { curve   = "SECT193R2"-    , field   = BinaryField "F2m" 0x2000000000000000000000000000000000000000000008001-    , field'  = PrimeField "Fr" 0x10000000000000000000000015aab561b005413ccd4ee99d5-    , imports = Nothing+  { name = "SECT193R2"+  , types = Types+    { curve = "SECT193R2"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x163f35a5137c2ce3ea6ed8667190b0bc43ecd69977702709b-    , b = BF 0xc9bb9e8927d4d64c377e2ab2856a5b16e3efb7f61d4316ae+    { a = B 0x163f35a5137c2ce3ea6ed8667190b0bc43ecd69977702709b+    , b = B 0xc9bb9e8927d4d64c377e2ab2856a5b16e3efb7f61d4316ae     , h = 0x2     , p = 0x2000000000000000000000000000000000000000000008001     , r = 0x10000000000000000000000015aab561b005413ccd4ee99d5-    , x = BF 0xd9b67d192e0367c803f39e1a7e82ca14a651350aae617e8f-    , y = BF 0x1ce94335607c304ac29e7defbd9ca01f596f927224cdecf6c+    , x = B 0xd9b67d192e0367c803f39e1a7e82ca14a651350aae617e8f+    , y = B 0x1ce94335607c304ac29e7defbd9ca01f596f927224cdecf6c     }   }  sect233k1 :: Curve sect233k1 = Curve-  { types = Types-    { curve   = "SECT233K1"-    , field   = BinaryField "F2m" 0x20000000000000000000000000000000000000004000000000000000001-    , field'  = PrimeField "Fr" 0x8000000000000000000000000000069d5bb915bcd46efb1ad5f173abdf-    , imports = Nothing+  { name = "SECT233K1"+  , types = Types+    { curve = "SECT233K1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x0-    , b = BF 0x1+    { a = B 0x0+    , b = B 0x1     , h = 0x4     , p = 0x20000000000000000000000000000000000000004000000000000000001     , r = 0x8000000000000000000000000000069d5bb915bcd46efb1ad5f173abdf-    , x = BF 0x17232ba853a7e731af129f22ff4149563a419c26bf50a4c9d6eefad6126-    , y = BF 0x1db537dece819b7f70f555a67c427a8cd9bf18aeb9b56e0c11056fae6a3+    , x = B 0x17232ba853a7e731af129f22ff4149563a419c26bf50a4c9d6eefad6126+    , y = B 0x1db537dece819b7f70f555a67c427a8cd9bf18aeb9b56e0c11056fae6a3     }   }  sect233r1 :: Curve sect233r1 = Curve-  { types = Types-    { curve   = "SECT233R1"-    , field   = BinaryField "F2m" 0x20000000000000000000000000000000000000004000000000000000001-    , field'  = PrimeField "Fr" 0x1000000000000000000000000000013e974e72f8a6922031d2603cfe0d7-    , imports = Nothing+  { name = "SECT233R1"+  , types = Types+    { curve = "SECT233R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x1-    , b = BF 0x66647ede6c332c7f8c0923bb58213b333b20e9ce4281fe115f7d8f90ad+    { a = B 0x1+    , b = B 0x66647ede6c332c7f8c0923bb58213b333b20e9ce4281fe115f7d8f90ad     , h = 0x2     , p = 0x20000000000000000000000000000000000000004000000000000000001     , r = 0x1000000000000000000000000000013e974e72f8a6922031d2603cfe0d7-    , x = BF 0xfac9dfcbac8313bb2139f1bb755fef65bc391f8b36f8f8eb7371fd558b-    , y = BF 0x1006a08a41903350678e58528bebf8a0beff867a7ca36716f7e01f81052+    , x = B 0xfac9dfcbac8313bb2139f1bb755fef65bc391f8b36f8f8eb7371fd558b+    , y = B 0x1006a08a41903350678e58528bebf8a0beff867a7ca36716f7e01f81052     }   }  sect239k1 :: Curve sect239k1 = Curve-  { types = Types-    { curve   = "SECT239K1"-    , field   = BinaryField "F2m" 0x800000000000000000004000000000000000000000000000000000000001-    , field'  = PrimeField "Fr" 0x2000000000000000000000000000005a79fec67cb6e91f1c1da800e478a5-    , imports = Nothing+  { name = "SECT239K1"+  , types = Types+    { curve = "SECT239K1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x0-    , b = BF 0x1+    { a = B 0x0+    , b = B 0x1     , h = 0x4     , p = 0x800000000000000000004000000000000000000000000000000000000001     , r = 0x2000000000000000000000000000005a79fec67cb6e91f1c1da800e478a5-    , x = BF 0x29a0b6a887a983e9730988a68727a8b2d126c44cc2cc7b2a6555193035dc-    , y = BF 0x76310804f12e549bdb011c103089e73510acb275fc312a5dc6b76553f0ca+    , x = B 0x29a0b6a887a983e9730988a68727a8b2d126c44cc2cc7b2a6555193035dc+    , y = B 0x76310804f12e549bdb011c103089e73510acb275fc312a5dc6b76553f0ca     }   }  sect283k1 :: Curve sect283k1 = Curve-  { types = Types-    { curve   = "SECT283K1"-    , field   = BinaryField "F2m" 0x800000000000000000000000000000000000000000000000000000000000000000010a1-    , field'  = PrimeField "Fr" 0x1ffffffffffffffffffffffffffffffffffe9ae2ed07577265dff7f94451e061e163c61-    , imports = Nothing+  { name = "SECT283K1"+  , types = Types+    { curve = "SECT283K1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x0-    , b = BF 0x1+    { a = B 0x0+    , b = B 0x1     , h = 0x4     , p = 0x800000000000000000000000000000000000000000000000000000000000000000010a1     , r = 0x1ffffffffffffffffffffffffffffffffffe9ae2ed07577265dff7f94451e061e163c61-    , x = BF 0x503213f78ca44883f1a3b8162f188e553cd265f23c1567a16876913b0c2ac2458492836-    , y = BF 0x1ccda380f1c9e318d90f95d07e5426fe87e45c0e8184698e45962364e34116177dd2259+    , x = B 0x503213f78ca44883f1a3b8162f188e553cd265f23c1567a16876913b0c2ac2458492836+    , y = B 0x1ccda380f1c9e318d90f95d07e5426fe87e45c0e8184698e45962364e34116177dd2259     }   }  sect283r1 :: Curve sect283r1 = Curve-  { types = Types-    { curve   = "SECT283R1"-    , field   = BinaryField "F2m" 0x800000000000000000000000000000000000000000000000000000000000000000010a1-    , field'  = PrimeField "Fr" 0x3ffffffffffffffffffffffffffffffffffef90399660fc938a90165b042a7cefadb307-    , imports = Nothing+  { name = "SECT283R1"+  , types = Types+    { curve = "SECT283R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x1-    , b = BF 0x27b680ac8b8596da5a4af8a19a0303fca97fd7645309fa2a581485af6263e313b79a2f5+    { a = B 0x1+    , b = B 0x27b680ac8b8596da5a4af8a19a0303fca97fd7645309fa2a581485af6263e313b79a2f5     , h = 0x2     , p = 0x800000000000000000000000000000000000000000000000000000000000000000010a1     , r = 0x3ffffffffffffffffffffffffffffffffffef90399660fc938a90165b042a7cefadb307-    , x = BF 0x5f939258db7dd90e1934f8c70b0dfec2eed25b8557eac9c80e2e198f8cdbecd86b12053-    , y = BF 0x3676854fe24141cb98fe6d4b20d02b4516ff702350eddb0826779c813f0df45be8112f4+    , x = B 0x5f939258db7dd90e1934f8c70b0dfec2eed25b8557eac9c80e2e198f8cdbecd86b12053+    , y = B 0x3676854fe24141cb98fe6d4b20d02b4516ff702350eddb0826779c813f0df45be8112f4     }   }  sect409k1 :: Curve sect409k1 = Curve-  { types = Types-    { curve   = "SECT409K1"-    , field   = BinaryField "F2m" 0x2000000000000000000000000000000000000000000000000000000000000000000000000000000008000000000000000000001-    , field'  = PrimeField "Fr" 0x7ffffffffffffffffffffffffffffffffffffffffffffffffffe5f83b2d4ea20400ec4557d5ed3e3e7ca5b4b5c83b8e01e5fcf-    , imports = Nothing+  { name = "SECT409K1"+  , types = Types+    { curve = "SECT409K1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x0-    , b = BF 0x1+    { a = B 0x0+    , b = B 0x1     , h = 0x4     , p = 0x2000000000000000000000000000000000000000000000000000000000000000000000000000000008000000000000000000001     , r = 0x7ffffffffffffffffffffffffffffffffffffffffffffffffffe5f83b2d4ea20400ec4557d5ed3e3e7ca5b4b5c83b8e01e5fcf-    , x = BF 0x60f05f658f49c1ad3ab1890f7184210efd0987e307c84c27accfb8f9f67cc2c460189eb5aaaa62ee222eb1b35540cfe9023746-    , y = BF 0x1e369050b7c4e42acba1dacbf04299c3460782f918ea427e6325165e9ea10e3da5f6c42e9c55215aa9ca27a5863ec48d8e0286b+    , x = B 0x60f05f658f49c1ad3ab1890f7184210efd0987e307c84c27accfb8f9f67cc2c460189eb5aaaa62ee222eb1b35540cfe9023746+    , y = B 0x1e369050b7c4e42acba1dacbf04299c3460782f918ea427e6325165e9ea10e3da5f6c42e9c55215aa9ca27a5863ec48d8e0286b     }   }  sect409r1 :: Curve sect409r1 = Curve-  { types = Types-    { curve   = "SECT409R1"-    , field   = BinaryField "F2m" 0x2000000000000000000000000000000000000000000000000000000000000000000000000000000008000000000000000000001-    , field'  = PrimeField "Fr" 0x10000000000000000000000000000000000000000000000000001e2aad6a612f33307be5fa47c3c9e052f838164cd37d9a21173-    , imports = Nothing+  { name = "SECT409R1"+  , types = Types+    { curve = "SECT409R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x1-    , b = BF 0x21a5c2c8ee9feb5c4b9a753b7b476b7fd6422ef1f3dd674761fa99d6ac27c8a9a197b272822f6cd57a55aa4f50ae317b13545f+    { a = B 0x1+    , b = B 0x21a5c2c8ee9feb5c4b9a753b7b476b7fd6422ef1f3dd674761fa99d6ac27c8a9a197b272822f6cd57a55aa4f50ae317b13545f     , h = 0x2     , p = 0x2000000000000000000000000000000000000000000000000000000000000000000000000000000008000000000000000000001     , r = 0x10000000000000000000000000000000000000000000000000001e2aad6a612f33307be5fa47c3c9e052f838164cd37d9a21173-    , x = BF 0x15d4860d088ddb3496b0c6064756260441cde4af1771d4db01ffe5b34e59703dc255a868a1180515603aeab60794e54bb7996a7-    , y = BF 0x61b1cfab6be5f32bbfa78324ed106a7636b9c5a7bd198d0158aa4f5488d08f38514f1fdf4b4f40d2181b3681c364ba0273c706+    , x = B 0x15d4860d088ddb3496b0c6064756260441cde4af1771d4db01ffe5b34e59703dc255a868a1180515603aeab60794e54bb7996a7+    , y = B 0x61b1cfab6be5f32bbfa78324ed106a7636b9c5a7bd198d0158aa4f5488d08f38514f1fdf4b4f40d2181b3681c364ba0273c706     }   }  sect571k1 :: Curve sect571k1 = Curve-  { types = Types-    { curve   = "SECT571K1"-    , field   = BinaryField "F2m" 0x80000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000425-    , field'  = PrimeField "Fr" 0x20000000000000000000000000000000000000000000000000000000000000000000000131850e1f19a63e4b391a8db917f4138b630d84be5d639381e91deb45cfe778f637c1001-    , imports = Nothing+  { name = "SECT571K1"+  , types = Types+    { curve = "SECT571K1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x0-    , b = BF 0x1+    { a = B 0x0+    , b = B 0x1     , h = 0x4     , p = 0x80000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000425     , r = 0x20000000000000000000000000000000000000000000000000000000000000000000000131850e1f19a63e4b391a8db917f4138b630d84be5d639381e91deb45cfe778f637c1001-    , x = BF 0x26eb7a859923fbc82189631f8103fe4ac9ca2970012d5d46024804801841ca44370958493b205e647da304db4ceb08cbbd1ba39494776fb988b47174dca88c7e2945283a01c8972-    , y = BF 0x349dc807f4fbf374f4aeade3bca95314dd58cec9f307a54ffc61efc006d8a2c9d4979c0ac44aea74fbebbb9f772aedcb620b01a7ba7af1b320430c8591984f601cd4c143ef1c7a3+    , x = B 0x26eb7a859923fbc82189631f8103fe4ac9ca2970012d5d46024804801841ca44370958493b205e647da304db4ceb08cbbd1ba39494776fb988b47174dca88c7e2945283a01c8972+    , y = B 0x349dc807f4fbf374f4aeade3bca95314dd58cec9f307a54ffc61efc006d8a2c9d4979c0ac44aea74fbebbb9f772aedcb620b01a7ba7af1b320430c8591984f601cd4c143ef1c7a3     }   }  sect571r1 :: Curve sect571r1 = Curve-  { types = Types-    { curve   = "SECT571R1"-    , field   = BinaryField "F2m" 0x80000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000425-    , field'  = PrimeField "Fr" 0x3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffe661ce18ff55987308059b186823851ec7dd9ca1161de93d5174d66e8382e9bb2fe84e47-    , imports = Nothing+  { name = "SECT571R1"+  , types = Types+    { curve = "SECT571R1"+    , field = Binary "F2m"     }   , parameters = Parameters-    { a = BF 0x1-    , b = BF 0x2f40e7e2221f295de297117b7f3d62f5c6a97ffcb8ceff1cd6ba8ce4a9a18ad84ffabbd8efa59332be7ad6756a66e294afd185a78ff12aa520e4de739baca0c7ffeff7f2955727a+    { a = B 0x1+    , b = B 0x2f40e7e2221f295de297117b7f3d62f5c6a97ffcb8ceff1cd6ba8ce4a9a18ad84ffabbd8efa59332be7ad6756a66e294afd185a78ff12aa520e4de739baca0c7ffeff7f2955727a     , h = 0x2     , p = 0x80000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000425     , r = 0x3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffe661ce18ff55987308059b186823851ec7dd9ca1161de93d5174d66e8382e9bb2fe84e47-    , x = BF 0x303001d34b856296c16c0d40d3cd7750a93d1d2955fa80aa5f40fc8db7b2abdbde53950f4c0d293cdd711a35b67fb1499ae60038614f1394abfa3b4c850d927e1e7769c8eec2d19-    , y = BF 0x37bf27342da639b6dccfffeb73d69d78c6c27a6009cbbca1980f8533921e8a684423e43bab08a576291af8f461bb2a8b3531d2f0485c19b16e2f1516e23dd3c1a4827af1b8ac15b+    , x = B 0x303001d34b856296c16c0d40d3cd7750a93d1d2955fa80aa5f40fc8db7b2abdbde53950f4c0d293cdd711a35b67fb1499ae60038614f1394abfa3b4c850d927e1e7769c8eec2d19+    , y = B 0x37bf27342da639b6dccfffeb73d69d78c6c27a6009cbbca1980f8533921e8a684423e43bab08a576291af8f461bb2a8b3531d2f0485c19b16e2f1516e23dd3c1a4827af1b8ac15b     }   }

@@ -5,6 +5,8 @@  import Protolude +import GHC.Natural (Natural)+ import Generate.Types  -------------------------------------------------------------------------------@@ -12,16 +14,17 @@ -------------------------------------------------------------------------------  data Curve = Curve-  { types      :: Types+  { name       :: Text+  , types      :: Types   , parameters :: Parameters   }  data Parameters = Parameters   { a :: Element   , b :: Element-  , h :: Integer-  , p :: Integer-  , r :: Integer+  , h :: Natural+  , p :: Natural+  , r :: Natural   , x :: Element   , y :: Element   }

@@ -4,7 +4,8 @@  import Protolude -import Text.PrettyPrint.Leijen.Text+import GHC.Natural (Natural)+import Text.PrettyPrint.Leijen.Text hiding (char)  import Generate.Pretty import Generate.Types@@ -14,49 +15,75 @@ -------------------------------------------------------------------------------  prettyElement :: Element -> Doc-prettyElement (BF n)-  = prettyInteger n-prettyElement (EF ns)-  = "toField" <+> align+prettyElement (B n)+  = prettyNatural n+prettyElement (E ns)+  = "toE'" <+> align     (    (if null ns then "[" else "[ ")     <>   hcat (punctuate "\n, " (map prettyElement ns))     <$$> "]"     )-prettyElement (PF n)-  = prettyInteger n+prettyElement (P n)+  = prettyNatural n  prettyField :: Field -> Doc-prettyField (BinaryField f2m _)+prettyField (Binary f2m)   = pretty f2m-prettyField (ExtensionField fq' _ _ _ _)+prettyField (Extension fq' _ _ _)   = pretty fq'-prettyField (PrimeField fq _)+prettyField (Prime fq)   = pretty fq -prettyImport :: Field -> Doc-prettyImport k+prettyImport :: Doc+prettyImport   =    "import Protolude"   <>   prettyBreak-  <$$> k'-  <$$> "import PrimeField"-  where-    k' = case k of-      BinaryField _ _          -> "import BinaryField"-      ExtensionField _ _ _ _ _ -> "import ExtensionField"-      _                        -> mempty+  <$$> "import Data.Field.Galois"+  <$$> "import GHC.Natural (Natural)" -prettyType :: Field -> Doc-prettyType (BinaryField f2m q)-  = "type" <+> pretty f2m <+> "= BinaryField" <+> prettyInteger q-prettyType (ExtensionField fq' fq q s k)-  =    prettyType' k-  <$$> "data" <+> pretty q-  <$$> "instance IrreducibleMonic" <+> pretty fq <+> pretty q <+> "where"-  <$$> "  split _ =" <+> pretty s-  <$$> "type" <+> pretty fq' <+> "= ExtensionField" <+> pretty fq <+> pretty q+prettyType :: Text -> Field -> Natural -> Natural -> Doc+prettyType curve (Binary f2m) p r+  =    prettyDocumentation prettyCurve+  <$$> "data" <+> pretty curve+  <>   prettyBreak+  <$$> prettyDocumentation ("Field of points of" <+> prettyCurve)+  <$$> "type" <+> pretty f2m <+> "= Binary P"+  <$$> "type P =" <+> prettyNatural p+  <>   prettyBreak+  <$$> prettyDocumentation ("Field of coefficients of" <+> prettyCurve)+  <$$> "type Fr = Prime R"+  <$$> "type R =" <+> prettyNatural r   where-    prettyType' :: Maybe Field -> Doc-    prettyType' (Just f) = prettyType f-    prettyType' _        = mempty-prettyType (PrimeField fq q)-  = "type" <+> pretty fq <+> "= PrimeField" <+> prettyInteger q+    prettyCurve :: Doc+    prettyCurve = pretty curve <+> "curve"+prettyType curve extension@(Extension _ _ _ _) _ _+  =    prettyType' extension+  where+    prettyType' :: Field -> Doc+    prettyType' (Extension fq' p x k)+      =    prettyType' k+      <$$> prettyDocumentation ("Field of points of"+      <+>  pretty curve <+> "curve over" <+> enclose "@" "@" (pretty fq'))+      <$$> "type" <+> pretty fq' <+> "= Extension" <+> pretty p <+> prettyField k+      <$$> "data" <+> pretty p+      <$$> "instance IrreducibleMonic" <+> pretty p <+> prettyField k <+> "where"+      <$$> indent 2+        (    "poly _ =" <+> pretty x+        <$$> prettyInline "poly"+        )+    prettyType' _+      = mempty+prettyType curve (Prime fq) q r+  =    prettyDocumentation prettyCurve+  <$$> "data" <+> pretty curve+  <>   prettyBreak+  <$$> prettyDocumentation ("Field of points of" <+> prettyCurve)+  <$$> "type" <+> pretty fq <+> "= Prime Q"+  <$$> "type Q =" <+> prettyNatural q+  <>   prettyBreak+  <$$> prettyDocumentation ("Field of coefficients of" <+> prettyCurve)+  <$$> "type Fr = Prime R"+  <$$> "type R =" <+> prettyNatural r+  where+    prettyCurve :: Doc+    prettyCurve = pretty curve <+> "curve"

@@ -14,34 +14,29 @@ -- Curve ------------------------------------------------------------------------------- -prettyImports :: Types -> Doc-prettyImports Types{..}-  =    "module Curve.Edwards." <> pretty curve+prettyImports :: Text -> Types -> Doc+prettyImports name Types{..}+  =    "module Data.Curve.Edwards." <> pretty name   <$$> indent 2-    (    "( module Curve.Edwards"-    <$$> ", module Curve.Edwards." <> pretty curve+    (    "( module Data.Curve.Edwards"     <$$> ", Point(..)"+    <$$> "-- *" <+> pretty curve <+> "curve"+    <$$> ", module Data.Curve.Edwards." <> pretty name     <$$> ") where"     )   <>   prettyBreak-  <$$> prettyImport field+  <$$> prettyImport   <>   prettyBreak-  <$$> "import Curve.Edwards"-  <$$> maybe mempty pretty imports+  <$$> "import Data.Curve.Edwards"+  <$$> if curve == name then mempty else "import Data.Curve.Edwards."+  <>   pretty curve <+> "(" <> pretty curve <> ", Fq, Fr)" -prettyTypes :: Types -> Doc-prettyTypes Types{..}+prettyTypes :: Types -> Parameters -> Doc+prettyTypes Types{..} Parameters{..}   =    prettySection "Types"-  <$$> prettyDocumentation curve'-  <$$> "data" <+> pretty curve-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of points of" <+> curve')-  <$$> prettyType field-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of coefficients of" <+> curve')-  <$$> prettyType field'+  <$$> prettyType curve field q r   <>   prettyBreak-  <$$> prettyDocumentation (curve' <+> "is an Edwards curve")+  <$$> prettyComment (curve' <+> "is an Edwards curve")   <$$> "instance Curve 'Edwards c" <+> pretty curve <+> prettyField field   <+>  "Fr => ECurve c" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2@@ -55,16 +50,12 @@     <$$> prettyInline "q_"     <$$> "r_ = const _r"     <$$> prettyInline "r_"-    <$$> "x_ = const _x"-    <$$> prettyInline "x_"-    <$$> "y_ = const _y"-    <$$> prettyInline "y_"     )   <>   prettyBreak   <$$> prettyDocumentation ("Affine" <+> curve' <+> "point")   <$$> "type PA = EAPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Affine" <+> curve' <+> "is an Edwards affine curve")+  <$$> prettyComment ("Affine" <+> curve' <+> "is an Edwards affine curve")   <$$> "instance EACurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gA_ = gA"@@ -74,7 +65,7 @@   <$$> prettyDocumentation ("Projective" <+> pretty curve <+> "point")   <$$> "type PP = EPPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Projective" <+> curve' <+> "is an Edwards projective curve")+  <$$> prettyComment ("Projective" <+> curve' <+> "is an Edwards projective curve")   <$$> "instance EPCurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gP_ = gP"@@ -98,18 +89,18 @@   <$$> prettyInline "_d"   <>   prettyBreak   <$$> prettyDocumentation ("Cofactor of" <+> curve')-  <$$> "_h :: Integer"-  <$$> "_h =" <+> prettyInteger h+  <$$> "_h :: Natural"+  <$$> "_h =" <+> prettyNatural h   <$$> prettyInline "_h"   <>   prettyBreak   <$$> prettyDocumentation ("Characteristic of" <+> curve')-  <$$> "_q :: Integer"-  <$$> "_q =" <+> prettyInteger q+  <$$> "_q :: Natural"+  <$$> "_q =" <+> prettyNatural q   <$$> prettyInline "_q"   <>   prettyBreak   <$$> prettyDocumentation ("Order of" <+> curve')-  <$$> "_r :: Integer"-  <$$> "_r =" <+> prettyInteger r+  <$$> "_r :: Natural"+  <$$> "_r =" <+> prettyNatural r   <$$> prettyInline "_r"   <>   prettyBreak   <$$> prettyDocumentation ("Coordinate @X@ of" <+> curve')@@ -136,10 +127,10 @@     curve' = pretty curve <+> "curve"  prettyCurve :: Curve -> Doc-prettyCurve (Curve types parameters)-  =    prettyImports types+prettyCurve (Curve name types parameters)+  =    prettyImports name types   <>   prettyBreak-  <$$> prettyTypes types+  <$$> prettyTypes types parameters   <>   prettyBreak   <$$> prettyParameters types parameters   <>   prettyBreak

@@ -23,8 +23,6 @@     <$$> ") where"     )   <>   prettyBreak-  <$$> "import Protolude"-  <>   prettyBreak   <$$> "import Generate.Edwards.Types"  prettyCurves :: [Curve] -> Doc@@ -39,7 +37,7 @@     )   where     prettyCurves' :: Curve -> Doc-    prettyCurves' = pretty . toLower . curve . types+    prettyCurves' = pretty . toLower . name  prettyParameters :: [Curve] -> Doc prettyParameters curves@@ -47,26 +45,24 @@   <$$> vcat (punctuate prettyBreak (map prettyParameters' curves))   where     prettyParameters' :: Curve -> Doc-    prettyParameters' (Curve Types{..} Parameters{..})-      =    pretty (toLower curve) <+> ":: Curve"-      <$$> pretty (toLower curve) <+> "= Curve"+    prettyParameters' (Curve name Types{..} Parameters{..})+      =    pretty (toLower name) <+> ":: Curve"+      <$$> pretty (toLower name) <+> "= Curve"       <$$> indent 2-        (    "{ types = Types"+        (    "{ name =" <+> prettyText name+        <$$> ", types = Types"         <$$> indent 2-          (    "{ curve   =" <+> prettyText curve-          <$$> ", field   =" <+> prettyField field-          <$$> ", field'  =" <+> prettyField field'-          <$$> ", imports = "-          <>   maybe "Nothing" ((<>) "Just " . prettyText) imports+          (    "{ curve =" <+> prettyText curve+          <$$> ", field =" <+> prettyField field           <$$> "}"           )         <$$> ", parameters = Parameters"         <$$> indent 2           (    "{ a =" <+> prettyElement a           <$$> ", d =" <+> prettyElement d-          <$$> ", h =" <+> prettyInteger h-          <$$> ", q =" <+> prettyInteger q-          <$$> ", r =" <+> prettyInteger r+          <$$> ", h =" <+> prettyNatural h+          <$$> ", q =" <+> prettyNatural q+          <$$> ", r =" <+> prettyNatural r           <$$> ", x =" <+> prettyElement x           <$$> ", y =" <+> prettyElement y           <$$> "}"

@@ -2,8 +2,6 @@   ( curves   ) where -import Protolude- import Generate.Edwards.Types  -------------------------------------------------------------------------------@@ -29,171 +27,162 @@  curve1174 :: Curve curve1174 = Curve-  { types = Types-    { curve   = "Curve1174"-    , field   = PrimeField "Fq" 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff7-    , field'  = PrimeField "Fr" 0x1fffffffffffffffffffffffffffffff77965c4dfd307348944d45fd166c971-    , imports = Nothing+  { name = "Curve1174"+  , types = Types+    { curve = "Curve1174"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1-    , d = PF 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffb61+    { a = P 0x1+    , d = P 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffb61     , h = 0x4     , q = 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff7     , r = 0x1fffffffffffffffffffffffffffffff77965c4dfd307348944d45fd166c971-    , x = PF 0x37fbb0cea308c479343aee7c029a190c021d96a492ecd6516123f27bce29eda-    , y = PF 0x6b72f82d47fb7cc6656841169840e0c4fe2dee2af3f976ba4ccb1bf9b46360e+    , x = P 0x37fbb0cea308c479343aee7c029a190c021d96a492ecd6516123f27bce29eda+    , y = P 0x6b72f82d47fb7cc6656841169840e0c4fe2dee2af3f976ba4ccb1bf9b46360e     }   }  curve41417 :: Curve curve41417 = Curve-  { types = Types-    { curve   = "Curve41417"-    , field   = PrimeField "Fq" 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffef-    , field'  = PrimeField "Fr" 0x7ffffffffffffffffffffffffffffffffffffffffffffffffffeb3cc92414cf706022b36f1c0338ad63cf181b0e71a5e106af79-    , imports = Nothing+  { name = "Curve41417"+  , types = Types+    { curve = "Curve41417"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1-    , d = PF 0xe21+    { a = P 0x1+    , d = P 0xe21     , h = 0x8     , q = 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffef     , r = 0x7ffffffffffffffffffffffffffffffffffffffffffffffffffeb3cc92414cf706022b36f1c0338ad63cf181b0e71a5e106af79-    , x = PF 0x1a334905141443300218c0631c326e5fcd46369f44c03ec7f57ff35498a4ab4d6d6ba111301a73faa8537c64c4fd3812f3cbc595-    , y = PF 0x22+    , x = P 0x1a334905141443300218c0631c326e5fcd46369f44c03ec7f57ff35498a4ab4d6d6ba111301a73faa8537c64c4fd3812f3cbc595+    , y = P 0x22     }   }  e222 :: Curve e222 = Curve-  { types = Types-    { curve   = "E222"-    , field   = PrimeField "Fq" 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffff8b-    , field'  = PrimeField "Fr" 0xffffffffffffffffffffffffffff70cbc95e932f802f31423598cbf-    , imports = Nothing+  { name = "E222"+  , types = Types+    { curve = "E222"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1-    , d = PF 0x27166+    { a = P 0x1+    , d = P 0x27166     , h = 0x4     , q = 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffff8b     , r = 0xffffffffffffffffffffffffffff70cbc95e932f802f31423598cbf-    , x = PF 0x19b12bb156a389e55c9768c303316d07c23adab3736eb2bc3eb54e51-    , y = PF 0x1c+    , x = P 0x19b12bb156a389e55c9768c303316d07c23adab3736eb2bc3eb54e51+    , y = P 0x1c     }   }  e382 :: Curve e382 = Curve-  { types = Types-    { curve   = "E382"-    , field   = PrimeField "Fq" 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff97-    , field'  = PrimeField "Fr" 0xfffffffffffffffffffffffffffffffffffffffffffffffd5fb21f21e95eee17c5e69281b102d2773e27e13fd3c9719-    , imports = Nothing+  { name = "E382"+  , types = Types+    { curve = "E382"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1-    , d = PF 0x3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffef8e1+    { a = P 0x1+    , d = P 0x3ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffef8e1     , h = 0x4     , q = 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff97     , r = 0xfffffffffffffffffffffffffffffffffffffffffffffffd5fb21f21e95eee17c5e69281b102d2773e27e13fd3c9719-    , x = PF 0x196f8dd0eab20391e5f05be96e8d20ae68f840032b0b64352923bab85364841193517dbce8105398ebc0cc9470f79603-    , y = PF 0x11+    , x = P 0x196f8dd0eab20391e5f05be96e8d20ae68f840032b0b64352923bab85364841193517dbce8105398ebc0cc9470f79603+    , y = P 0x11     }   }  e521 :: Curve e521 = Curve-  { types = Types-    { curve   = "E521"-    , field   = PrimeField "Fq" 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff-    , field'  = PrimeField "Fr" 0x7ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffd15b6c64746fc85f736b8af5e7ec53f04fbd8c4569a8f1f4540ea2435f5180d6b-    , imports = Nothing+  { name = "E521"+  , types = Types+    { curve = "E521"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1-    , d = PF 0x1fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffa4331+    { a = P 0x1+    , d = P 0x1fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffa4331     , h = 0x4     , q = 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff     , r = 0x7ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffd15b6c64746fc85f736b8af5e7ec53f04fbd8c4569a8f1f4540ea2435f5180d6b-    , x = PF 0x752cb45c48648b189df90cb2296b2878a3bfd9f42fc6c818ec8bf3c9c0c6203913f6ecc5ccc72434b1ae949d568fc99c6059d0fb13364838aa302a940a2f19ba6c-    , y = PF 0xc+    , x = P 0x752cb45c48648b189df90cb2296b2878a3bfd9f42fc6c818ec8bf3c9c0c6203913f6ecc5ccc72434b1ae949d568fc99c6059d0fb13364838aa302a940a2f19ba6c+    , y = P 0xc     }   }  ed448 :: Curve ed448 = Curve-  { types = Types-    { curve   = "Ed448"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffff-    , field'  = PrimeField "Fr" 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffff7cca23e9c44edb49aed63690216cc2728dc58f552378c292ab5844f3-    , imports = Nothing+  { name = "Ed448"+  , types = Types+    { curve = "Ed448"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1-    , d = PF 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffffffffffffffffffffffffffffffffffffffffffffffff6756+    { a = P 0x1+    , d = P 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffffffffffffffffffffffffffffffffffffffffffffffff6756     , h = 0x4     , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffff     , r = 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffff7cca23e9c44edb49aed63690216cc2728dc58f552378c292ab5844f3-    , x = PF 0x297ea0ea2692ff1b4faff46098453a6a26adf733245f065c3c59d0709cecfa96147eaaf3932d94c63d96c170033f4ba0c7f0de840aed939f-    , y = PF 0x13+    , x = P 0x297ea0ea2692ff1b4faff46098453a6a26adf733245f065c3c59d0709cecfa96147eaaf3932d94c63d96c170033f4ba0c7f0de840aed939f+    , y = P 0x13     }   }  ed3363 :: Curve ed3363 = Curve-  { types = Types-    { curve   = "Ed3363"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffd-    , field'  = PrimeField "Fr" 0x200000000000000000000000000000000000000000071415fa9850c0bd6b87f93baa7b2f95973e9fa805-    , imports = Nothing+  { name = "Ed3363"+  , types = Types+    { curve = "Ed3363"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1-    , d = PF 0x2b67+    { a = P 0x1+    , d = P 0x2b67     , h = 0x8     , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffd     , r = 0x200000000000000000000000000000000000000000071415fa9850c0bd6b87f93baa7b2f95973e9fa805-    , x = PF 0xc-    , y = PF 0xc0dc616b56502e18e1c161d007853d1b14b46c3811c7ef435b6db5d5650ca0365db12bec68505fe8632+    , x = P 0xc+    , y = P 0xc0dc616b56502e18e1c161d007853d1b14b46c3811c7ef435b6db5d5650ca0365db12bec68505fe8632     }   }  ed25519 :: Curve ed25519 = Curve-  { types = Types-    { curve   = "Ed25519"-    , field   = PrimeField "Fq" 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffed-    , field'  = PrimeField "Fr" 0x1000000000000000000000000000000014def9dea2f79cd65812631a5cf5d3ed-    , imports = Nothing+  { name = "Ed25519"+  , types = Types+    { curve = "Ed25519"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffec-    , d = PF 0x52036cee2b6ffe738cc740797779e89800700a4d4141d8ab75eb4dca135978a3+    { a = P 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffec+    , d = P 0x52036cee2b6ffe738cc740797779e89800700a4d4141d8ab75eb4dca135978a3     , h = 0x8     , q = 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffed     , r = 0x1000000000000000000000000000000014def9dea2f79cd65812631a5cf5d3ed-    , x = PF 0x216936d3cd6e53fec0a4e231fdd6dc5c692cc7609525a7b2c9562d608f25d51a-    , y = PF 0x6666666666666666666666666666666666666666666666666666666666666658+    , x = P 0x216936d3cd6e53fec0a4e231fdd6dc5c692cc7609525a7b2c9562d608f25d51a+    , y = P 0x6666666666666666666666666666666666666666666666666666666666666658     }   }  jubjub :: Curve jubjub = Curve-  { types = Types-    { curve   = "JubJub"-    , field   = PrimeField "Fq" 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001-    , field'  = PrimeField "Fr" 0xe7db4ea6533afa906673b0101343b00a6682093ccc81082d0970e5ed6f72cb7-    , imports = Nothing+  { name = "JubJub"+  , types = Types+    { curve = "JubJub"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000000-    , d = PF 0x2a9318e74bfa2b48f5fd9207e6bd7fd4292d7f6d37579d2601065fd6d6343eb1+    { a = P 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000000+    , d = P 0x2a9318e74bfa2b48f5fd9207e6bd7fd4292d7f6d37579d2601065fd6d6343eb1     , h = 0x8     , q = 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001     , r = 0xe7db4ea6533afa906673b0101343b00a6682093ccc81082d0970e5ed6f72cb7-    , x = PF 0x5183972af8eff38ca624b4df00384882000c546bf2f39ede7f4ecf1a74f976c4-    , y = PF 0x3b43f8472ca2fc2c9e8fcc5abd9dc308096c8707ffa6833b146bad709349702e+    , x = P 0x5183972af8eff38ca624b4df00384882000c546bf2f39ede7f4ecf1a74f976c4+    , y = P 0x3b43f8472ca2fc2c9e8fcc5abd9dc308096c8707ffa6833b146bad709349702e     }   }

@@ -5,6 +5,8 @@  import Protolude +import GHC.Natural (Natural)+ import Generate.Types  -------------------------------------------------------------------------------@@ -12,16 +14,17 @@ -------------------------------------------------------------------------------  data Curve = Curve-  { types      :: Types+  { name       :: Text+  , types      :: Types   , parameters :: Parameters   }  data Parameters = Parameters   { a :: Element   , d :: Element-  , h :: Integer-  , q :: Integer-  , r :: Integer+  , h :: Natural+  , q :: Natural+  , r :: Natural   , x :: Element   , y :: Element   }

@@ -14,28 +14,25 @@ -------------------------------------------------------------------------------  prettyElement :: Element -> Doc-prettyElement (BF n)-  = "BF" <+> prettyInteger n-prettyElement (EF ns)-  = "EF" <+> align+prettyElement (B n)+  = "B" <+> prettyNatural n+prettyElement (E ns)+  = "E" <+> align     (    (if null ns then "[" else "[ ")     <>   hcat (punctuate "\n, " (map prettyElement ns))     <$$> "]"     )-prettyElement (PF n)-  = "PF" <+> prettyInteger n+prettyElement (P n)+  = "P" <+> prettyNatural n  prettyField :: Field -> Doc-prettyField (BinaryField fp p)-  = "BinaryField" <+> prettyText fp <+> prettyInteger p-prettyField (ExtensionField fq fp p s k)+prettyField (Binary f2m)+  = "Binary" <+> prettyText f2m+prettyField (Extension fq p x k)   = align-    (   "ExtensionField" <+> prettyText fq <+> prettyText fp-    <+> prettyText p <+> prettyText s <+> prettyField' k+    (    "Extension" <+> prettyText fq <+> prettyText p <+> prettyText x <+> "("+    <$$> indent 2 (prettyField k)+    <$$> ")"     )-  where-    prettyField' :: Maybe Field -> Doc-    prettyField' (Just f) = "(Just" <$$> "(" <+> align (prettyField f) <$$> "))"-    prettyField' _        = "Nothing"-prettyField (PrimeField f2m p)-  = "PrimeField" <+> prettyText f2m <+> prettyInteger p+prettyField (Prime fq)+  = "Prime" <+> prettyText fq

@@ -14,34 +14,29 @@ -- Curve ------------------------------------------------------------------------------- -prettyImports :: Types -> Doc-prettyImports Types{..}-  =    "module Curve.Montgomery." <> pretty curve+prettyImports :: Text -> Types -> Doc+prettyImports name Types{..}+  =    "module Data.Curve.Montgomery." <> pretty name   <$$> indent 2-    (    "( module Curve.Montgomery"-    <$$> ", module Curve.Montgomery." <> pretty curve+    (    "( module Data.Curve.Montgomery"     <$$> ", Point(..)"+    <$$> "-- *" <+> pretty curve <+> "curve"+    <$$> ", module Data.Curve.Montgomery." <> pretty name     <$$> ") where"     )   <>   prettyBreak-  <$$> prettyImport field+  <$$> prettyImport   <>   prettyBreak-  <$$> "import Curve.Montgomery"-  <$$> maybe mempty pretty imports+  <$$> "import Data.Curve.Montgomery"+  <$$> if curve == name then mempty else "import Data.Curve.Montgomery."+  <>   pretty curve <+> "(" <> pretty curve <> ", Fq, Fr)" -prettyTypes :: Types -> Doc-prettyTypes Types{..}+prettyTypes :: Types -> Parameters -> Doc+prettyTypes Types{..} Parameters{..}   =    prettySection "Types"-  <$$> prettyDocumentation curve'-  <$$> "data" <+> pretty curve-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of points of" <+> curve')-  <$$> prettyType field-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of coefficients of" <+> curve')-  <$$> prettyType field'+  <$$> prettyType curve field q r   <>   prettyBreak-  <$$> prettyDocumentation (curve' <+> "is a Montgomery curve")+  <$$> prettyComment (curve' <+> "is a Montgomery curve")   <$$> "instance Curve 'Montgomery c" <+> pretty curve <+> prettyField field   <+>  "Fr => MCurve c" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2@@ -55,16 +50,12 @@     <$$> prettyInline "q_"     <$$> "r_ = const _r"     <$$> prettyInline "r_"-    <$$> "x_ = const _x"-    <$$> prettyInline "x_"-    <$$> "y_ = const _y"-    <$$> prettyInline "y_"     )   <>   prettyBreak   <$$> prettyDocumentation ("Affine" <+> curve' <+> "point")   <$$> "type PA = MAPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Affine" <+> curve' <+> "is a Montgomery affine curve")+  <$$> prettyComment ("Affine" <+> curve' <+> "is a Montgomery affine curve")   <$$> "instance MACurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gA_ = gA"@@ -88,18 +79,18 @@   <$$> prettyInline "_b"   <>   prettyBreak   <$$> prettyDocumentation ("Cofactor of" <+> curve')-  <$$> "_h :: Integer"-  <$$> "_h =" <+> prettyInteger h+  <$$> "_h :: Natural"+  <$$> "_h =" <+> prettyNatural h   <$$> prettyInline "_h"   <>   prettyBreak   <$$> prettyDocumentation ("Characteristic of" <+> curve')-  <$$> "_q :: Integer"-  <$$> "_q =" <+> prettyInteger q+  <$$> "_q :: Natural"+  <$$> "_q =" <+> prettyNatural q   <$$> prettyInline "_q"   <>   prettyBreak   <$$> prettyDocumentation ("Order of" <+> curve')-  <$$> "_r :: Integer"-  <$$> "_r =" <+> prettyInteger r+  <$$> "_r :: Natural"+  <$$> "_r =" <+> prettyNatural r   <$$> prettyInline "_r"   <>   prettyBreak   <$$> prettyDocumentation ("Coordinate @X@ of" <+> curve')@@ -121,10 +112,10 @@     curve' = pretty curve <+> "curve"  prettyCurve :: Curve -> Doc-prettyCurve (Curve types parameters)-  =    prettyImports types+prettyCurve (Curve name types parameters)+  =    prettyImports name types   <>   prettyBreak-  <$$> prettyTypes types+  <$$> prettyTypes types parameters   <>   prettyBreak   <$$> prettyParameters types parameters   <>   prettyBreak

@@ -23,8 +23,6 @@     <$$> ") where"     )   <>   prettyBreak-  <$$> "import Protolude"-  <>   prettyBreak   <$$> "import Generate.Montgomery.Types"  prettyCurves :: [Curve] -> Doc@@ -39,7 +37,7 @@     )   where     prettyCurves' :: Curve -> Doc-    prettyCurves' = pretty . toLower . curve . types+    prettyCurves' = pretty . toLower . name  prettyParameters :: [Curve] -> Doc prettyParameters curves@@ -47,26 +45,24 @@   <$$> vcat (punctuate prettyBreak (map prettyParameters' curves))   where     prettyParameters' :: Curve -> Doc-    prettyParameters' (Curve Types{..} Parameters{..})-      =    pretty (toLower curve) <+> ":: Curve"-      <$$> pretty (toLower curve) <+> "= Curve"+    prettyParameters' (Curve name Types{..} Parameters{..})+      =    pretty (toLower name) <+> ":: Curve"+      <$$> pretty (toLower name) <+> "= Curve"       <$$> indent 2-        (    "{ types = Types"+        (    "{ name =" <+> prettyText name+        <$$> ", types = Types"         <$$> indent 2-          (    "{ curve   =" <+> prettyText curve-          <$$> ", field   =" <+> prettyField field-          <$$> ", field'  =" <+> prettyField field'-          <$$> ", imports = "-          <>   maybe "Nothing" ((<>) "Just " . prettyText) imports+          (    "{ curve =" <+> prettyText curve+          <$$> ", field =" <+> prettyField field           <$$> "}"           )         <$$> ", parameters = Parameters"         <$$> indent 2           (    "{ a =" <+> prettyElement a           <$$> ", b =" <+> prettyElement b-          <$$> ", h =" <+> prettyInteger h-          <$$> ", q =" <+> prettyInteger q-          <$$> ", r =" <+> prettyInteger r+          <$$> ", h =" <+> prettyNatural h+          <$$> ", q =" <+> prettyNatural q+          <$$> ", r =" <+> prettyNatural r           <$$> ", x =" <+> prettyElement x           <$$> ", y =" <+> prettyElement y           <$$> "}"

@@ -2,8 +2,6 @@   ( curves   ) where -import Protolude- import Generate.Montgomery.Types  -------------------------------------------------------------------------------@@ -26,114 +24,108 @@  curve448 :: Curve curve448 = Curve-  { types = Types-    { curve   = "Curve448"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffff-    , field'  = PrimeField "Fr" 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffff7cca23e9c44edb49aed63690216cc2728dc58f552378c292ab5844f3-    , imports = Nothing+  { name = "Curve448"+  , types = Types+    { curve = "Curve448"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x262a6-    , b = PF 0x1+    { a = P 0x262a6+    , b = P 0x1     , h = 0x4     , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffff     , r = 0x3fffffffffffffffffffffffffffffffffffffffffffffffffffffff7cca23e9c44edb49aed63690216cc2728dc58f552378c292ab5844f3-    , x = PF 0x5-    , y = PF 0x7d235d1295f5b1f66c98ab6e58326fcecbae5d34f55545d060f75dc28df3f6edb8027e2346430d211312c4b150677af76fd7223d457b5b1a+    , x = P 0x5+    , y = P 0x7d235d1295f5b1f66c98ab6e58326fcecbae5d34f55545d060f75dc28df3f6edb8027e2346430d211312c4b150677af76fd7223d457b5b1a     }   }  curve25519 :: Curve curve25519 = Curve-  { types = Types-    { curve   = "Curve25519"-    , field   = PrimeField "Fq" 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffed-    , field'  = PrimeField "Fr" 0x1000000000000000000000000000000014def9dea2f79cd65812631a5cf5d3ed-    , imports = Nothing+  { name = "Curve25519"+  , types = Types+    { curve = "Curve25519"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x76d06-    , b = PF 0x1+    { a = P 0x76d06+    , b = P 0x1     , h = 0x8     , q = 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffed     , r = 0x1000000000000000000000000000000014def9dea2f79cd65812631a5cf5d3ed-    , x = PF 0x9-    , y = PF 0x20ae19a1b8a086b4e01edd2c7748d14c923d4d7e6d7c61b229e9c5a27eced3d9+    , x = P 0x9+    , y = P 0x20ae19a1b8a086b4e01edd2c7748d14c923d4d7e6d7c61b229e9c5a27eced3d9     }   }  curve383187 :: Curve curve383187 = Curve-  { types = Types-    { curve   = "Curve383187"-    , field   = PrimeField "Fq" 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff45-    , field'  = PrimeField "Fr" 0x1000000000000000000000000000000000000000000000000e85a85287a1488acd41ae84b2b7030446f72088b00a0e21-    , imports = Nothing+  { name = "Curve383187"+  , types = Types+    { curve = "Curve383187"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x38251-    , b = PF 0x1+    { a = P 0x38251+    , b = P 0x1     , h = 0x8     , q = 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff45     , r = 0x1000000000000000000000000000000000000000000000000e85a85287a1488acd41ae84b2b7030446f72088b00a0e21-    , x = PF 0x5-    , y = PF 0x1eebe07dc1871896732b12d5504a32370471965c7a11f2c89865f855ab3cbd7c224e3620c31af3370788457dd5ce46df+    , x = P 0x5+    , y = P 0x1eebe07dc1871896732b12d5504a32370471965c7a11f2c89865f855ab3cbd7c224e3620c31af3370788457dd5ce46df     }   }  m221 :: Curve m221 = Curve-  { types = Types-    { curve   = "M221"-    , field   = PrimeField "Fq" 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffd-    , field'  = PrimeField "Fr" 0x40000000000000000000000000015a08ed730e8a2f77f005042605b-    , imports = Nothing+  { name = "M221"+  , types = Types+    { curve = "M221"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1c93a-    , b = PF 0x1+    { a = P 0x1c93a+    , b = P 0x1     , h = 0x8     , q = 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffd     , r = 0x40000000000000000000000000015a08ed730e8a2f77f005042605b-    , x = PF 0x4-    , y = PF 0xf7acdd2a4939571d1cef14eca37c228e61dbff10707dc6c08c5056d+    , x = P 0x4+    , y = P 0xf7acdd2a4939571d1cef14eca37c228e61dbff10707dc6c08c5056d     }   }  m383 :: Curve m383 = Curve-  { types = Types-    { curve   = "M383"-    , field   = PrimeField "Fq" 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff45-    , field'  = PrimeField "Fr" 0x10000000000000000000000000000000000000000000000006c79673ac36ba6e7a32576f7b1b249e46bbc225be9071d7-    , imports = Nothing+  { name = "M383"+  , types = Types+    { curve = "M383"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x1f82fe-    , b = PF 0x1+    { a = P 0x1f82fe+    , b = P 0x1     , h = 0x8     , q = 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff45     , r = 0x10000000000000000000000000000000000000000000000006c79673ac36ba6e7a32576f7b1b249e46bbc225be9071d7-    , x = PF 0xc-    , y = PF 0x1ec7ed04aaf834af310e304b2da0f328e7c165f0e8988abd3992861290f617aa1f1b2e7d0b6e332e969991b62555e77e+    , x = P 0xc+    , y = P 0x1ec7ed04aaf834af310e304b2da0f328e7c165f0e8988abd3992861290f617aa1f1b2e7d0b6e332e969991b62555e77e     }   }  m511 :: Curve m511 = Curve-  { types = Types-    { curve   = "M511"-    , field   = PrimeField "Fq" 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff45-    , field'  = PrimeField "Fr" 0x100000000000000000000000000000000000000000000000000000000000000017b5feff30c7f5677ab2aeebd13779a2ac125042a6aa10bfa54c15bab76baf1b-    , imports = Nothing+  { name = "M511"+  , types = Types+    { curve = "M511"+    , field = Prime "Fq"     }   , parameters = Parameters-    { a = PF 0x81806-    , b = PF 0x1+    { a = P 0x81806+    , b = P 0x1     , h = 0x8     , q = 0x7fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff45     , r = 0x100000000000000000000000000000000000000000000000000000000000000017b5feff30c7f5677ab2aeebd13779a2ac125042a6aa10bfa54c15bab76baf1b-    , x = PF 0x5-    , y = PF 0x2fbdc0ad8530803d28fdbad354bb488d32399ac1cf8f6e01ee3f96389b90c809422b9429e8a43dbf49308ac4455940abe9f1dbca542093a895e30a64af056fa5+    , x = P 0x5+    , y = P 0x2fbdc0ad8530803d28fdbad354bb488d32399ac1cf8f6e01ee3f96389b90c809422b9429e8a43dbf49308ac4455940abe9f1dbca542093a895e30a64af056fa5     }   }

@@ -5,6 +5,8 @@  import Protolude +import GHC.Natural (Natural)+ import Generate.Types  -------------------------------------------------------------------------------@@ -12,16 +14,17 @@ -------------------------------------------------------------------------------  data Curve = Curve-  { types      :: Types+  { name       :: Text+  , types      :: Types   , parameters :: Parameters   }  data Parameters = Parameters   { a :: Element   , b :: Element-  , h :: Integer-  , q :: Integer-  , r :: Integer+  , h :: Natural+  , q :: Natural+  , r :: Natural   , x :: Element   , y :: Element   }

@@ -4,6 +4,7 @@  import Protolude +import GHC.Natural (Natural) import Numeric (showHex) import Text.PrettyPrint.Leijen.Text @@ -15,6 +16,10 @@ prettyBreak   = linebreak +prettyComment :: Doc -> Doc+prettyComment+  = enclose "-- " dot+ prettyDocumentation :: Doc -> Doc prettyDocumentation   = enclose "-- | " dot@@ -23,13 +28,13 @@ prettyInline   = braces . enclose "-# INLINABLE " " #-" -prettyInteger :: Integer -> Doc-prettyInteger-  = (<>) "0x" . pretty . flip showHex ""- prettyLine :: Doc prettyLine   = pretty (replicate 79 '-')++prettyNatural :: Natural -> Doc+prettyNatural+  = (<>) "0x" . pretty . flip showHex ""  prettySection :: Doc -> Doc prettySection

@@ -4,21 +4,21 @@  import Protolude +import GHC.Natural (Natural)+ ------------------------------------------------------------------------------- -- Types ------------------------------------------------------------------------------- -data Element = BF Integer-             | EF [Element]-             | PF Integer+data Element = B Natural+             | E [Element]+             | P Natural -data Field = BinaryField Text Integer-           | ExtensionField Text Text Text Text (Maybe Field)-           | PrimeField Text Integer+data Field = Binary Text+           | Extension Text Text Text Field+           | Prime Text  data Types = Types-  { curve   :: Text-  , field   :: Field-  , field'  :: Field-  , imports :: Maybe Text+  { curve :: Text+  , field :: Field   }

@@ -14,34 +14,29 @@ -- Curve ------------------------------------------------------------------------------- -prettyImports :: Types -> Doc-prettyImports Types{..}-  =    "module Curve.Weierstrass." <> pretty curve+prettyImports :: Text -> Types -> Doc+prettyImports name Types{..}+  =    "module Data.Curve.Weierstrass." <> pretty name   <$$> indent 2-    (    "( module Curve.Weierstrass"-    <$$> ", module Curve.Weierstrass." <> pretty curve+    (    "( module Data.Curve.Weierstrass"     <$$> ", Point(..)"+    <$$> "-- *" <+> pretty curve <+> "curve"+    <$$> ", module Data.Curve.Weierstrass." <> pretty name     <$$> ") where"     )   <>   prettyBreak-  <$$> prettyImport field+  <$$> prettyImport   <>   prettyBreak-  <$$> "import Curve.Weierstrass"-  <$$> maybe mempty pretty imports+  <$$> "import Data.Curve.Weierstrass"+  <$$> if curve == name then mempty else "import Data.Curve.Weierstrass."+  <>   pretty curve <+> "(" <> pretty curve <> ", Fq, Fr)" -prettyTypes :: Types -> Doc-prettyTypes Types{..}+prettyTypes :: Types -> Parameters -> Doc+prettyTypes Types{..} Parameters{..}   =    prettySection "Types"-  <$$> prettyDocumentation curve'-  <$$> "data" <+> pretty curve-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of points of" <+> curve')-  <$$> prettyType field-  <>   prettyBreak-  <$$> prettyDocumentation ("Field of coefficients of" <+> curve')-  <$$> prettyType field'+  <$$> prettyType curve field q r   <>   prettyBreak-  <$$> prettyDocumentation (curve' <+> "is a Weierstrass curve")+  <$$> prettyComment (curve' <+> "is a Weierstrass curve")   <$$> "instance Curve 'Weierstrass c" <+> pretty curve <+> prettyField field   <+>  "Fr => WCurve c" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2@@ -55,16 +50,12 @@     <$$> prettyInline "q_"     <$$> "r_ = const _r"     <$$> prettyInline "r_"-    <$$> "x_ = const _x"-    <$$> prettyInline "x_"-    <$$> "y_ = const _y"-    <$$> prettyInline "y_"     )   <>   prettyBreak   <$$> prettyDocumentation ("Affine" <+> curve' <+> "point")   <$$> "type PA = WAPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Affine" <+> curve' <+> "is a Weierstrass affine curve")+  <$$> prettyComment ("Affine" <+> curve' <+> "is a Weierstrass affine curve")   <$$> "instance WACurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gA_ = gA"@@ -74,7 +65,7 @@   <$$> prettyDocumentation ("Jacobian" <+> pretty curve <+> "point")   <$$> "type PJ = WJPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Jacobian" <+> curve' <+> "is a Weierstrass Jacobian curve")+  <$$> prettyComment ("Jacobian" <+> curve' <+> "is a Weierstrass Jacobian curve")   <$$> "instance WJCurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gJ_ = gJ"@@ -84,7 +75,7 @@   <$$> prettyDocumentation ("Projective" <+> pretty curve <+> "point")   <$$> "type PP = WPPoint" <+> pretty curve <+> prettyField field <+> "Fr"   <>   prettyBreak-  <$$> prettyDocumentation ("Projective" <+> curve' <+> "is a Weierstrass projective curve")+  <$$> prettyComment ("Projective" <+> curve' <+> "is a Weierstrass projective curve")   <$$> "instance WPCurve" <+> pretty curve <+> prettyField field <+> "Fr where"   <$$> indent 2     (    "gP_ = gP"@@ -108,18 +99,18 @@   <$$> prettyInline "_b"   <>   prettyBreak   <$$> prettyDocumentation ("Cofactor of" <+> curve')-  <$$> "_h :: Integer"-  <$$> "_h =" <+> prettyInteger h+  <$$> "_h :: Natural"+  <$$> "_h =" <+> prettyNatural h   <$$> prettyInline "_h"   <>   prettyBreak   <$$> prettyDocumentation ("Characteristic of" <+> curve')-  <$$> "_q :: Integer"-  <$$> "_q =" <+> prettyInteger q+  <$$> "_q :: Natural"+  <$$> "_q =" <+> prettyNatural q   <$$> prettyInline "_q"   <>   prettyBreak   <$$> prettyDocumentation ("Order of" <+> curve')-  <$$> "_r :: Integer"-  <$$> "_r =" <+> prettyInteger r+  <$$> "_r :: Natural"+  <$$> "_r =" <+> prettyNatural r   <$$> prettyInline "_r"   <>   prettyBreak   <$$> prettyDocumentation ("Coordinate @X@ of" <+> curve')@@ -151,10 +142,10 @@     curve' = pretty curve <+> "curve"  prettyCurve :: Curve -> Doc-prettyCurve (Curve types parameters)-  =    prettyImports types+prettyCurve (Curve name types parameters)+  =    prettyImports name types   <>   prettyBreak-  <$$> prettyTypes types+  <$$> prettyTypes types parameters   <>   prettyBreak   <$$> prettyParameters types parameters   <>   prettyBreak

@@ -23,8 +23,6 @@     <$$> ") where"     )   <>   prettyBreak-  <$$> "import Protolude"-  <>   prettyBreak   <$$> "import Generate.Weierstrass.Types"  prettyCurves :: [Curve] -> Doc@@ -39,7 +37,7 @@     )   where     prettyCurves' :: Curve -> Doc-    prettyCurves' = pretty . toLower . curve . types+    prettyCurves' = pretty . toLower . name  prettyParameters :: [Curve] -> Doc prettyParameters curves@@ -47,26 +45,24 @@   <$$> vcat (punctuate prettyBreak (map prettyParameters' curves))   where     prettyParameters' :: Curve -> Doc-    prettyParameters' (Curve Types{..} Parameters{..})-      =    pretty (toLower curve) <+> ":: Curve"-      <$$> pretty (toLower curve) <+> "= Curve"+    prettyParameters' (Curve name Types{..} Parameters{..})+      =    pretty (toLower name) <+> ":: Curve"+      <$$> pretty (toLower name) <+> "= Curve"       <$$> indent 2-        (    "{ types = Types"+        (    "{ name =" <+> prettyText name+        <$$> ", types = Types"         <$$> indent 2-          (    "{ curve   =" <+> prettyText curve-          <$$> ", field   =" <+> prettyField field-          <$$> ", field'  =" <+> prettyField field'-          <$$> ", imports = "-          <>   maybe "Nothing" ((<>) "Just " . prettyText) imports+          (    "{ curve =" <+> prettyText curve+          <$$> ", field =" <+> prettyField field           <$$> "}"           )         <$$> ", parameters = Parameters"         <$$> indent 2           (    "{ a =" <+> prettyElement a           <$$> ", b =" <+> prettyElement b-          <$$> ", h =" <+> prettyInteger h-          <$$> ", q =" <+> prettyInteger q-          <$$> ", r =" <+> prettyInteger r+          <$$> ", h =" <+> prettyNatural h+          <$$> ", q =" <+> prettyNatural q+          <$$> ", r =" <+> prettyNatural r           <$$> ", x =" <+> prettyElement x           <$$> ", y =" <+> prettyElement y           <$$> "}"

@@ -2,1034 +2,1091 @@   ( curves   ) where -import Protolude--import Generate.Weierstrass.Types------------------------------------------------------------------------------------ Curves----------------------------------------------------------------------------------curves :: [Curve]-curves =-  [ anomalous-  , anssifrp256v1-  , bls12381-  , bls12381t-  , bls48581-  , bls48581t-  , bn224-  , bn254-  , bn254t-  , bn254a-  , bn254at-  , bn254b-  , bn254bt-  , bn256-  , bn384-  , bn462-  , bn462t-  , bn512-  , brainpoolp160r1-  , brainpoolp160t1-  , brainpoolp192r1-  , brainpoolp192t1-  , brainpoolp224r1-  , brainpoolp224t1-  , brainpoolp256r1-  , brainpoolp256t1-  , brainpoolp320r1-  , brainpoolp320t1-  , brainpoolp384r1-  , brainpoolp384t1-  , brainpoolp512r1-  , brainpoolp512t1-  , secp112r1-  , secp112r2-  , secp128r1-  , secp128r2-  , secp160k1-  , secp160r1-  , secp160r2-  , secp192k1-  , secp192r1-  , secp224k1-  , secp224r1-  , secp256k1-  , secp256r1-  , secp384r1-  , secp521r1-  ]------------------------------------------------------------------------------------ Parameters----------------------------------------------------------------------------------anomalous :: Curve-anomalous = Curve-  { types = Types-    { curve   = "Anomalous"-    , field   = PrimeField "Fq" 0xb0000000000000000000000953000000000000000000001f9d7-    , field'  = PrimeField "Fr" 0xb0000000000000000000000953000000000000000000001f9d7-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x98d0fac687d6343eb1a1f595283eb1a1f58d0fac687d635f5e4-    , b = PF 0x4a1f58d0fac687d6343eb1a5e2d6343eb1a1f58d0fac688ab3f-    , h = 0x1-    , q = 0xb0000000000000000000000953000000000000000000001f9d7-    , r = 0xb0000000000000000000000953000000000000000000001f9d7-    , x = PF 0x101efb35fd1963c4871a2d17edaafa7e249807f58f8705126c6-    , y = PF 0x22389a3954375834304ba1d509a97de6c07148ea7f5951b20e7-    }-  }--anssifrp256v1 :: Curve-anssifrp256v1 = Curve-  { types = Types-    { curve   = "ANSSIFRP256V1"-    , field   = PrimeField "Fq" 0xf1fd178c0b3ad58f10126de8ce42435b3961adbcabc8ca6de8fcf353d86e9c03-    , field'  = PrimeField "Fr" 0xf1fd178c0b3ad58f10126de8ce42435b53dc67e140d2bf941ffdd459c6d655e1-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xf1fd178c0b3ad58f10126de8ce42435b3961adbcabc8ca6de8fcf353d86e9c00-    , b = PF 0xee353fca5428a9300d4aba754a44c00fdfec0c9ae4b1a1803075ed967b7bb73f-    , h = 0x1-    , q = 0xf1fd178c0b3ad58f10126de8ce42435b3961adbcabc8ca6de8fcf353d86e9c03-    , r = 0xf1fd178c0b3ad58f10126de8ce42435b53dc67e140d2bf941ffdd459c6d655e1-    , x = PF 0xb6b3d4c356c139eb31183d4749d423958c27d2dcaf98b70164c97a2dd98f5cff-    , y = PF 0x6142e0f7c8b204911f9271f0f3ecef8c2701c307e8e4c9e183115a1554062cfb-    }-  }--bls12381 :: Curve-bls12381 = Curve-  { types = Types-    { curve   = "BLS12381"-    , field   = PrimeField "Fq" 0x1a0111ea397fe69a4b1ba7b6434bacd764774b84f38512bf6730d2a0f6b0f6241eabfffeb153ffffb9feffffffffaaab-    , field'  = PrimeField "Fr" 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x4-    , h = 0x396c8c005555e1568c00aaab0000aaab-    , q = 0x1a0111ea397fe69a4b1ba7b6434bacd764774b84f38512bf6730d2a0f6b0f6241eabfffeb153ffffb9feffffffffaaab-    , r = 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001-    , x = PF 0x17f1d3a73197d7942695638c4fa9ac0fc3688c4f9774b905a14e3a3f171bac586c55e83ff97a1aeffb3af00adb22c6bb-    , y = PF 0x8b3f481e3aaa0f1a09e30ed741d8ae4fcf5e095d5d00af600db18cb2c04b3edd03cc744a2888ae40caa232946c5e7e1-    }-  }--bls12381t :: Curve-bls12381t = Curve-  { types = Types-    { curve   = "BLS12381T"-    , field   = ExtensionField "Fq2" "Fq" "PolynomialU" "X2 + 1" Nothing-    , field'  = PrimeField "Fr" 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001-    , imports = Just "import Curve.Weierstrass.BLS12381 (Fq)"-    }-  , parameters = Parameters-    { a = EF [-             ]-    , b = EF [ PF 0x4-             , PF 0x4-             ]-    , h = 0x5d543a95414e7f1091d50792876a202cd91de4547085abaa68a205b2e5a7ddfa628f1cb4d9e82ef21537e293a6691ae1616ec6e786f0c70cf1c38e31c7238e5-    , q = 0x1a0111ea397fe69a4b1ba7b6434bacd764774b84f38512bf6730d2a0f6b0f6241eabfffeb153ffffb9feffffffffaaab-    , r = 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001-    , x = EF [ PF 0x24aa2b2f08f0a91260805272dc51051c6e47ad4fa403b02b4510b647ae3d1770bac0326a805bbefd48056c8c121bdb8-             , PF 0x13e02b6052719f607dacd3a088274f65596bd0d09920b61ab5da61bbdc7f5049334cf11213945d57e5ac7d055d042b7e-             ]-    , y = EF [ PF 0xce5d527727d6e118cc9cdc6da2e351aadfd9baa8cbdd3a76d429a695160d12c923ac9cc3baca289e193548608b82801-             , PF 0x606c4a02ea734cc32acd2b02bc28b99cb3e287e85a763af267492ab572e99ab3f370d275cec1da1aaa9075ff05f79be-             ]-    }-  }--bls48581 :: Curve-bls48581 = Curve-  { types = Types-    { curve   = "BLS48581"-    , field   = PrimeField "Fq" 0x1280f73ff3476f313824e31d47012a0056e84f8d122131bb3be6c0f1f3975444a48ae43af6e082acd9cd30394f4736daf68367a5513170ee0a578fdf721a4a48ac3edc154e6565912b-    , field'  = PrimeField "Fr" 0x2386f8a925e2885e233a9ccc1615c0d6c635387a3f0b3cbe003fad6bc972c2e6e741969d34c4c92016a85c7cd0562303c4ccbe599467c24da118a5fe6fcd671c01-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x1-    , h = 0x85555841aaaec4ac-    , q = 0x1280f73ff3476f313824e31d47012a0056e84f8d122131bb3be6c0f1f3975444a48ae43af6e082acd9cd30394f4736daf68367a5513170ee0a578fdf721a4a48ac3edc154e6565912b-    , r = 0x2386f8a925e2885e233a9ccc1615c0d6c635387a3f0b3cbe003fad6bc972c2e6e741969d34c4c92016a85c7cd0562303c4ccbe599467c24da118a5fe6fcd671c01-    , x = PF 0x2af59b7ac340f2baf2b73df1e93f860de3f257e0e86868cf61abdbaedffb9f7544550546a9df6f9645847665d859236ebdbc57db368b11786cb74da5d3a1e6d8c3bce8732315af640-    , y = PF 0xcefda44f6531f91f86b3a2d1fb398a488a553c9efeb8a52e991279dd41b720ef7bb7beffb98aee53e80f678584c3ef22f487f77c2876d1b2e35f37aef7b926b576dbb5de3e2587a70-    }-  }--bls48581t :: Curve-bls48581t = Curve-  { types = Types-    { curve   = "BLS48581T"-    , field   = ExtensionField "Fq8" "Fq4" "PolynomialW" "X2 + Y X" (Just-                ( ExtensionField "Fq4" "Fq2" "PolynomialV" "X2 + 1 + Y X" (Just-                  ( ExtensionField "Fq2" "Fq" "PolynomialU" "X2 + 1" Nothing-                  ))-                ))-    , field'  = PrimeField "Fr" 0x2386f8a925e2885e233a9ccc1615c0d6c635387a3f0b3cbe003fad6bc972c2e6e741969d34c4c92016a85c7cd0562303c4ccbe599467c24da118a5fe6fcd671c01-    , imports = Just "import Curve.Weierstrass.BLS48581 (Fq)"-    }-  , parameters = Parameters-    { a = EF [-             ]-    , b = EF [ EF [-                  ]-             , EF [ EF [-                       ]-                  , EF [ PF 0x9407b9ff9a3b7989c12718ea38095002b7427c6891098dd9df36078f9cbaa225245721d7b7041566ce6981ca7a39b6d7b41b3d2a898b877052bc7efb90d2524561f6e0aa732b2c895-                       , PF 0x9407b9ff9a3b7989c12718ea38095002b7427c6891098dd9df36078f9cbaa225245721d7b7041566ce6981ca7a39b6d7b41b3d2a898b877052bc7efb90d2524561f6e0aa732b2c896-                       ]-                  ]-             ]-    , h = 0x170e915cb0a6b7406b8d94042317f811d6bc3fc6e211ada42e58ccfcb3ac076a7e4499d700a0c23dc4b0c078f92def8c87b7fe63e1eea270db353a4ef4d38b5998ad8f0d042ea24c8f02be1c0c83992fe5d7725227bb27123a949e0876c0a8ce0a67326db0e955dcb791b867f31d6bfa62fbdd5f44a00504df04e186fae033f1eb43c1b1a08b6e086eff03c8fee9ebdd1e191a8a4b0466c90b389987de5637d5dd13dab33196bd2e5afa6cd19cf0fc3fc7db7ece1f3fac742626b1b02fcee04043b2ea96492f6afa51739597c54bb78aa6b0b99319fef9d09f768831018ee6564c68d054c62f2e0b4549426fec24ab26957a669dba2a2b6945ce40c9aec6afdeda16c79e15546cd7771fa544d5364236690ea06832679562a68731420ae52d0d35a90b8d10b688e31b6aee45f45b7a5083c71732105852decc888f64839a4de33b99521f0984a418d20fc7b0609530e454f0696fa2a8075ac01cc8ae3869e8d0fe1f3788ffac4c01aa2720e431da333c83d9663bfb1fb7a1a7b90528482c6be7892299030bb51a51dc7e91e9156874416bf4c26f1ea7ec578058563960ef92bbbb8632d3a1b695f954af10e9a78e40acffc13b06540aae9da5287fc4429485d44e6289d8c0d6a3eb2ece35012452751839fb48bc14b515478e2ff412d930ac20307561f3a5c998e6bcbfebd97effc6433033a2361bfcdc4fc74ad379a16c6dea49c209b1-    , q = 0x1280f73ff3476f313824e31d47012a0056e84f8d122131bb3be6c0f1f3975444a48ae43af6e082acd9cd30394f4736daf68367a5513170ee0a578fdf721a4a48ac3edc154e6565912b-    , r = 0x2386f8a925e2885e233a9ccc1615c0d6c635387a3f0b3cbe003fad6bc972c2e6e741969d34c4c92016a85c7cd0562303c4ccbe599467c24da118a5fe6fcd671c01-    , x = EF [ EF [ EF [ PF 0x5d615d9a7871e4a38237fa45a2775debabbefc70344dbccb7de64db3a2ef156c46ff79baad1a8c42281a63ca0612f400503004d80491f510317b79766322154dec34fd0b4ace8bfab-                       , PF 0x7c4973ece2258512069b0e86abc07e8b22bb6d980e1623e9526f6da12307f4e1c3943a00abfedf16214a76affa62504f0c3c7630d979630ffd75556a01afa143f1669b36676b47c57-                       ]-                  , EF [ PF 0x1fccc70198f1334e1b2ea1853ad83bc73a8a6ca9ae237ca7a6d6957ccbab5ab6860161c1dbd19242ffae766f0d2a6d55f028cbdfbb879d5fea8ef4cded6b3f0b46488156ca55a3e6a-                       , PF 0xbe2218c25ceb6185c78d8012954d4bfe8f5985ac62f3e5821b7b92a393f8be0cc218a95f63e1c776e6ec143b1b279b9468c31c5257c200ca52310b8cb4e80bc3f09a7033cbb7feafe-                       ]-                  ]-             , EF [ EF [ PF 0x38b91c600b35913a3c598e4caa9dd63007c675d0b1642b5675ff0e7c5805386699981f9e48199d5ac10b2ef492ae589274fad55fc1889aa80c65b5f746c9d4cbb739c3a1c53f8cce5-                       , PF 0xc96c7797eb0738603f1311e4ecda088f7b8f35dcef0977a3d1a58677bb037418181df63835d28997eb57b40b9c0b15dd7595a9f177612f097fc7960910fce3370f2004d914a3c093a-                       ]-                  , EF [ PF 0xb9b7951c6061ee3f0197a498908aee660dea41b39d13852b6db908ba2c0b7a449cef11f293b13ced0fd0caa5efcf3432aad1cbe4324c22d63334b5b0e205c3354e41607e60750e057-                       , PF 0x827d5c22fb2bdec5282624c4f4aaa2b1e5d7a9defaf47b5211cf741719728a7f9f8cfca93f29cff364a7190b7e2b0d4585479bd6aebf9fc44e56af2fc9e97c3f84e19da00fbc6ae34-                       ]-                  ]-             ]-    , y = EF [ EF [ EF [ PF 0xeb53356c375b5dfa497216452f3024b918b4238059a577e6f3b39ebfc435faab0906235afa27748d90f7336d8ae5163c1599abf77eea6d659045012ab12c0ff323edd3fe4d2d7971-                       , PF 0x284dc75979e0ff144da6531815fcadc2b75a422ba325e6fba01d72964732fcbf3afb096b243b1f192c5c3d1892ab24e1dd212fa097d760e2e588b423525ffc7b111471db936cd5665-                       ]-                  , EF [ PF 0xb36a201dd008523e421efb70367669ef2c2fc5030216d5b119d3a480d370514475f7d5c99d0e90411515536ca3295e5e2f0c1d35d51a652269cbc7c46fc3b8fde68332a526a2a8474-                       , PF 0xaec25a4621edc0688223fbbd478762b1c2cded3360dcee23dd8b0e710e122d2742c89b224333fa40dced2817742770ba10d67bda503ee5e578fb3d8b8a1e5337316213da92841589d-                       ]-                  ]-             , EF [ EF [ PF 0xd209d5a223a9c46916503fa5a88325a2554dc541b43dd93b5a959805f1129857ed85c77fa238cdce8a1e2ca4e512b64f59f430135945d137b08857fdddfcf7a43f47831f982e50137-                       , PF 0x7d0d03745736b7a513d339d5ad537b90421ad66eb16722b589d82e2055ab7504fa83420e8c270841f6824f47c180d139e3aafc198caa72b679da59ed8226cf3a594eedc58cf90bee4-                       ]-                  , EF [ PF 0x896767811be65ea25c2d05dfdd17af8a006f364fc0841b064155f14e4c819a6df98f425ae3a2864f22c1fab8c74b2618b5bb40fa639f53dccc9e884017d9aa62b3d41faeafeb23986-                       , PF 0x35e2524ff89029d393a5c07e84f981b5e068f1406be8e50c87549b6ef8eca9a9533a3f8e69c31e97e1ad0333ec719205417300d8c4ab33f748e5ac66e84069c55d667ffcb732718b6-                       ]-                  ]-             ]-    }-  }--bn224 :: Curve-bn224 = Curve-  { types = Types-    { curve   = "BN224"-    , field   = PrimeField "Fq" 0xfffffffffff107288ec29e602c4520db42180823bb907d1287127833-    , field'  = PrimeField "Fr" 0xfffffffffff107288ec29e602c4420db4218082b36c2accff76c58ed-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x3-    , h = 0x1-    , q = 0xfffffffffff107288ec29e602c4520db42180823bb907d1287127833-    , r = 0xfffffffffff107288ec29e602c4420db4218082b36c2accff76c58ed-    , x = PF 0x1-    , y = PF 0x2-    }-  }--bn254 :: Curve-bn254 = Curve-  { types = Types-    { curve   = "BN254"-    , field   = PrimeField "Fq" 0x30644e72e131a029b85045b68181585d97816a916871ca8d3c208c16d87cfd47-    , field'  = PrimeField "Fr" 0x30644e72e131a029b85045b68181585d2833e84879b9709143e1f593f0000001-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x3-    , h = 0x1-    , q = 0x30644e72e131a029b85045b68181585d97816a916871ca8d3c208c16d87cfd47-    , r = 0x30644e72e131a029b85045b68181585d2833e84879b9709143e1f593f0000001-    , x = PF 0x1-    , y = PF 0x2-    }-  }--bn254t :: Curve-bn254t = Curve-  { types = Types-    { curve   = "BN254T"-    , field   = ExtensionField "Fq2" "Fq" "PolynomialU" "X2 + 1" Nothing-    , field'  = PrimeField "Fr" 0x30644e72e131a029b85045b68181585d2833e84879b9709143e1f593f0000001-    , imports = Just "import Curve.Weierstrass.BN254 (Fq)"-    }-  , parameters = Parameters-    { a = EF [-             ]-    , b = EF [ PF 0x2b149d40ceb8aaae81be18991be06ac3b5b4c5e559dbefa33267e6dc24a138e5-             , PF 0x9713b03af0fed4cd2cafadeed8fdf4a74fa084e52d1852e4a2bd0685c315d2-             ]-    , h = 0x30644e72e131a029b85045b68181585e06ceecda572a2489345f2299c0f9fa8d-    , q = 0x30644e72e131a029b85045b68181585d97816a916871ca8d3c208c16d87cfd47-    , r = 0x30644e72e131a029b85045b68181585d2833e84879b9709143e1f593f0000001-    , x = EF [ PF 0x1800deef121f1e76426a00665e5c4479674322d4f75edadd46debd5cd992f6ed-             , PF 0x198e9393920d483a7260bfb731fb5d25f1aa493335a9e71297e485b7aef312c2-             ]-    , y = EF [ PF 0x12c85ea5db8c6deb4aab71808dcb408fe3d1e7690c43d37b4ce6cc0166fa7daa-             , PF 0x90689d0585ff075ec9e99ad690c3395bc4b313370b38ef355acdadcd122975b-             ]-    }-  }--bn254a :: Curve-bn254a = Curve-  { types = Types-    { curve   = "BN254A"-    , field   = PrimeField "Fq" 0x2370fb049d410fbe4e761a9886e502417d023f40180000017e80600000000001-    , field'  = PrimeField "Fr" 0x2370fb049d410fbe4e761a9886e502411dc1af70120000017e80600000000001-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x5-    , h = 0x1-    , q = 0x2370fb049d410fbe4e761a9886e502417d023f40180000017e80600000000001-    , r = 0x2370fb049d410fbe4e761a9886e502411dc1af70120000017e80600000000001-    , x = PF 0x1-    , y = PF 0xd45589b158faaf6ab0e4ad38d998e9982e7ff63964ee1460342a592677cccb0-    }-  }--bn254at :: Curve-bn254at = Curve-  { types = Types-    { curve   = "BN254AT"-    , field   = ExtensionField "Fq2" "Fq" "PolynomialU" "X2 + 5" Nothing-    , field'  = PrimeField "Fr" 0x2370fb049d410fbe4e761a9886e502411dc1af70120000017e80600000000001-    , imports = Just "import Curve.Weierstrass.BN254A (Fq)"-    }-  , parameters = Parameters-    { a = EF [-             ]-    , b = EF [ PF 0x0-             , PF 0x2370fb049d410fbe4e761a9886e502417d023f40180000017e80600000000000-             ]-    , h = 0x2370fb049d410fbe4e761a9886e50241dc42cf101e0000017e80600000000001-    , q = 0x2370fb049d410fbe4e761a9886e502417d023f40180000017e80600000000001-    , r = 0x2370fb049d410fbe4e761a9886e502411dc1af70120000017e80600000000001-    , x = EF [ PF 0x19b0bea4afe4c330da93cc3533da38a9f430b471c6f8a536e81962ed967909b5-             , PF 0xa1cf585585a61c6e9880b1f2a5c539f7d906fff238fa6341e1de1a2e45c3f72-             ]-    , y = EF [ PF 0x17abd366ebbd65333e49c711a80a0cf6d24adf1b9b3990eedcc91731384d2627-             , PF 0xee97d6de9902a27d00e952232a78700863bc9aa9be960c32f5bf9fd0a32d345-             ]-    }-  }--bn254b :: Curve-bn254b = Curve-  { types = Types-    { curve   = "BN254B"-    , field   = PrimeField "Fq" 0x2523648240000001ba344d80000000086121000000000013a700000000000013-    , field'  = PrimeField "Fr" 0x2523648240000001ba344d8000000007ff9f800000000010a10000000000000d-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x2-    , h = 0x1-    , q = 0x2523648240000001ba344d80000000086121000000000013a700000000000013-    , r = 0x2523648240000001ba344d8000000007ff9f800000000010a10000000000000d-    , x = PF 0x2523648240000001ba344d80000000086121000000000013a700000000000012-    , y = PF 0x1-    }-  }--bn254bt :: Curve-bn254bt = Curve-  { types = Types-    { curve   = "BN254BT"-    , field   = ExtensionField "Fq2" "Fq" "PolynomialU" "X2 + 1" Nothing-    , field'  = PrimeField "Fr" 0x2523648240000001ba344d8000000007ff9f800000000010a10000000000000d-    , imports = Just "import Curve.Weierstrass.BN254B (Fq)"-    }-  , parameters = Parameters-    { a = EF [-             ]-    , b = EF [ PF 0x1-             , PF 0x2523648240000001ba344d80000000086121000000000013a700000000000012-             ]-    , h = 0x2523648240000001ba344d8000000008c2a2800000000016ad00000000000019-    , q = 0x2523648240000001ba344d80000000086121000000000013a700000000000013-    , r = 0x2523648240000001ba344d8000000007ff9f800000000010a10000000000000d-    , x = EF [ PF 0x61a10bb519eb62feb8d8c7e8c61edb6a4648bbb4898bf0d91ee4224c803fb2b-             , PF 0x516aaf9ba737833310aa78c5982aa5b1f4d746bae3784b70d8c34c1e7d54cf3-             ]-    , y = EF [ PF 0x21897a06baf93439a90e096698c822329bd0ae6bdbe09bd19f0e07891cd2b9a-             , PF 0xebb2b0e7c8b15268f6d4456f5f38d37b09006ffd739c9578a2d1aec6b3ace9b-             ]-    }-  }--bn256 :: Curve-bn256 = Curve-  { types = Types-    { curve   = "BN256"-    , field   = PrimeField "Fq" 0xfffffffffffcf0cd46e5f25eee71a49f0cdc65fb12980a82d3292ddbaed33013-    , field'  = PrimeField "Fr" 0xfffffffffffcf0cd46e5f25eee71a49e0cdc65fb1299921af62d536cd10b500d-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x3-    , h = 0x1-    , q = 0xfffffffffffcf0cd46e5f25eee71a49f0cdc65fb12980a82d3292ddbaed33013-    , r = 0xfffffffffffcf0cd46e5f25eee71a49e0cdc65fb1299921af62d536cd10b500d-    , x = PF 0x1-    , y = PF 0x2-    }-  }--bn384 :: Curve-bn384 = Curve-  { types = Types-    { curve   = "BN384"-    , field   = PrimeField "Fq" 0xfffffffffffffffffff2a96823d5920d2a127e3f6fbca024c8fbe29531892c79534f9d306328261550a7cabd7cccd10b-    , field'  = PrimeField "Fr" 0xfffffffffffffffffff2a96823d5920d2a127e3f6fbca023c8fbe29531892c795356487d8ac63e4f4db17384341a5775-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x3-    , h = 0x1-    , q = 0xfffffffffffffffffff2a96823d5920d2a127e3f6fbca024c8fbe29531892c79534f9d306328261550a7cabd7cccd10b-    , r = 0xfffffffffffffffffff2a96823d5920d2a127e3f6fbca023c8fbe29531892c795356487d8ac63e4f4db17384341a5775-    , x = PF 0x1-    , y = PF 0x2-    }-  }--bn462 :: Curve-bn462 = Curve-  { types = Types-    { curve   = "BN462"-    , field   = PrimeField "Fq" 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908f41c8020ffffffffff6ff66fc6ff687f640000000002401b00840138013-    , field'  = PrimeField "Fr" 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908ee1c201f7fffffffff6ff66fc7bf717f7c0000000002401b007e010800d-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x5-    , h = 0x1-    , q = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908f41c8020ffffffffff6ff66fc6ff687f640000000002401b00840138013-    , r = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908ee1c201f7fffffffff6ff66fc7bf717f7c0000000002401b007e010800d-    , x = PF 0x21a6d67ef250191fadba34a0a30160b9ac9264b6f95f63b3edbec3cf4b2e689db1bbb4e69a416a0b1e79239c0372e5cd70113c98d91f36b6980d-    , y = PF 0x118ea0460f7f7abb82b33676a7432a490eeda842cccfa7d788c659650426e6af77df11b8ae40eb80f475432c66600622ecaa8a5734d36fb03de-    }-  }--bn462t :: Curve-bn462t = Curve-  { types = Types-    { curve   = "BN462T"-    , field   = ExtensionField "Fq2" "Fq" "PolynomialU" "X2 + 1" Nothing-    , field'  = PrimeField "Fr" 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908ee1c201f7fffffffff6ff66fc7bf717f7c0000000002401b007e010800d-    , imports = Just "import Curve.Weierstrass.BN462 (Fq)"-    }-  , parameters = Parameters-    { a = EF [-             ]-    , b = EF [ PF 0x2-             , PF 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908f41c8020ffffffffff6ff66fc6ff687f640000000002401b00840138012-             ]-    , h = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908fa1ce0227fffffffff6ff66fc63f5f7f4c0000000002401b008a0168019-    , q = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908f41c8020ffffffffff6ff66fc6ff687f640000000002401b00840138013-    , r = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908ee1c201f7fffffffff6ff66fc7bf717f7c0000000002401b007e010800d-    , x = EF [ PF 0x257ccc85b58dda0dfb38e3a8cbdc5482e0337e7c1cd96ed61c913820408208f9ad2699bad92e0032ae1f0aa6a8b48807695468e3d934ae1e4df-             , PF 0x1d2e4343e8599102af8edca849566ba3c98e2a354730cbed9176884058b18134dd86bae555b783718f50af8b59bf7e850e9b73108ba6aa8cd283-             ]-    , y = EF [ PF 0xa0650439da22c1979517427a20809eca035634706e23c3fa7a6bb42fe810f1399a1f41c9ddae32e03695a140e7b11d7c3376e5b68df0db7154e-             , PF 0x73ef0cbd438cbe0172c8ae37306324d44d5e6b0c69ac57b393f1ab370fd725cc647692444a04ef87387aa68d53743493b9eba14cc552ca2a93a-             ]-    }-  }--bn512 :: Curve-bn512 = Curve-  { types = Types-    { curve   = "BN512"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffff9ec7f01c60ba1d8cb5307c0bbe3c111b0ef455146cf1eacbe98b8e48c65deab236fe1916a55ce5f4c6467b4eb280922adef33-    , field'  = PrimeField "Fr" 0xfffffffffffffffffffffffffff9ec7f01c60ba1d8cb5307c0bbe3c111b0ef445146cf1eacbe98b8e48c65deab2679a34a10313e04f9a2b406a64a5f519a09ed-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x3-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffff9ec7f01c60ba1d8cb5307c0bbe3c111b0ef455146cf1eacbe98b8e48c65deab236fe1916a55ce5f4c6467b4eb280922adef33-    , r = 0xfffffffffffffffffffffffffff9ec7f01c60ba1d8cb5307c0bbe3c111b0ef445146cf1eacbe98b8e48c65deab2679a34a10313e04f9a2b406a64a5f519a09ed-    , x = PF 0x1-    , y = PF 0x2-    }-  }--brainpoolp160r1 :: Curve-brainpoolp160r1 = Curve-  { types = Types-    { curve   = "BrainpoolP160R1"-    , field   = PrimeField "Fq" 0xe95e4a5f737059dc60dfc7ad95b3d8139515620f-    , field'  = PrimeField "Fr" 0xe95e4a5f737059dc60df5991d45029409e60fc09-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x340e7be2a280eb74e2be61bada745d97e8f7c300-    , b = PF 0x1e589a8595423412134faa2dbdec95c8d8675e58-    , h = 0x1-    , q = 0xe95e4a5f737059dc60dfc7ad95b3d8139515620f-    , r = 0xe95e4a5f737059dc60df5991d45029409e60fc09-    , x = PF 0xbed5af16ea3f6a4f62938c4631eb5af7bdbcdbc3-    , y = PF 0x1667cb477a1a8ec338f94741669c976316da6321-    }-  }--brainpoolp160t1 :: Curve-brainpoolp160t1 = Curve-  { types = Types-    { curve   = "BrainpoolP160T1"-    , field   = PrimeField "Fq" 0xe95e4a5f737059dc60dfc7ad95b3d8139515620f-    , field'  = PrimeField "Fr" 0xe95e4a5f737059dc60df5991d45029409e60fc09-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xe95e4a5f737059dc60dfc7ad95b3d8139515620c-    , b = PF 0x7a556b6dae535b7b51ed2c4d7daa7a0b5c55f380-    , h = 0x1-    , q = 0xe95e4a5f737059dc60dfc7ad95b3d8139515620f-    , r = 0xe95e4a5f737059dc60df5991d45029409e60fc09-    , x = PF 0xb199b13b9b34efc1397e64baeb05acc265ff2378-    , y = PF 0xadd6718b7c7c1961f0991b842443772152c9e0ad-    }-  }--brainpoolp192r1 :: Curve-brainpoolp192r1 = Curve-  { types = Types-    { curve   = "BrainpoolP192R1"-    , field   = PrimeField "Fq" 0xc302f41d932a36cda7a3463093d18db78fce476de1a86297-    , field'  = PrimeField "Fr" 0xc302f41d932a36cda7a3462f9e9e916b5be8f1029ac4acc1-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x6a91174076b1e0e19c39c031fe8685c1cae040e5c69a28ef-    , b = PF 0x469a28ef7c28cca3dc721d044f4496bcca7ef4146fbf25c9-    , h = 0x1-    , q = 0xc302f41d932a36cda7a3463093d18db78fce476de1a86297-    , r = 0xc302f41d932a36cda7a3462f9e9e916b5be8f1029ac4acc1-    , x = PF 0xc0a0647eaab6a48753b033c56cb0f0900a2f5c4853375fd6-    , y = PF 0x14b690866abd5bb88b5f4828c1490002e6773fa2fa299b8f-    }-  }--brainpoolp192t1 :: Curve-brainpoolp192t1 = Curve-  { types = Types-    { curve   = "BrainpoolP192T1"-    , field   = PrimeField "Fq" 0xc302f41d932a36cda7a3463093d18db78fce476de1a86297-    , field'  = PrimeField "Fr" 0xc302f41d932a36cda7a3462f9e9e916b5be8f1029ac4acc1-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xc302f41d932a36cda7a3463093d18db78fce476de1a86294-    , b = PF 0x13d56ffaec78681e68f9deb43b35bec2fb68542e27897b79-    , h = 0x1-    , q = 0xc302f41d932a36cda7a3463093d18db78fce476de1a86297-    , r = 0xc302f41d932a36cda7a3462f9e9e916b5be8f1029ac4acc1-    , x = PF 0x3ae9e58c82f63c30282e1fe7bbf43fa72c446af6f4618129-    , y = PF 0x97e2c5667c2223a902ab5ca449d0084b7e5b3de7ccc01c9-    }-  }--brainpoolp224r1 :: Curve-brainpoolp224r1 = Curve-  { types = Types-    { curve   = "BrainpoolP224R1"-    , field   = PrimeField "Fq" 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0ff-    , field'  = PrimeField "Fr" 0xd7c134aa264366862a18302575d0fb98d116bc4b6ddebca3a5a7939f-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x68a5e62ca9ce6c1c299803a6c1530b514e182ad8b0042a59cad29f43-    , b = PF 0x2580f63ccfe44138870713b1a92369e33e2135d266dbb372386c400b-    , h = 0x1-    , q = 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0ff-    , r = 0xd7c134aa264366862a18302575d0fb98d116bc4b6ddebca3a5a7939f-    , x = PF 0xd9029ad2c7e5cf4340823b2a87dc68c9e4ce3174c1e6efdee12c07d-    , y = PF 0x58aa56f772c0726f24c6b89e4ecdac24354b9e99caa3f6d3761402cd-    }-  }--brainpoolp224t1 :: Curve-brainpoolp224t1 = Curve-  { types = Types-    { curve   = "BrainpoolP224T1"-    , field   = PrimeField "Fq" 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0ff-    , field'  = PrimeField "Fr" 0xd7c134aa264366862a18302575d0fb98d116bc4b6ddebca3a5a7939f-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0fc-    , b = PF 0x4b337d934104cd7bef271bf60ced1ed20da14c08b3bb64f18a60888d-    , h = 0x1-    , q = 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0ff-    , r = 0xd7c134aa264366862a18302575d0fb98d116bc4b6ddebca3a5a7939f-    , x = PF 0x6ab1e344ce25ff3896424e7ffe14762ecb49f8928ac0c76029b4d580-    , y = PF 0x374e9f5143e568cd23f3f4d7c0d4b1e41c8cc0d1c6abd5f1a46db4c-    }-  }--brainpoolp256r1 :: Curve-brainpoolp256r1 = Curve-  { types = Types-    { curve   = "BrainpoolP256R1"-    , field   = PrimeField "Fq" 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5377-    , field'  = PrimeField "Fr" 0xa9fb57dba1eea9bc3e660a909d838d718c397aa3b561a6f7901e0e82974856a7-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x7d5a0975fc2c3057eef67530417affe7fb8055c126dc5c6ce94a4b44f330b5d9-    , b = PF 0x26dc5c6ce94a4b44f330b5d9bbd77cbf958416295cf7e1ce6bccdc18ff8c07b6-    , h = 0x1-    , q = 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5377-    , r = 0xa9fb57dba1eea9bc3e660a909d838d718c397aa3b561a6f7901e0e82974856a7-    , x = PF 0x8bd2aeb9cb7e57cb2c4b482ffc81b7afb9de27e1e3bd23c23a4453bd9ace3262-    , y = PF 0x547ef835c3dac4fd97f8461a14611dc9c27745132ded8e545c1d54c72f046997-    }-  }--brainpoolp256t1 :: Curve-brainpoolp256t1 = Curve-  { types = Types-    { curve   = "BrainpoolP256T1"-    , field   = PrimeField "Fq" 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5377-    , field'  = PrimeField "Fr" 0xa9fb57dba1eea9bc3e660a909d838d718c397aa3b561a6f7901e0e82974856a7-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5374-    , b = PF 0x662c61c430d84ea4fe66a7733d0b76b7bf93ebc4af2f49256ae58101fee92b04-    , h = 0x1-    , q = 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5377-    , r = 0xa9fb57dba1eea9bc3e660a909d838d718c397aa3b561a6f7901e0e82974856a7-    , x = PF 0xa3e8eb3cc1cfe7b7732213b23a656149afa142c47aafbc2b79a191562e1305f4-    , y = PF 0x2d996c823439c56d7f7b22e14644417e69bcb6de39d027001dabe8f35b25c9be-    }-  }--brainpoolp320r1 :: Curve-brainpoolp320r1 = Curve-  { types = Types-    { curve   = "BrainpoolP320R1"-    , field   = PrimeField "Fq" 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e27-    , field'  = PrimeField "Fr" 0xd35e472036bc4fb7e13c785ed201e065f98fcfa5b68f12a32d482ec7ee8658e98691555b44c59311-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x3ee30b568fbab0f883ccebd46d3f3bb8a2a73513f5eb79da66190eb085ffa9f492f375a97d860eb4-    , b = PF 0x520883949dfdbc42d3ad198640688a6fe13f41349554b49acc31dccd884539816f5eb4ac8fb1f1a6-    , h = 0x1-    , q = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e27-    , r = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa5b68f12a32d482ec7ee8658e98691555b44c59311-    , x = PF 0x43bd7e9afb53d8b85289bcc48ee5bfe6f20137d10a087eb6e7871e2a10a599c710af8d0d39e20611-    , y = PF 0x14fdd05545ec1cc8ab4093247f77275e0743ffed117182eaa9c77877aaac6ac7d35245d1692e8ee1-    }-  }--brainpoolp320t1 :: Curve-brainpoolp320t1 = Curve-  { types = Types-    { curve   = "BrainpoolP320T1"-    , field   = PrimeField "Fq" 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e27-    , field'  = PrimeField "Fr" 0xd35e472036bc4fb7e13c785ed201e065f98fcfa5b68f12a32d482ec7ee8658e98691555b44c59311-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e24-    , b = PF 0xa7f561e038eb1ed560b3d147db782013064c19f27ed27c6780aaf77fb8a547ceb5b4fef422340353-    , h = 0x1-    , q = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e27-    , r = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa5b68f12a32d482ec7ee8658e98691555b44c59311-    , x = PF 0x925be9fb01afc6fb4d3e7d4990010f813408ab106c4f09cb7ee07868cc136fff3357f624a21bed52-    , y = PF 0x63ba3a7a27483ebf6671dbef7abb30ebee084e58a0b077ad42a5a0989d1ee71b1b9bc0455fb0d2c3-    }-  }--brainpoolp384r1 :: Curve-brainpoolp384r1 = Curve-  { types = Types-    { curve   = "BrainpoolP384R1"-    , field   = PrimeField "Fq" 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec53-    , field'  = PrimeField "Fr" 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b31f166e6cac0425a7cf3ab6af6b7fc3103b883202e9046565-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x7bc382c63d8c150c3c72080ace05afa0c2bea28e4fb22787139165efba91f90f8aa5814a503ad4eb04a8c7dd22ce2826-    , b = PF 0x4a8c7dd22ce28268b39b55416f0447c2fb77de107dcd2a62e880ea53eeb62d57cb4390295dbc9943ab78696fa504c11-    , h = 0x1-    , q = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec53-    , r = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b31f166e6cac0425a7cf3ab6af6b7fc3103b883202e9046565-    , x = PF 0x1d1c64f068cf45ffa2a63a81b7c13f6b8847a3e77ef14fe3db7fcafe0cbd10e8e826e03436d646aaef87b2e247d4af1e-    , y = PF 0x8abe1d7520f9c2a45cb1eb8e95cfd55262b70b29feec5864e19c054ff99129280e4646217791811142820341263c5315-    }-  }--brainpoolp384t1 :: Curve-brainpoolp384t1 = Curve-  { types = Types-    { curve   = "BrainpoolP384T1"-    , field   = PrimeField "Fq" 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec53-    , field'  = PrimeField "Fr" 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b31f166e6cac0425a7cf3ab6af6b7fc3103b883202e9046565-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec50-    , b = PF 0x7f519eada7bda81bd826dba647910f8c4b9346ed8ccdc64e4b1abd11756dce1d2074aa263b88805ced70355a33b471ee-    , h = 0x1-    , q = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec53-    , r = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b31f166e6cac0425a7cf3ab6af6b7fc3103b883202e9046565-    , x = PF 0x18de98b02db9a306f2afcd7235f72a819b80ab12ebd653172476fecd462aabffc4ff191b946a5f54d8d0aa2f418808cc-    , y = PF 0x25ab056962d30651a114afd2755ad336747f93475b7a1fca3b88f2b6a208ccfe469408584dc2b2912675bf5b9e582928-    }-  }--brainpoolp512r1 :: Curve-brainpoolp512r1 = Curve-  { types = Types-    { curve   = "BrainpoolP512R1"-    , field   = PrimeField "Fq" 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f3-    , field'  = PrimeField "Fr" 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca70330870553e5c414ca92619418661197fac10471db1d381085ddaddb58796829ca90069-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x7830a3318b603b89e2327145ac234cc594cbdd8d3df91610a83441caea9863bc2ded5d5aa8253aa10a2ef1c98b9ac8b57f1117a72bf2c7b9e7c1ac4d77fc94ca-    , b = PF 0x3df91610a83441caea9863bc2ded5d5aa8253aa10a2ef1c98b9ac8b57f1117a72bf2c7b9e7c1ac4d77fc94cadc083e67984050b75ebae5dd2809bd638016f723-    , h = 0x1-    , q = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f3-    , r = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca70330870553e5c414ca92619418661197fac10471db1d381085ddaddb58796829ca90069-    , x = PF 0x81aee4bdd82ed9645a21322e9c4c6a9385ed9f70b5d916c1b43b62eef4d0098eff3b1f78e2d0d48d50d1687b93b97d5f7c6d5047406a5e688b352209bcb9f822-    , y = PF 0x7dde385d566332ecc0eabfa9cf7822fdf209f70024a57b1aa000c55b881f8111b2dcde494a5f485e5bca4bd88a2763aed1ca2b2fa8f0540678cd1e0f3ad80892-    }-  }--brainpoolp512t1 :: Curve-brainpoolp512t1 = Curve-  { types = Types-    { curve   = "BrainpoolP512T1"-    , field   = PrimeField "Fq" 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f3-    , field'  = PrimeField "Fr" 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca70330870553e5c414ca92619418661197fac10471db1d381085ddaddb58796829ca90069-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f0-    , b = PF 0x7cbbbcf9441cfab76e1890e46884eae321f70c0bcb4981527897504bec3e36a62bcdfa2304976540f6450085f2dae145c22553b465763689180ea2571867423e-    , h = 0x1-    , q = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f3-    , r = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca70330870553e5c414ca92619418661197fac10471db1d381085ddaddb58796829ca90069-    , x = PF 0x640ece5c12788717b9c1ba06cbc2a6feba85842458c56dde9db1758d39c0313d82ba51735cdb3ea499aa77a7d6943a64f7a3f25fe26f06b51baa2696fa9035da-    , y = PF 0x5b534bd595f5af0fa2c892376c84ace1bb4e3019b71634c01131159cae03cee9d9932184beef216bd71df2dadf86a627306ecff96dbb8bace198b61e00f8b332-    }-  }--secp112r1 :: Curve-secp112r1 = Curve-  { types = Types-    { curve   = "SECP112R1"-    , field   = PrimeField "Fq" 0xdb7c2abf62e35e668076bead208b-    , field'  = PrimeField "Fr" 0xdb7c2abf62e35e7628dfac6561c5-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xdb7c2abf62e35e668076bead2088-    , b = PF 0x659ef8ba043916eede8911702b22-    , h = 0x1-    , q = 0xdb7c2abf62e35e668076bead208b-    , r = 0xdb7c2abf62e35e7628dfac6561c5-    , x = PF 0x9487239995a5ee76b55f9c2f098-    , y = PF 0xa89ce5af8724c0a23e0e0ff77500-    }-  }--secp112r2 :: Curve-secp112r2 = Curve-  { types = Types-    { curve   = "SECP112R2"-    , field   = PrimeField "Fq" 0xdb7c2abf62e35e668076bead208b-    , field'  = PrimeField "Fr" 0x36df0aafd8b8d7597ca10520d04b-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x6127c24c05f38a0aaaf65c0ef02c-    , b = PF 0x51def1815db5ed74fcc34c85d709-    , h = 0x4-    , q = 0xdb7c2abf62e35e668076bead208b-    , r = 0x36df0aafd8b8d7597ca10520d04b-    , x = PF 0x4ba30ab5e892b4e1649dd0928643-    , y = PF 0xadcd46f5882e3747def36e956e97-    }-  }--secp128r1 :: Curve-secp128r1 = Curve-  { types = Types-    { curve   = "SECP128R1"-    , field   = PrimeField "Fq" 0xfffffffdffffffffffffffffffffffff-    , field'  = PrimeField "Fr" 0xfffffffe0000000075a30d1b9038a115-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xfffffffdfffffffffffffffffffffffc-    , b = PF 0xe87579c11079f43dd824993c2cee5ed3-    , h = 0x1-    , q = 0xfffffffdffffffffffffffffffffffff-    , r = 0xfffffffe0000000075a30d1b9038a115-    , x = PF 0x161ff7528b899b2d0c28607ca52c5b86-    , y = PF 0xcf5ac8395bafeb13c02da292dded7a83-    }-  }--secp128r2 :: Curve-secp128r2 = Curve-  { types = Types-    { curve   = "SECP128R2"-    , field   = PrimeField "Fq" 0xfffffffdffffffffffffffffffffffff-    , field'  = PrimeField "Fr" 0x3fffffff7fffffffbe0024720613b5a3-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xd6031998d1b3bbfebf59cc9bbff9aee1-    , b = PF 0x5eeefca380d02919dc2c6558bb6d8a5d-    , h = 0x4-    , q = 0xfffffffdffffffffffffffffffffffff-    , r = 0x3fffffff7fffffffbe0024720613b5a3-    , x = PF 0x7b6aa5d85e572983e6fb32a7cdebc140-    , y = PF 0x27b6916a894d3aee7106fe805fc34b44-    }-  }--secp160k1 :: Curve-secp160k1 = Curve-  { types = Types-    { curve   = "SECP160K1"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffeffffac73-    , field'  = PrimeField "Fr" 0x100000000000000000001b8fa16dfab9aca16b6b3-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x7-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffffffffeffffac73-    , r = 0x100000000000000000001b8fa16dfab9aca16b6b3-    , x = PF 0x3b4c382ce37aa192a4019e763036f4f5dd4d7ebb-    , y = PF 0x938cf935318fdced6bc28286531733c3f03c4fee-    }-  }--secp160r1 :: Curve-secp160r1 = Curve-  { types = Types-    { curve   = "SECP160R1"-    , field   = PrimeField "Fq" 0xffffffffffffffffffffffffffffffff7fffffff-    , field'  = PrimeField "Fr" 0x100000000000000000001f4c8f927aed3ca752257-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xffffffffffffffffffffffffffffffff7ffffffc-    , b = PF 0x1c97befc54bd7a8b65acf89f81d4d4adc565fa45-    , h = 0x1-    , q = 0xffffffffffffffffffffffffffffffff7fffffff-    , r = 0x100000000000000000001f4c8f927aed3ca752257-    , x = PF 0x4a96b5688ef573284664698968c38bb913cbfc82-    , y = PF 0x23a628553168947d59dcc912042351377ac5fb32-    }-  }--secp160r2 :: Curve-secp160r2 = Curve-  { types = Types-    { curve   = "SECP160R2"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffeffffac73-    , field'  = PrimeField "Fr" 0x100000000000000000000351ee786a818f3a1a16b-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xfffffffffffffffffffffffffffffffeffffac70-    , b = PF 0xb4e134d3fb59eb8bab57274904664d5af50388ba-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffffffffeffffac73-    , r = 0x100000000000000000000351ee786a818f3a1a16b-    , x = PF 0x52dcb034293a117e1f4ff11b30f7199d3144ce6d-    , y = PF 0xfeaffef2e331f296e071fa0df9982cfea7d43f2e-    }-  }--secp192k1 :: Curve-secp192k1 = Curve-  { types = Types-    { curve   = "SECP192K1"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffffffffffeffffee37-    , field'  = PrimeField "Fr" 0xfffffffffffffffffffffffe26f2fc170f69466a74defd8d-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x3-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffffffffffffffffeffffee37-    , r = 0xfffffffffffffffffffffffe26f2fc170f69466a74defd8d-    , x = PF 0xdb4ff10ec057e9ae26b07d0280b7f4341da5d1b1eae06c7d-    , y = PF 0x9b2f2f6d9c5628a7844163d015be86344082aa88d95e2f9d-    }-  }--secp192r1 :: Curve-secp192r1 = Curve-  { types = Types-    { curve   = "SECP192R1"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffeffffffffffffffff-    , field'  = PrimeField "Fr" 0xffffffffffffffffffffffff99def836146bc9b1b4d22831-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xfffffffffffffffffffffffffffffffefffffffffffffffc-    , b = PF 0x64210519e59c80e70fa7e9ab72243049feb8deecc146b9b1-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffffffffeffffffffffffffff-    , r = 0xffffffffffffffffffffffff99def836146bc9b1b4d22831-    , x = PF 0x188da80eb03090f67cbf20eb43a18800f4ff0afd82ff1012-    , y = PF 0x7192b95ffc8da78631011ed6b24cdd573f977a11e794811-    }-  }--secp224k1 :: Curve-secp224k1 = Curve-  { types = Types-    { curve   = "SECP224K1"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffffffffffffffffffeffffe56d-    , field'  = PrimeField "Fr" 0x10000000000000000000000000001dce8d2ec6184caf0a971769fb1f7-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x5-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffeffffe56d-    , r = 0x10000000000000000000000000001dce8d2ec6184caf0a971769fb1f7-    , x = PF 0xa1455b334df099df30fc28a169a467e9e47075a90f7e650eb6b7a45c-    , y = PF 0x7e089fed7fba344282cafbd6f7e319f7c0b0bd59e2ca4bdb556d61a5-    }-  }--secp224r1 :: Curve-secp224r1 = Curve-  { types = Types-    { curve   = "SECP224R1"-    , field   = PrimeField "Fq" 0xffffffffffffffffffffffffffffffff000000000000000000000001-    , field'  = PrimeField "Fr" 0xffffffffffffffffffffffffffff16a2e0b8f03e13dd29455c5c2a3d-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xfffffffffffffffffffffffffffffffefffffffffffffffffffffffe-    , b = PF 0xb4050a850c04b3abf54132565044b0b7d7bfd8ba270b39432355ffb4-    , h = 0x1-    , q = 0xffffffffffffffffffffffffffffffff000000000000000000000001-    , r = 0xffffffffffffffffffffffffffff16a2e0b8f03e13dd29455c5c2a3d-    , x = PF 0xb70e0cbd6bb4bf7f321390b94a03c1d356c21122343280d6115c1d21-    , y = PF 0xbd376388b5f723fb4c22dfe6cd4375a05a07476444d5819985007e34-    }-  }--secp256k1 :: Curve-secp256k1 = Curve-  { types = Types-    { curve   = "SECP256K1"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffefffffc2f-    , field'  = PrimeField "Fr" 0xfffffffffffffffffffffffffffffffebaaedce6af48a03bbfd25e8cd0364141-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x0-    , b = PF 0x7-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffefffffc2f-    , r = 0xfffffffffffffffffffffffffffffffebaaedce6af48a03bbfd25e8cd0364141-    , x = PF 0x79be667ef9dcbbac55a06295ce870b07029bfcdb2dce28d959f2815b16f81798-    , y = PF 0x483ada7726a3c4655da4fbfc0e1108a8fd17b448a68554199c47d08ffb10d4b8-    }-  }--secp256r1 :: Curve-secp256r1 = Curve-  { types = Types-    { curve   = "SECP256R1"-    , field   = PrimeField "Fq" 0xffffffff00000001000000000000000000000000ffffffffffffffffffffffff-    , field'  = PrimeField "Fr" 0xffffffff00000000ffffffffffffffffbce6faada7179e84f3b9cac2fc632551-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xffffffff00000001000000000000000000000000fffffffffffffffffffffffc-    , b = PF 0x5ac635d8aa3a93e7b3ebbd55769886bc651d06b0cc53b0f63bce3c3e27d2604b-    , h = 0x1-    , q = 0xffffffff00000001000000000000000000000000ffffffffffffffffffffffff-    , r = 0xffffffff00000000ffffffffffffffffbce6faada7179e84f3b9cac2fc632551-    , x = PF 0x6b17d1f2e12c4247f8bce6e563a440f277037d812deb33a0f4a13945d898c296-    , y = PF 0x4fe342e2fe1a7f9b8ee7eb4a7c0f9e162bce33576b315ececbb6406837bf51f5-    }-  }--secp384r1 :: Curve-secp384r1 = Curve-  { types = Types-    { curve   = "SECP384R1"-    , field   = PrimeField "Fq" 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffff0000000000000000ffffffff-    , field'  = PrimeField "Fr" 0xffffffffffffffffffffffffffffffffffffffffffffffffc7634d81f4372ddf581a0db248b0a77aecec196accc52973-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffff0000000000000000fffffffc-    , b = PF 0xb3312fa7e23ee7e4988e056be3f82d19181d9c6efe8141120314088f5013875ac656398d8a2ed19d2a85c8edd3ec2aef-    , h = 0x1-    , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffff0000000000000000ffffffff-    , r = 0xffffffffffffffffffffffffffffffffffffffffffffffffc7634d81f4372ddf581a0db248b0a77aecec196accc52973-    , x = PF 0xaa87ca22be8b05378eb1c71ef320ad746e1d3b628ba79b9859f741e082542a385502f25dbf55296c3a545e3872760ab7-    , y = PF 0x3617de4a96262c6f5d9e98bf9292dc29f8f41dbd289a147ce9da3113b5f0b8c00a60b1ce1d7e819d7a431d7c90ea0e5f-    }-  }--secp521r1 :: Curve-secp521r1 = Curve-  { types = Types-    { curve   = "SECP521R1"-    , field   = PrimeField "Fq" 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff-    , field'  = PrimeField "Fr" 0x1fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffa51868783bf2f966b7fcc0148f709a5d03bb5c9b8899c47aebb6fb71e91386409-    , imports = Nothing-    }-  , parameters = Parameters-    { a = PF 0x1fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffc-    , b = PF 0x51953eb9618e1c9a1f929a21a0b68540eea2da725b99b315f3b8b489918ef109e156193951ec7e937b1652c0bd3bb1bf073573df883d2c34f1ef451fd46b503f00-    , h = 0x1-    , q = 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff-    , r = 0x1fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffa51868783bf2f966b7fcc0148f709a5d03bb5c9b8899c47aebb6fb71e91386409-    , x = PF 0xc6858e06b70404e9cd9e3ecb662395b4429c648139053fb521f828af606b4d3dbaa14b5e77efe75928fe1dc127a2ffa8de3348b3c1856a429bf97e7e31c2e5bd66-    , y = PF 0x11839296a789a3bc0045c8a5fb42c7d1bd998f54449579b446817afbd17273e662c97ee72995ef42640c550b9013fad0761353c7086a272c24088be94769fd16650+import Generate.Weierstrass.Types++-------------------------------------------------------------------------------+-- Curves+-------------------------------------------------------------------------------++curves :: [Curve]+curves =+  [ anomalous+  , anssifrp256v1+  , bls12381+  , bls12381t+  , bls48581+  , bls48581t+  , bn224+  , bn254+  , bn254t+  , bn254a+  , bn254at+  , bn254b+  , bn254bt+  , bn254c+  , bn254ct+  , bn254d+  , bn254dt+  , bn256+  , bn384+  , bn462+  , bn462t+  , bn512+  , brainpoolp160r1+  , brainpoolp160t1+  , brainpoolp192r1+  , brainpoolp192t1+  , brainpoolp224r1+  , brainpoolp224t1+  , brainpoolp256r1+  , brainpoolp256t1+  , brainpoolp320r1+  , brainpoolp320t1+  , brainpoolp384r1+  , brainpoolp384t1+  , brainpoolp512r1+  , brainpoolp512t1+  , secp112r1+  , secp112r2+  , secp128r1+  , secp128r2+  , secp160k1+  , secp160r1+  , secp160r2+  , secp192k1+  , secp192r1+  , secp224k1+  , secp224r1+  , secp256k1+  , secp256r1+  , secp384r1+  , secp521r1+  ]++-------------------------------------------------------------------------------+-- Parameters+-------------------------------------------------------------------------------++anomalous :: Curve+anomalous = Curve+  { name = "Anomalous"+  , types = Types+    { curve = "Anomalous"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x98d0fac687d6343eb1a1f595283eb1a1f58d0fac687d635f5e4+    , b = P 0x4a1f58d0fac687d6343eb1a5e2d6343eb1a1f58d0fac688ab3f+    , h = 0x1+    , q = 0xb0000000000000000000000953000000000000000000001f9d7+    , r = 0xb0000000000000000000000953000000000000000000001f9d7+    , x = P 0x101efb35fd1963c4871a2d17edaafa7e249807f58f8705126c6+    , y = P 0x22389a3954375834304ba1d509a97de6c07148ea7f5951b20e7+    }+  }++anssifrp256v1 :: Curve+anssifrp256v1 = Curve+  { name = "ANSSIFRP256V1"+  , types = Types+    { curve = "ANSSIFRP256V1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xf1fd178c0b3ad58f10126de8ce42435b3961adbcabc8ca6de8fcf353d86e9c00+    , b = P 0xee353fca5428a9300d4aba754a44c00fdfec0c9ae4b1a1803075ed967b7bb73f+    , h = 0x1+    , q = 0xf1fd178c0b3ad58f10126de8ce42435b3961adbcabc8ca6de8fcf353d86e9c03+    , r = 0xf1fd178c0b3ad58f10126de8ce42435b53dc67e140d2bf941ffdd459c6d655e1+    , x = P 0xb6b3d4c356c139eb31183d4749d423958c27d2dcaf98b70164c97a2dd98f5cff+    , y = P 0x6142e0f7c8b204911f9271f0f3ecef8c2701c307e8e4c9e183115a1554062cfb+    }+  }++bls12381 :: Curve+bls12381 = Curve+  { name = "BLS12381"+  , types = Types+    { curve = "BLS12381"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x4+    , h = 0x396c8c005555e1568c00aaab0000aaab+    , q = 0x1a0111ea397fe69a4b1ba7b6434bacd764774b84f38512bf6730d2a0f6b0f6241eabfffeb153ffffb9feffffffffaaab+    , r = 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001+    , x = P 0x17f1d3a73197d7942695638c4fa9ac0fc3688c4f9774b905a14e3a3f171bac586c55e83ff97a1aeffb3af00adb22c6bb+    , y = P 0x8b3f481e3aaa0f1a09e30ed741d8ae4fcf5e095d5d00af600db18cb2c04b3edd03cc744a2888ae40caa232946c5e7e1+    }+  }++bls12381t :: Curve+bls12381t = Curve+  { name = "BLS12381T"+  , types = Types+    { curve = "BLS12381"+    , field = Extension "Fq2" "U" "[1, 0, 1]" (+                Prime "Fq"+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ P 0x4+            , P 0x4+            ]+    , h = 0x5d543a95414e7f1091d50792876a202cd91de4547085abaa68a205b2e5a7ddfa628f1cb4d9e82ef21537e293a6691ae1616ec6e786f0c70cf1c38e31c7238e5+    , q = 0x1a0111ea397fe69a4b1ba7b6434bacd764774b84f38512bf6730d2a0f6b0f6241eabfffeb153ffffb9feffffffffaaab+    , r = 0x73eda753299d7d483339d80809a1d80553bda402fffe5bfeffffffff00000001+    , x = E [ P 0x24aa2b2f08f0a91260805272dc51051c6e47ad4fa403b02b4510b647ae3d1770bac0326a805bbefd48056c8c121bdb8+            , P 0x13e02b6052719f607dacd3a088274f65596bd0d09920b61ab5da61bbdc7f5049334cf11213945d57e5ac7d055d042b7e+            ]+    , y = E [ P 0xce5d527727d6e118cc9cdc6da2e351aadfd9baa8cbdd3a76d429a695160d12c923ac9cc3baca289e193548608b82801+            , P 0x606c4a02ea734cc32acd2b02bc28b99cb3e287e85a763af267492ab572e99ab3f370d275cec1da1aaa9075ff05f79be+            ]+    }+  }++bls48581 :: Curve+bls48581 = Curve+  { name = "BLS48581"+  , types = Types+    { curve = "BLS48581"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x1+    , h = 0x85555841aaaec4ac+    , q = 0x1280f73ff3476f313824e31d47012a0056e84f8d122131bb3be6c0f1f3975444a48ae43af6e082acd9cd30394f4736daf68367a5513170ee0a578fdf721a4a48ac3edc154e6565912b+    , r = 0x2386f8a925e2885e233a9ccc1615c0d6c635387a3f0b3cbe003fad6bc972c2e6e741969d34c4c92016a85c7cd0562303c4ccbe599467c24da118a5fe6fcd671c01+    , x = P 0x2af59b7ac340f2baf2b73df1e93f860de3f257e0e86868cf61abdbaedffb9f7544550546a9df6f9645847665d859236ebdbc57db368b11786cb74da5d3a1e6d8c3bce8732315af640+    , y = P 0xcefda44f6531f91f86b3a2d1fb398a488a553c9efeb8a52e991279dd41b720ef7bb7beffb98aee53e80f678584c3ef22f487f77c2876d1b2e35f37aef7b926b576dbb5de3e2587a70+    }+  }++bls48581t :: Curve+bls48581t = Curve+  { name = "BLS48581T"+  , types = Types+    { curve = "BLS48581"+    , field = Extension "Fq8" "W" "[U, 0, 1]" (+                Extension "Fq4" "V" "[U + 1, 0, 1]" (+                  Extension "Fq2" "U" "[1, 0, 1]" (+                    Prime "Fq"+                  )+                )+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ E [+                ]+            , E [ E [+                    ]+                , E [ P 0x9407b9ff9a3b7989c12718ea38095002b7427c6891098dd9df36078f9cbaa225245721d7b7041566ce6981ca7a39b6d7b41b3d2a898b877052bc7efb90d2524561f6e0aa732b2c895+                    , P 0x9407b9ff9a3b7989c12718ea38095002b7427c6891098dd9df36078f9cbaa225245721d7b7041566ce6981ca7a39b6d7b41b3d2a898b877052bc7efb90d2524561f6e0aa732b2c896+                    ]+                ]+            ]+    , h = 0x170e915cb0a6b7406b8d94042317f811d6bc3fc6e211ada42e58ccfcb3ac076a7e4499d700a0c23dc4b0c078f92def8c87b7fe63e1eea270db353a4ef4d38b5998ad8f0d042ea24c8f02be1c0c83992fe5d7725227bb27123a949e0876c0a8ce0a67326db0e955dcb791b867f31d6bfa62fbdd5f44a00504df04e186fae033f1eb43c1b1a08b6e086eff03c8fee9ebdd1e191a8a4b0466c90b389987de5637d5dd13dab33196bd2e5afa6cd19cf0fc3fc7db7ece1f3fac742626b1b02fcee04043b2ea96492f6afa51739597c54bb78aa6b0b99319fef9d09f768831018ee6564c68d054c62f2e0b4549426fec24ab26957a669dba2a2b6945ce40c9aec6afdeda16c79e15546cd7771fa544d5364236690ea06832679562a68731420ae52d0d35a90b8d10b688e31b6aee45f45b7a5083c71732105852decc888f64839a4de33b99521f0984a418d20fc7b0609530e454f0696fa2a8075ac01cc8ae3869e8d0fe1f3788ffac4c01aa2720e431da333c83d9663bfb1fb7a1a7b90528482c6be7892299030bb51a51dc7e91e9156874416bf4c26f1ea7ec578058563960ef92bbbb8632d3a1b695f954af10e9a78e40acffc13b06540aae9da5287fc4429485d44e6289d8c0d6a3eb2ece35012452751839fb48bc14b515478e2ff412d930ac20307561f3a5c998e6bcbfebd97effc6433033a2361bfcdc4fc74ad379a16c6dea49c209b1+    , q = 0x1280f73ff3476f313824e31d47012a0056e84f8d122131bb3be6c0f1f3975444a48ae43af6e082acd9cd30394f4736daf68367a5513170ee0a578fdf721a4a48ac3edc154e6565912b+    , r = 0x2386f8a925e2885e233a9ccc1615c0d6c635387a3f0b3cbe003fad6bc972c2e6e741969d34c4c92016a85c7cd0562303c4ccbe599467c24da118a5fe6fcd671c01+    , x = E [ E [ E [ P 0x5d615d9a7871e4a38237fa45a2775debabbefc70344dbccb7de64db3a2ef156c46ff79baad1a8c42281a63ca0612f400503004d80491f510317b79766322154dec34fd0b4ace8bfab+                    , P 0x7c4973ece2258512069b0e86abc07e8b22bb6d980e1623e9526f6da12307f4e1c3943a00abfedf16214a76affa62504f0c3c7630d979630ffd75556a01afa143f1669b36676b47c57+                    ]+                , E [ P 0x1fccc70198f1334e1b2ea1853ad83bc73a8a6ca9ae237ca7a6d6957ccbab5ab6860161c1dbd19242ffae766f0d2a6d55f028cbdfbb879d5fea8ef4cded6b3f0b46488156ca55a3e6a+                    , P 0xbe2218c25ceb6185c78d8012954d4bfe8f5985ac62f3e5821b7b92a393f8be0cc218a95f63e1c776e6ec143b1b279b9468c31c5257c200ca52310b8cb4e80bc3f09a7033cbb7feafe+                    ]+                ]+            , E [ E [ P 0x38b91c600b35913a3c598e4caa9dd63007c675d0b1642b5675ff0e7c5805386699981f9e48199d5ac10b2ef492ae589274fad55fc1889aa80c65b5f746c9d4cbb739c3a1c53f8cce5+                    , P 0xc96c7797eb0738603f1311e4ecda088f7b8f35dcef0977a3d1a58677bb037418181df63835d28997eb57b40b9c0b15dd7595a9f177612f097fc7960910fce3370f2004d914a3c093a+                    ]+                , E [ P 0xb9b7951c6061ee3f0197a498908aee660dea41b39d13852b6db908ba2c0b7a449cef11f293b13ced0fd0caa5efcf3432aad1cbe4324c22d63334b5b0e205c3354e41607e60750e057+                    , P 0x827d5c22fb2bdec5282624c4f4aaa2b1e5d7a9defaf47b5211cf741719728a7f9f8cfca93f29cff364a7190b7e2b0d4585479bd6aebf9fc44e56af2fc9e97c3f84e19da00fbc6ae34+                    ]+                ]+            ]+    , y = E [ E [ E [ P 0xeb53356c375b5dfa497216452f3024b918b4238059a577e6f3b39ebfc435faab0906235afa27748d90f7336d8ae5163c1599abf77eea6d659045012ab12c0ff323edd3fe4d2d7971+                    , P 0x284dc75979e0ff144da6531815fcadc2b75a422ba325e6fba01d72964732fcbf3afb096b243b1f192c5c3d1892ab24e1dd212fa097d760e2e588b423525ffc7b111471db936cd5665+                    ]+                , E [ P 0xb36a201dd008523e421efb70367669ef2c2fc5030216d5b119d3a480d370514475f7d5c99d0e90411515536ca3295e5e2f0c1d35d51a652269cbc7c46fc3b8fde68332a526a2a8474+                    , P 0xaec25a4621edc0688223fbbd478762b1c2cded3360dcee23dd8b0e710e122d2742c89b224333fa40dced2817742770ba10d67bda503ee5e578fb3d8b8a1e5337316213da92841589d+                    ]+                ]+            , E [ E [ P 0xd209d5a223a9c46916503fa5a88325a2554dc541b43dd93b5a959805f1129857ed85c77fa238cdce8a1e2ca4e512b64f59f430135945d137b08857fdddfcf7a43f47831f982e50137+                    , P 0x7d0d03745736b7a513d339d5ad537b90421ad66eb16722b589d82e2055ab7504fa83420e8c270841f6824f47c180d139e3aafc198caa72b679da59ed8226cf3a594eedc58cf90bee4+                    ]+                , E [ P 0x896767811be65ea25c2d05dfdd17af8a006f364fc0841b064155f14e4c819a6df98f425ae3a2864f22c1fab8c74b2618b5bb40fa639f53dccc9e884017d9aa62b3d41faeafeb23986+                    , P 0x35e2524ff89029d393a5c07e84f981b5e068f1406be8e50c87549b6ef8eca9a9533a3f8e69c31e97e1ad0333ec719205417300d8c4ab33f748e5ac66e84069c55d667ffcb732718b6+                    ]+                ]+            ]+    }+  }++bn224 :: Curve+bn224 = Curve+  { name = "BN224"+  , types = Types+    { curve = "BN224"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x3+    , h = 0x1+    , q = 0xfffffffffff107288ec29e602c4520db42180823bb907d1287127833+    , r = 0xfffffffffff107288ec29e602c4420db4218082b36c2accff76c58ed+    , x = P 0x1+    , y = P 0x2+    }+  }++bn254 :: Curve+bn254 = Curve+  { name = "BN254"+  , types = Types+    { curve = "BN254"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x3+    , h = 0x1+    , q = 0x30644e72e131a029b85045b68181585d97816a916871ca8d3c208c16d87cfd47+    , r = 0x30644e72e131a029b85045b68181585d2833e84879b9709143e1f593f0000001+    , x = P 0x1+    , y = P 0x2+    }+  }++bn254t :: Curve+bn254t = Curve+  { name = "BN254T"+  , types = Types+    { curve = "BN254"+    , field = Extension "Fq2" "U" "[1, 0, 1]" (+                Prime "Fq"+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ P 0x2b149d40ceb8aaae81be18991be06ac3b5b4c5e559dbefa33267e6dc24a138e5+            , P 0x9713b03af0fed4cd2cafadeed8fdf4a74fa084e52d1852e4a2bd0685c315d2+            ]+    , h = 0x30644e72e131a029b85045b68181585e06ceecda572a2489345f2299c0f9fa8d+    , q = 0x30644e72e131a029b85045b68181585d97816a916871ca8d3c208c16d87cfd47+    , r = 0x30644e72e131a029b85045b68181585d2833e84879b9709143e1f593f0000001+    , x = E [ P 0x1800deef121f1e76426a00665e5c4479674322d4f75edadd46debd5cd992f6ed+            , P 0x198e9393920d483a7260bfb731fb5d25f1aa493335a9e71297e485b7aef312c2+            ]+    , y = E [ P 0x12c85ea5db8c6deb4aab71808dcb408fe3d1e7690c43d37b4ce6cc0166fa7daa+            , P 0x90689d0585ff075ec9e99ad690c3395bc4b313370b38ef355acdadcd122975b+            ]+    }+  }++bn254a :: Curve+bn254a = Curve+  { name = "BN254A"+  , types = Types+    { curve = "BN254A"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x5+    , h = 0x1+    , q = 0x2370fb049d410fbe4e761a9886e502417d023f40180000017e80600000000001+    , r = 0x2370fb049d410fbe4e761a9886e502411dc1af70120000017e80600000000001+    , x = P 0x1+    , y = P 0xd45589b158faaf6ab0e4ad38d998e9982e7ff63964ee1460342a592677cccb0+    }+  }++bn254at :: Curve+bn254at = Curve+  { name = "BN254AT"+  , types = Types+    { curve = "BN254A"+    , field = Extension "Fq2" "U" "[5, 0, 1]" (+                Prime "Fq"+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ P 0x0+            , P 0x2370fb049d410fbe4e761a9886e502417d023f40180000017e80600000000000+            ]+    , h = 0x2370fb049d410fbe4e761a9886e50241dc42cf101e0000017e80600000000001+    , q = 0x2370fb049d410fbe4e761a9886e502417d023f40180000017e80600000000001+    , r = 0x2370fb049d410fbe4e761a9886e502411dc1af70120000017e80600000000001+    , x = E [ P 0x19b0bea4afe4c330da93cc3533da38a9f430b471c6f8a536e81962ed967909b5+            , P 0xa1cf585585a61c6e9880b1f2a5c539f7d906fff238fa6341e1de1a2e45c3f72+            ]+    , y = E [ P 0x17abd366ebbd65333e49c711a80a0cf6d24adf1b9b3990eedcc91731384d2627+            , P 0xee97d6de9902a27d00e952232a78700863bc9aa9be960c32f5bf9fd0a32d345+            ]+    }+  }++bn254b :: Curve+bn254b = Curve+  { name = "BN254B"+  , types = Types+    { curve = "BN254B"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x2+    , h = 0x1+    , q = 0x2523648240000001ba344d80000000086121000000000013a700000000000013+    , r = 0x2523648240000001ba344d8000000007ff9f800000000010a10000000000000d+    , x = P 0x2523648240000001ba344d80000000086121000000000013a700000000000012+    , y = P 0x1+    }+  }++bn254bt :: Curve+bn254bt = Curve+  { name = "BN254BT"+  , types = Types+    { curve = "BN254B"+    , field = Extension "Fq2" "U" "[1, 0, 1]" (+                Prime "Fq"+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ P 0x1+            , P 0x2523648240000001ba344d80000000086121000000000013a700000000000012+            ]+    , h = 0x2523648240000001ba344d8000000008c2a2800000000016ad00000000000019+    , q = 0x2523648240000001ba344d80000000086121000000000013a700000000000013+    , r = 0x2523648240000001ba344d8000000007ff9f800000000010a10000000000000d+    , x = E [ P 0x61a10bb519eb62feb8d8c7e8c61edb6a4648bbb4898bf0d91ee4224c803fb2b+            , P 0x516aaf9ba737833310aa78c5982aa5b1f4d746bae3784b70d8c34c1e7d54cf3+            ]+    , y = E [ P 0x21897a06baf93439a90e096698c822329bd0ae6bdbe09bd19f0e07891cd2b9a+            , P 0xebb2b0e7c8b15268f6d4456f5f38d37b09006ffd739c9578a2d1aec6b3ace9b+            ]+    }+  }++bn254c :: Curve+bn254c = Curve+  { name = "BN254C"+  , types = Types+    { curve = "BN254C"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x2+    , h = 0x1+    , q = 0x240120db6517014efa0bab3696f8d5f06e8a555614f464babe9dbbfeeeb4a713+    , r = 0x240120db6517014efa0bab3696f8d5f00e88d43492b2cb363a75777e8d30210d+    , x = P 0x240120db6517014efa0bab3696f8d5f06e8a555614f464babe9dbbfeeeb4a712+    , y = P 0x1+    }+  }++bn254ct :: Curve+bn254ct = Curve+  { name = "BN254CT"+  , types = Types+    { curve = "BN254C"+    , field = Extension "Fq2" "U" "[1, 0, 1]" (+                Prime "Fq"+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ P 0x1+            , P 0x240120db6517014efa0bab3696f8d5f06e8a555614f464babe9dbbfeeeb4a712+            ]+    , h = 0x240120db6517014efa0bab3696f8d5f0ce8bd6779735fe3f42c6007f50392d19+    , q = 0x240120db6517014efa0bab3696f8d5f06e8a555614f464babe9dbbfeeeb4a713+    , r = 0x240120db6517014efa0bab3696f8d5f00e88d43492b2cb363a75777e8d30210d+    , x = E [ P 0x571af2ea9666eb2a53f3fb837172bdd809c03a95c5870f34a8cb340220bf9c0+            , P 0xf71abb712a9e6e12c07b58bc01f2f994c3b5a1531cf96609b838e5ccf05bc71+            ]+    , y = E [ P 0xb88822fe134c1695b21419bb1ab9732f707701046a2e6ff3ad10f3c70284b93+            , P 0x1659b723676b5af5231fb045b3d822c0de6fcaab171bad9c8951afc800a26775+            ]+    }+  }++bn254d :: Curve+bn254d = Curve+  { name = "BN254D"+  , types = Types+    { curve = "BN254D"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x2+    , h = 0x1+    , q = 0x24000482410f5aadb74e200f3b89d00081cf93e428f0d651e8b2dc2bb460a48b+    , r = 0x24000482410f5aadb74e200f3b89d00021cf8de127b73833d7fb71a511aa2bf5+    , x = P 0x24000482410f5aadb74e200f3b89d00081cf93e428f0d651e8b2dc2bb460a48a+    , y = P 0x1+    }+  }++bn254dt :: Curve+bn254dt = Curve+  { name = "BN254DT"+  , types = Types+    { curve = "BN254D"+    , field = Extension "Fq2" "U" "[1, 0, 1]" (+                Prime "Fq"+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ P 0x1+            , P 0x24000482410f5aadb74e200f3b89d00081cf93e428f0d651e8b2dc2bb460a48a+            ]+    , h = 0x24000482410f5aadb74e200f3b89d000e1cf99e72a2a746ff96a46b257171d21+    , q = 0x24000482410f5aadb74e200f3b89d00081cf93e428f0d651e8b2dc2bb460a48b+    , r = 0x24000482410f5aadb74e200f3b89d00021cf8de127b73833d7fb71a511aa2bf5+    , x = E [ P 0x20cfe8b965fc444008a21b12cd2a55f843c1dd68ba12a8bb1f1dde3533b91a32+            , P 0x176f822a5ee7ada449f8f876ee001508dd43b5413e03c8f4ad3e3b38dadaf51+            ]+    , y = E [ P 0x2b27f22c2920fee3b4af218b6d92421780a9bdc66155142fecef3af7f58e872+            , P 0x14e9c62a36ebce710810576b5401fdf0b28126ad2d563bf5043be3347646dfb4+            ]+    }+  }++bn256 :: Curve+bn256 = Curve+  { name = "BN256"+  , types = Types+    { curve = "BN256"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x3+    , h = 0x1+    , q = 0xfffffffffffcf0cd46e5f25eee71a49f0cdc65fb12980a82d3292ddbaed33013+    , r = 0xfffffffffffcf0cd46e5f25eee71a49e0cdc65fb1299921af62d536cd10b500d+    , x = P 0x1+    , y = P 0x2+    }+  }++bn384 :: Curve+bn384 = Curve+  { name = "BN384"+  , types = Types+    { curve = "BN384"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x3+    , h = 0x1+    , q = 0xfffffffffffffffffff2a96823d5920d2a127e3f6fbca024c8fbe29531892c79534f9d306328261550a7cabd7cccd10b+    , r = 0xfffffffffffffffffff2a96823d5920d2a127e3f6fbca023c8fbe29531892c795356487d8ac63e4f4db17384341a5775+    , x = P 0x1+    , y = P 0x2+    }+  }++bn462 :: Curve+bn462 = Curve+  { name = "BN462"+  , types = Types+    { curve = "BN462"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x5+    , h = 0x1+    , q = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908f41c8020ffffffffff6ff66fc6ff687f640000000002401b00840138013+    , r = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908ee1c201f7fffffffff6ff66fc7bf717f7c0000000002401b007e010800d+    , x = P 0x21a6d67ef250191fadba34a0a30160b9ac9264b6f95f63b3edbec3cf4b2e689db1bbb4e69a416a0b1e79239c0372e5cd70113c98d91f36b6980d+    , y = P 0x118ea0460f7f7abb82b33676a7432a490eeda842cccfa7d788c659650426e6af77df11b8ae40eb80f475432c66600622ecaa8a5734d36fb03de+    }+  }++bn462t :: Curve+bn462t = Curve+  { name = "BN462T"+  , types = Types+    { curve = "BN462"+    , field = Extension "Fq2" "U" "[1, 0, 1]" (+                Prime "Fq"+              )+    }+  , parameters = Parameters+    { a = E [+            ]+    , b = E [ P 0x2+            , P 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908f41c8020ffffffffff6ff66fc6ff687f640000000002401b00840138012+            ]+    , h = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908fa1ce0227fffffffff6ff66fc63f5f7f4c0000000002401b008a0168019+    , q = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908f41c8020ffffffffff6ff66fc6ff687f640000000002401b00840138013+    , r = 0x240480360120023ffffffffff6ff0cf6b7d9bfca0000000000d812908ee1c201f7fffffffff6ff66fc7bf717f7c0000000002401b007e010800d+    , x = E [ P 0x257ccc85b58dda0dfb38e3a8cbdc5482e0337e7c1cd96ed61c913820408208f9ad2699bad92e0032ae1f0aa6a8b48807695468e3d934ae1e4df+            , P 0x1d2e4343e8599102af8edca849566ba3c98e2a354730cbed9176884058b18134dd86bae555b783718f50af8b59bf7e850e9b73108ba6aa8cd283+            ]+    , y = E [ P 0xa0650439da22c1979517427a20809eca035634706e23c3fa7a6bb42fe810f1399a1f41c9ddae32e03695a140e7b11d7c3376e5b68df0db7154e+            , P 0x73ef0cbd438cbe0172c8ae37306324d44d5e6b0c69ac57b393f1ab370fd725cc647692444a04ef87387aa68d53743493b9eba14cc552ca2a93a+            ]+    }+  }++bn512 :: Curve+bn512 = Curve+  { name = "BN512"+  , types = Types+    { curve = "BN512"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x3+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffff9ec7f01c60ba1d8cb5307c0bbe3c111b0ef455146cf1eacbe98b8e48c65deab236fe1916a55ce5f4c6467b4eb280922adef33+    , r = 0xfffffffffffffffffffffffffff9ec7f01c60ba1d8cb5307c0bbe3c111b0ef445146cf1eacbe98b8e48c65deab2679a34a10313e04f9a2b406a64a5f519a09ed+    , x = P 0x1+    , y = P 0x2+    }+  }++brainpoolp160r1 :: Curve+brainpoolp160r1 = Curve+  { name = "BrainpoolP160R1"+  , types = Types+    { curve = "BrainpoolP160R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x340e7be2a280eb74e2be61bada745d97e8f7c300+    , b = P 0x1e589a8595423412134faa2dbdec95c8d8675e58+    , h = 0x1+    , q = 0xe95e4a5f737059dc60dfc7ad95b3d8139515620f+    , r = 0xe95e4a5f737059dc60df5991d45029409e60fc09+    , x = P 0xbed5af16ea3f6a4f62938c4631eb5af7bdbcdbc3+    , y = P 0x1667cb477a1a8ec338f94741669c976316da6321+    }+  }++brainpoolp160t1 :: Curve+brainpoolp160t1 = Curve+  { name = "BrainpoolP160T1"+  , types = Types+    { curve = "BrainpoolP160T1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xe95e4a5f737059dc60dfc7ad95b3d8139515620c+    , b = P 0x7a556b6dae535b7b51ed2c4d7daa7a0b5c55f380+    , h = 0x1+    , q = 0xe95e4a5f737059dc60dfc7ad95b3d8139515620f+    , r = 0xe95e4a5f737059dc60df5991d45029409e60fc09+    , x = P 0xb199b13b9b34efc1397e64baeb05acc265ff2378+    , y = P 0xadd6718b7c7c1961f0991b842443772152c9e0ad+    }+  }++brainpoolp192r1 :: Curve+brainpoolp192r1 = Curve+  { name = "BrainpoolP192R1"+  , types = Types+    { curve = "BrainpoolP192R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x6a91174076b1e0e19c39c031fe8685c1cae040e5c69a28ef+    , b = P 0x469a28ef7c28cca3dc721d044f4496bcca7ef4146fbf25c9+    , h = 0x1+    , q = 0xc302f41d932a36cda7a3463093d18db78fce476de1a86297+    , r = 0xc302f41d932a36cda7a3462f9e9e916b5be8f1029ac4acc1+    , x = P 0xc0a0647eaab6a48753b033c56cb0f0900a2f5c4853375fd6+    , y = P 0x14b690866abd5bb88b5f4828c1490002e6773fa2fa299b8f+    }+  }++brainpoolp192t1 :: Curve+brainpoolp192t1 = Curve+  { name = "BrainpoolP192T1"+  , types = Types+    { curve = "BrainpoolP192T1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xc302f41d932a36cda7a3463093d18db78fce476de1a86294+    , b = P 0x13d56ffaec78681e68f9deb43b35bec2fb68542e27897b79+    , h = 0x1+    , q = 0xc302f41d932a36cda7a3463093d18db78fce476de1a86297+    , r = 0xc302f41d932a36cda7a3462f9e9e916b5be8f1029ac4acc1+    , x = P 0x3ae9e58c82f63c30282e1fe7bbf43fa72c446af6f4618129+    , y = P 0x97e2c5667c2223a902ab5ca449d0084b7e5b3de7ccc01c9+    }+  }++brainpoolp224r1 :: Curve+brainpoolp224r1 = Curve+  { name = "BrainpoolP224R1"+  , types = Types+    { curve = "BrainpoolP224R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x68a5e62ca9ce6c1c299803a6c1530b514e182ad8b0042a59cad29f43+    , b = P 0x2580f63ccfe44138870713b1a92369e33e2135d266dbb372386c400b+    , h = 0x1+    , q = 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0ff+    , r = 0xd7c134aa264366862a18302575d0fb98d116bc4b6ddebca3a5a7939f+    , x = P 0xd9029ad2c7e5cf4340823b2a87dc68c9e4ce3174c1e6efdee12c07d+    , y = P 0x58aa56f772c0726f24c6b89e4ecdac24354b9e99caa3f6d3761402cd+    }+  }++brainpoolp224t1 :: Curve+brainpoolp224t1 = Curve+  { name = "BrainpoolP224T1"+  , types = Types+    { curve = "BrainpoolP224T1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0fc+    , b = P 0x4b337d934104cd7bef271bf60ced1ed20da14c08b3bb64f18a60888d+    , h = 0x1+    , q = 0xd7c134aa264366862a18302575d1d787b09f075797da89f57ec8c0ff+    , r = 0xd7c134aa264366862a18302575d0fb98d116bc4b6ddebca3a5a7939f+    , x = P 0x6ab1e344ce25ff3896424e7ffe14762ecb49f8928ac0c76029b4d580+    , y = P 0x374e9f5143e568cd23f3f4d7c0d4b1e41c8cc0d1c6abd5f1a46db4c+    }+  }++brainpoolp256r1 :: Curve+brainpoolp256r1 = Curve+  { name = "BrainpoolP256R1"+  , types = Types+    { curve = "BrainpoolP256R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x7d5a0975fc2c3057eef67530417affe7fb8055c126dc5c6ce94a4b44f330b5d9+    , b = P 0x26dc5c6ce94a4b44f330b5d9bbd77cbf958416295cf7e1ce6bccdc18ff8c07b6+    , h = 0x1+    , q = 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5377+    , r = 0xa9fb57dba1eea9bc3e660a909d838d718c397aa3b561a6f7901e0e82974856a7+    , x = P 0x8bd2aeb9cb7e57cb2c4b482ffc81b7afb9de27e1e3bd23c23a4453bd9ace3262+    , y = P 0x547ef835c3dac4fd97f8461a14611dc9c27745132ded8e545c1d54c72f046997+    }+  }++brainpoolp256t1 :: Curve+brainpoolp256t1 = Curve+  { name = "BrainpoolP256T1"+  , types = Types+    { curve = "BrainpoolP256T1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5374+    , b = P 0x662c61c430d84ea4fe66a7733d0b76b7bf93ebc4af2f49256ae58101fee92b04+    , h = 0x1+    , q = 0xa9fb57dba1eea9bc3e660a909d838d726e3bf623d52620282013481d1f6e5377+    , r = 0xa9fb57dba1eea9bc3e660a909d838d718c397aa3b561a6f7901e0e82974856a7+    , x = P 0xa3e8eb3cc1cfe7b7732213b23a656149afa142c47aafbc2b79a191562e1305f4+    , y = P 0x2d996c823439c56d7f7b22e14644417e69bcb6de39d027001dabe8f35b25c9be+    }+  }++brainpoolp320r1 :: Curve+brainpoolp320r1 = Curve+  { name = "BrainpoolP320R1"+  , types = Types+    { curve = "BrainpoolP320R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x3ee30b568fbab0f883ccebd46d3f3bb8a2a73513f5eb79da66190eb085ffa9f492f375a97d860eb4+    , b = P 0x520883949dfdbc42d3ad198640688a6fe13f41349554b49acc31dccd884539816f5eb4ac8fb1f1a6+    , h = 0x1+    , q = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e27+    , r = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa5b68f12a32d482ec7ee8658e98691555b44c59311+    , x = P 0x43bd7e9afb53d8b85289bcc48ee5bfe6f20137d10a087eb6e7871e2a10a599c710af8d0d39e20611+    , y = P 0x14fdd05545ec1cc8ab4093247f77275e0743ffed117182eaa9c77877aaac6ac7d35245d1692e8ee1+    }+  }++brainpoolp320t1 :: Curve+brainpoolp320t1 = Curve+  { name = "BrainpoolP320T1"+  , types = Types+    { curve = "BrainpoolP320T1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e24+    , b = P 0xa7f561e038eb1ed560b3d147db782013064c19f27ed27c6780aaf77fb8a547ceb5b4fef422340353+    , h = 0x1+    , q = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa6f6f40def4f92b9ec7893ec28fcd412b1f1b32e27+    , r = 0xd35e472036bc4fb7e13c785ed201e065f98fcfa5b68f12a32d482ec7ee8658e98691555b44c59311+    , x = P 0x925be9fb01afc6fb4d3e7d4990010f813408ab106c4f09cb7ee07868cc136fff3357f624a21bed52+    , y = P 0x63ba3a7a27483ebf6671dbef7abb30ebee084e58a0b077ad42a5a0989d1ee71b1b9bc0455fb0d2c3+    }+  }++brainpoolp384r1 :: Curve+brainpoolp384r1 = Curve+  { name = "BrainpoolP384R1"+  , types = Types+    { curve = "BrainpoolP384R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x7bc382c63d8c150c3c72080ace05afa0c2bea28e4fb22787139165efba91f90f8aa5814a503ad4eb04a8c7dd22ce2826+    , b = P 0x4a8c7dd22ce28268b39b55416f0447c2fb77de107dcd2a62e880ea53eeb62d57cb4390295dbc9943ab78696fa504c11+    , h = 0x1+    , q = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec53+    , r = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b31f166e6cac0425a7cf3ab6af6b7fc3103b883202e9046565+    , x = P 0x1d1c64f068cf45ffa2a63a81b7c13f6b8847a3e77ef14fe3db7fcafe0cbd10e8e826e03436d646aaef87b2e247d4af1e+    , y = P 0x8abe1d7520f9c2a45cb1eb8e95cfd55262b70b29feec5864e19c054ff99129280e4646217791811142820341263c5315+    }+  }++brainpoolp384t1 :: Curve+brainpoolp384t1 = Curve+  { name = "BrainpoolP384T1"+  , types = Types+    { curve = "BrainpoolP384T1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec50+    , b = P 0x7f519eada7bda81bd826dba647910f8c4b9346ed8ccdc64e4b1abd11756dce1d2074aa263b88805ced70355a33b471ee+    , h = 0x1+    , q = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b412b1da197fb71123acd3a729901d1a71874700133107ec53+    , r = 0x8cb91e82a3386d280f5d6f7e50e641df152f7109ed5456b31f166e6cac0425a7cf3ab6af6b7fc3103b883202e9046565+    , x = P 0x18de98b02db9a306f2afcd7235f72a819b80ab12ebd653172476fecd462aabffc4ff191b946a5f54d8d0aa2f418808cc+    , y = P 0x25ab056962d30651a114afd2755ad336747f93475b7a1fca3b88f2b6a208ccfe469408584dc2b2912675bf5b9e582928+    }+  }++brainpoolp512r1 :: Curve+brainpoolp512r1 = Curve+  { name = "BrainpoolP512R1"+  , types = Types+    { curve = "BrainpoolP512R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x7830a3318b603b89e2327145ac234cc594cbdd8d3df91610a83441caea9863bc2ded5d5aa8253aa10a2ef1c98b9ac8b57f1117a72bf2c7b9e7c1ac4d77fc94ca+    , b = P 0x3df91610a83441caea9863bc2ded5d5aa8253aa10a2ef1c98b9ac8b57f1117a72bf2c7b9e7c1ac4d77fc94cadc083e67984050b75ebae5dd2809bd638016f723+    , h = 0x1+    , q = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f3+    , r = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca70330870553e5c414ca92619418661197fac10471db1d381085ddaddb58796829ca90069+    , x = P 0x81aee4bdd82ed9645a21322e9c4c6a9385ed9f70b5d916c1b43b62eef4d0098eff3b1f78e2d0d48d50d1687b93b97d5f7c6d5047406a5e688b352209bcb9f822+    , y = P 0x7dde385d566332ecc0eabfa9cf7822fdf209f70024a57b1aa000c55b881f8111b2dcde494a5f485e5bca4bd88a2763aed1ca2b2fa8f0540678cd1e0f3ad80892+    }+  }++brainpoolp512t1 :: Curve+brainpoolp512t1 = Curve+  { name = "BrainpoolP512T1"+  , types = Types+    { curve = "BrainpoolP512T1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f0+    , b = P 0x7cbbbcf9441cfab76e1890e46884eae321f70c0bcb4981527897504bec3e36a62bcdfa2304976540f6450085f2dae145c22553b465763689180ea2571867423e+    , h = 0x1+    , q = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca703308717d4d9b009bc66842aecda12ae6a380e62881ff2f2d82c68528aa6056583a48f3+    , r = 0xaadd9db8dbe9c48b3fd4e6ae33c9fc07cb308db3b3c9d20ed6639cca70330870553e5c414ca92619418661197fac10471db1d381085ddaddb58796829ca90069+    , x = P 0x640ece5c12788717b9c1ba06cbc2a6feba85842458c56dde9db1758d39c0313d82ba51735cdb3ea499aa77a7d6943a64f7a3f25fe26f06b51baa2696fa9035da+    , y = P 0x5b534bd595f5af0fa2c892376c84ace1bb4e3019b71634c01131159cae03cee9d9932184beef216bd71df2dadf86a627306ecff96dbb8bace198b61e00f8b332+    }+  }++secp112r1 :: Curve+secp112r1 = Curve+  { name = "SECP112R1"+  , types = Types+    { curve = "SECP112R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xdb7c2abf62e35e668076bead2088+    , b = P 0x659ef8ba043916eede8911702b22+    , h = 0x1+    , q = 0xdb7c2abf62e35e668076bead208b+    , r = 0xdb7c2abf62e35e7628dfac6561c5+    , x = P 0x9487239995a5ee76b55f9c2f098+    , y = P 0xa89ce5af8724c0a23e0e0ff77500+    }+  }++secp112r2 :: Curve+secp112r2 = Curve+  { name = "SECP112R2"+  , types = Types+    { curve = "SECP112R2"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x6127c24c05f38a0aaaf65c0ef02c+    , b = P 0x51def1815db5ed74fcc34c85d709+    , h = 0x4+    , q = 0xdb7c2abf62e35e668076bead208b+    , r = 0x36df0aafd8b8d7597ca10520d04b+    , x = P 0x4ba30ab5e892b4e1649dd0928643+    , y = P 0xadcd46f5882e3747def36e956e97+    }+  }++secp128r1 :: Curve+secp128r1 = Curve+  { name = "SECP128R1"+  , types = Types+    { curve = "SECP128R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xfffffffdfffffffffffffffffffffffc+    , b = P 0xe87579c11079f43dd824993c2cee5ed3+    , h = 0x1+    , q = 0xfffffffdffffffffffffffffffffffff+    , r = 0xfffffffe0000000075a30d1b9038a115+    , x = P 0x161ff7528b899b2d0c28607ca52c5b86+    , y = P 0xcf5ac8395bafeb13c02da292dded7a83+    }+  }++secp128r2 :: Curve+secp128r2 = Curve+  { name = "SECP128R2"+  , types = Types+    { curve = "SECP128R2"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xd6031998d1b3bbfebf59cc9bbff9aee1+    , b = P 0x5eeefca380d02919dc2c6558bb6d8a5d+    , h = 0x4+    , q = 0xfffffffdffffffffffffffffffffffff+    , r = 0x3fffffff7fffffffbe0024720613b5a3+    , x = P 0x7b6aa5d85e572983e6fb32a7cdebc140+    , y = P 0x27b6916a894d3aee7106fe805fc34b44+    }+  }++secp160k1 :: Curve+secp160k1 = Curve+  { name = "SECP160K1"+  , types = Types+    { curve = "SECP160K1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x7+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffffffffeffffac73+    , r = 0x100000000000000000001b8fa16dfab9aca16b6b3+    , x = P 0x3b4c382ce37aa192a4019e763036f4f5dd4d7ebb+    , y = P 0x938cf935318fdced6bc28286531733c3f03c4fee+    }+  }++secp160r1 :: Curve+secp160r1 = Curve+  { name = "SECP160R1"+  , types = Types+    { curve = "SECP160R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xffffffffffffffffffffffffffffffff7ffffffc+    , b = P 0x1c97befc54bd7a8b65acf89f81d4d4adc565fa45+    , h = 0x1+    , q = 0xffffffffffffffffffffffffffffffff7fffffff+    , r = 0x100000000000000000001f4c8f927aed3ca752257+    , x = P 0x4a96b5688ef573284664698968c38bb913cbfc82+    , y = P 0x23a628553168947d59dcc912042351377ac5fb32+    }+  }++secp160r2 :: Curve+secp160r2 = Curve+  { name = "SECP160R2"+  , types = Types+    { curve = "SECP160R2"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xfffffffffffffffffffffffffffffffeffffac70+    , b = P 0xb4e134d3fb59eb8bab57274904664d5af50388ba+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffffffffeffffac73+    , r = 0x100000000000000000000351ee786a818f3a1a16b+    , x = P 0x52dcb034293a117e1f4ff11b30f7199d3144ce6d+    , y = P 0xfeaffef2e331f296e071fa0df9982cfea7d43f2e+    }+  }++secp192k1 :: Curve+secp192k1 = Curve+  { name = "SECP192K1"+  , types = Types+    { curve = "SECP192K1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x3+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffffffffffffffffeffffee37+    , r = 0xfffffffffffffffffffffffe26f2fc170f69466a74defd8d+    , x = P 0xdb4ff10ec057e9ae26b07d0280b7f4341da5d1b1eae06c7d+    , y = P 0x9b2f2f6d9c5628a7844163d015be86344082aa88d95e2f9d+    }+  }++secp192r1 :: Curve+secp192r1 = Curve+  { name = "SECP192R1"+  , types = Types+    { curve = "SECP192R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xfffffffffffffffffffffffffffffffefffffffffffffffc+    , b = P 0x64210519e59c80e70fa7e9ab72243049feb8deecc146b9b1+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffffffffeffffffffffffffff+    , r = 0xffffffffffffffffffffffff99def836146bc9b1b4d22831+    , x = P 0x188da80eb03090f67cbf20eb43a18800f4ff0afd82ff1012+    , y = P 0x7192b95ffc8da78631011ed6b24cdd573f977a11e794811+    }+  }++secp224k1 :: Curve+secp224k1 = Curve+  { name = "SECP224K1"+  , types = Types+    { curve = "SECP224K1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x5+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffeffffe56d+    , r = 0x10000000000000000000000000001dce8d2ec6184caf0a971769fb1f7+    , x = P 0xa1455b334df099df30fc28a169a467e9e47075a90f7e650eb6b7a45c+    , y = P 0x7e089fed7fba344282cafbd6f7e319f7c0b0bd59e2ca4bdb556d61a5+    }+  }++secp224r1 :: Curve+secp224r1 = Curve+  { name = "SECP224R1"+  , types = Types+    { curve = "SECP224R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xfffffffffffffffffffffffffffffffefffffffffffffffffffffffe+    , b = P 0xb4050a850c04b3abf54132565044b0b7d7bfd8ba270b39432355ffb4+    , h = 0x1+    , q = 0xffffffffffffffffffffffffffffffff000000000000000000000001+    , r = 0xffffffffffffffffffffffffffff16a2e0b8f03e13dd29455c5c2a3d+    , x = P 0xb70e0cbd6bb4bf7f321390b94a03c1d356c21122343280d6115c1d21+    , y = P 0xbd376388b5f723fb4c22dfe6cd4375a05a07476444d5819985007e34+    }+  }++secp256k1 :: Curve+secp256k1 = Curve+  { name = "SECP256K1"+  , types = Types+    { curve = "SECP256K1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x0+    , b = P 0x7+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffefffffc2f+    , r = 0xfffffffffffffffffffffffffffffffebaaedce6af48a03bbfd25e8cd0364141+    , x = P 0x79be667ef9dcbbac55a06295ce870b07029bfcdb2dce28d959f2815b16f81798+    , y = P 0x483ada7726a3c4655da4fbfc0e1108a8fd17b448a68554199c47d08ffb10d4b8+    }+  }++secp256r1 :: Curve+secp256r1 = Curve+  { name = "SECP256R1"+  , types = Types+    { curve = "SECP256R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xffffffff00000001000000000000000000000000fffffffffffffffffffffffc+    , b = P 0x5ac635d8aa3a93e7b3ebbd55769886bc651d06b0cc53b0f63bce3c3e27d2604b+    , h = 0x1+    , q = 0xffffffff00000001000000000000000000000000ffffffffffffffffffffffff+    , r = 0xffffffff00000000ffffffffffffffffbce6faada7179e84f3b9cac2fc632551+    , x = P 0x6b17d1f2e12c4247f8bce6e563a440f277037d812deb33a0f4a13945d898c296+    , y = P 0x4fe342e2fe1a7f9b8ee7eb4a7c0f9e162bce33576b315ececbb6406837bf51f5+    }+  }++secp384r1 :: Curve+secp384r1 = Curve+  { name = "SECP384R1"+  , types = Types+    { curve = "SECP384R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffff0000000000000000fffffffc+    , b = P 0xb3312fa7e23ee7e4988e056be3f82d19181d9c6efe8141120314088f5013875ac656398d8a2ed19d2a85c8edd3ec2aef+    , h = 0x1+    , q = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffeffffffff0000000000000000ffffffff+    , r = 0xffffffffffffffffffffffffffffffffffffffffffffffffc7634d81f4372ddf581a0db248b0a77aecec196accc52973+    , x = P 0xaa87ca22be8b05378eb1c71ef320ad746e1d3b628ba79b9859f741e082542a385502f25dbf55296c3a545e3872760ab7+    , y = P 0x3617de4a96262c6f5d9e98bf9292dc29f8f41dbd289a147ce9da3113b5f0b8c00a60b1ce1d7e819d7a431d7c90ea0e5f+    }+  }++secp521r1 :: Curve+secp521r1 = Curve+  { name = "SECP521R1"+  , types = Types+    { curve = "SECP521R1"+    , field = Prime "Fq"+    }+  , parameters = Parameters+    { a = P 0x1fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffc+    , b = P 0x51953eb9618e1c9a1f929a21a0b68540eea2da725b99b315f3b8b489918ef109e156193951ec7e937b1652c0bd3bb1bf073573df883d2c34f1ef451fd46b503f00+    , h = 0x1+    , q = 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff+    , r = 0x1fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffa51868783bf2f966b7fcc0148f709a5d03bb5c9b8899c47aebb6fb71e91386409+    , x = P 0xc6858e06b70404e9cd9e3ecb662395b4429c648139053fb521f828af606b4d3dbaa14b5e77efe75928fe1dc127a2ffa8de3348b3c1856a429bf97e7e31c2e5bd66+    , y = P 0x11839296a789a3bc0045c8a5fb42c7d1bd998f54449579b446817afbd17273e662c97ee72995ef42640c550b9013fad0761353c7086a272c24088be94769fd16650     }   }