Update display logs and c files

10 files changed, 317 insertions, 0 deletions

diff --git a/src/Specific/solinas64_2e401m31_7limbs/feadd.c b/src/Specific/solinas64_2e401m31_7limbs/feadd.c
new file mode 100644
index 000000000..9acf97578
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/feadd.c
@@ -0,0 +1,24 @@
+static void feadd(uint64_t out[7], const uint64_t in1[7], const uint64_t in2[7]) {
+  { const uint64_t x14 = in1[6];
+  { const uint64_t x15 = in1[5];
+  { const uint64_t x13 = in1[4];
+  { const uint64_t x11 = in1[3];
+  { const uint64_t x9 = in1[2];
+  { const uint64_t x7 = in1[1];
+  { const uint64_t x5 = in1[0];
+  { const uint64_t x26 = in2[6];
+  { const uint64_t x27 = in2[5];
+  { const uint64_t x25 = in2[4];
+  { const uint64_t x23 = in2[3];
+  { const uint64_t x21 = in2[2];
+  { const uint64_t x19 = in2[1];
+  { const uint64_t x17 = in2[0];
+  out[0] = (x5 + x17);
+  out[1] = (x7 + x19);
+  out[2] = (x9 + x21);
+  out[3] = (x11 + x23);
+  out[4] = (x13 + x25);
+  out[5] = (x15 + x27);
+  out[6] = (x14 + x26);
+  }}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e401m31_7limbs/feaddDisplay.log b/src/Specific/solinas64_2e401m31_7limbs/feaddDisplay.log
new file mode 100644
index 000000000..6320440fc
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/feaddDisplay.log
@@ -0,0 +1,7 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x14, x15, x13, x11, x9, x7, x5, (x26, x27, x25, x23, x21, x19, x17))%core,
+ ((x14 + x26), (x15 + x27), (x13 + x25), (x11 + x23), (x9 + x21), (x7 + x19), (x5 + x17)))
+(x, x0)%core
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 → word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e401m31_7limbs/femul.c b/src/Specific/solinas64_2e401m31_7limbs/femul.c
new file mode 100644
index 000000000..6ac79f099
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/femul.c
@@ -0,0 +1,57 @@
+static void femul(uint64_t out[7], const uint64_t in1[7], const uint64_t in2[7]) {
+  { const uint64_t x14 = in1[6];
+  { const uint64_t x15 = in1[5];
+  { const uint64_t x13 = in1[4];
+  { const uint64_t x11 = in1[3];
+  { const uint64_t x9 = in1[2];
+  { const uint64_t x7 = in1[1];
+  { const uint64_t x5 = in1[0];
+  { const uint64_t x26 = in2[6];
+  { const uint64_t x27 = in2[5];
+  { const uint64_t x25 = in2[4];
+  { const uint64_t x23 = in2[3];
+  { const uint64_t x21 = in2[2];
+  { const uint64_t x19 = in2[1];
+  { const uint64_t x17 = in2[0];
+  { uint128_t x28 = (((uint128_t)x5 * x26) + ((0x2 * ((uint128_t)x7 * x27)) + ((0x2 * ((uint128_t)x9 * x25)) + (((uint128_t)x11 * x23) + ((0x2 * ((uint128_t)x13 * x21)) + ((0x2 * ((uint128_t)x15 * x19)) + ((uint128_t)x14 * x17)))))));
+  { uint128_t x29 = ((((uint128_t)x5 * x27) + ((0x2 * ((uint128_t)x7 * x25)) + (((uint128_t)x9 * x23) + (((uint128_t)x11 * x21) + ((0x2 * ((uint128_t)x13 * x19)) + ((uint128_t)x15 * x17)))))) + (0x1f * ((uint128_t)x14 * x26)));
+  { uint128_t x30 = ((((uint128_t)x5 * x25) + (((uint128_t)x7 * x23) + (((uint128_t)x9 * x21) + (((uint128_t)x11 * x19) + ((uint128_t)x13 * x17))))) + (0x1f * (((uint128_t)x15 * x26) + ((uint128_t)x14 * x27))));
+  { uint128_t x31 = ((((uint128_t)x5 * x23) + ((0x2 * ((uint128_t)x7 * x21)) + ((0x2 * ((uint128_t)x9 * x19)) + ((uint128_t)x11 * x17)))) + (0x1f * ((0x2 * ((uint128_t)x13 * x26)) + ((0x2 * ((uint128_t)x15 * x27)) + (0x2 * ((uint128_t)x14 * x25))))));
+  { uint128_t x32 = ((((uint128_t)x5 * x21) + ((0x2 * ((uint128_t)x7 * x19)) + ((uint128_t)x9 * x17))) + (0x1f * (((uint128_t)x11 * x26) + ((0x2 * ((uint128_t)x13 * x27)) + ((0x2 * ((uint128_t)x15 * x25)) + ((uint128_t)x14 * x23))))));
+  { uint128_t x33 = ((((uint128_t)x5 * x19) + ((uint128_t)x7 * x17)) + (0x1f * (((uint128_t)x9 * x26) + (((uint128_t)x11 * x27) + ((0x2 * ((uint128_t)x13 * x25)) + (((uint128_t)x15 * x23) + ((uint128_t)x14 * x21)))))));
+  { uint128_t x34 = (((uint128_t)x5 * x17) + (0x1f * ((0x2 * ((uint128_t)x7 * x26)) + ((0x2 * ((uint128_t)x9 * x27)) + ((0x2 * ((uint128_t)x11 * x25)) + ((0x2 * ((uint128_t)x13 * x23)) + ((0x2 * ((uint128_t)x15 * x21)) + (0x2 * ((uint128_t)x14 * x19)))))))));
+  { uint128_t x35 = (x34 >> 0x3a);
+  { uint64_t x36 = ((uint64_t)x34 & 0x3ffffffffffffff);
+  { uint128_t x37 = (x35 + x33);
+  { uint128_t x38 = (x37 >> 0x39);
+  { uint64_t x39 = ((uint64_t)x37 & 0x1ffffffffffffff);
+  { uint128_t x40 = (x38 + x32);
+  { uint128_t x41 = (x40 >> 0x39);
+  { uint64_t x42 = ((uint64_t)x40 & 0x1ffffffffffffff);
+  { uint128_t x43 = (x41 + x31);
+  { uint128_t x44 = (x43 >> 0x3a);
+  { uint64_t x45 = ((uint64_t)x43 & 0x3ffffffffffffff);
+  { uint128_t x46 = (x44 + x30);
+  { uint128_t x47 = (x46 >> 0x39);
+  { uint64_t x48 = ((uint64_t)x46 & 0x1ffffffffffffff);
+  { uint128_t x49 = (x47 + x29);
+  { uint128_t x50 = (x49 >> 0x39);
+  { uint64_t x51 = ((uint64_t)x49 & 0x1ffffffffffffff);
+  { uint128_t x52 = (x50 + x28);
+  { uint128_t x53 = (x52 >> 0x39);
+  { uint64_t x54 = ((uint64_t)x52 & 0x1ffffffffffffff);
+  { uint128_t x55 = (x36 + (0x1f * x53));
+  { uint64_t x56 = (uint64_t) (x55 >> 0x3a);
+  { uint64_t x57 = ((uint64_t)x55 & 0x3ffffffffffffff);
+  { uint64_t x58 = (x56 + x39);
+  { uint64_t x59 = (x58 >> 0x39);
+  { uint64_t x60 = (x58 & 0x1ffffffffffffff);
+  out[0] = x57;
+  out[1] = x60;
+  out[2] = (x59 + x42);
+  out[3] = x45;
+  out[4] = x48;
+  out[5] = x51;
+  out[6] = x54;
+  }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e401m31_7limbs/femulDisplay.log b/src/Specific/solinas64_2e401m31_7limbs/femulDisplay.log
new file mode 100644
index 000000000..cfe716aa4
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/femulDisplay.log
@@ -0,0 +1,40 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x14, x15, x13, x11, x9, x7, x5, (x26, x27, x25, x23, x21, x19, x17))%core,
+ uint128_t x28 = (((uint128_t)x5 * x26) + ((0x2 * ((uint128_t)x7 * x27)) + ((0x2 * ((uint128_t)x9 * x25)) + (((uint128_t)x11 * x23) + ((0x2 * ((uint128_t)x13 * x21)) + ((0x2 * ((uint128_t)x15 * x19)) + ((uint128_t)x14 * x17)))))));
+ uint128_t x29 = ((((uint128_t)x5 * x27) + ((0x2 * ((uint128_t)x7 * x25)) + (((uint128_t)x9 * x23) + (((uint128_t)x11 * x21) + ((0x2 * ((uint128_t)x13 * x19)) + ((uint128_t)x15 * x17)))))) + (0x1f * ((uint128_t)x14 * x26)));
+ uint128_t x30 = ((((uint128_t)x5 * x25) + (((uint128_t)x7 * x23) + (((uint128_t)x9 * x21) + (((uint128_t)x11 * x19) + ((uint128_t)x13 * x17))))) + (0x1f * (((uint128_t)x15 * x26) + ((uint128_t)x14 * x27))));
+ uint128_t x31 = ((((uint128_t)x5 * x23) + ((0x2 * ((uint128_t)x7 * x21)) + ((0x2 * ((uint128_t)x9 * x19)) + ((uint128_t)x11 * x17)))) + (0x1f * ((0x2 * ((uint128_t)x13 * x26)) + ((0x2 * ((uint128_t)x15 * x27)) + (0x2 * ((uint128_t)x14 * x25))))));
+ uint128_t x32 = ((((uint128_t)x5 * x21) + ((0x2 * ((uint128_t)x7 * x19)) + ((uint128_t)x9 * x17))) + (0x1f * (((uint128_t)x11 * x26) + ((0x2 * ((uint128_t)x13 * x27)) + ((0x2 * ((uint128_t)x15 * x25)) + ((uint128_t)x14 * x23))))));
+ uint128_t x33 = ((((uint128_t)x5 * x19) + ((uint128_t)x7 * x17)) + (0x1f * (((uint128_t)x9 * x26) + (((uint128_t)x11 * x27) + ((0x2 * ((uint128_t)x13 * x25)) + (((uint128_t)x15 * x23) + ((uint128_t)x14 * x21)))))));
+ uint128_t x34 = (((uint128_t)x5 * x17) + (0x1f * ((0x2 * ((uint128_t)x7 * x26)) + ((0x2 * ((uint128_t)x9 * x27)) + ((0x2 * ((uint128_t)x11 * x25)) + ((0x2 * ((uint128_t)x13 * x23)) + ((0x2 * ((uint128_t)x15 * x21)) + (0x2 * ((uint128_t)x14 * x19)))))))));
+ uint128_t x35 = (x34 >> 0x3a);
+ uint64_t x36 = ((uint64_t)x34 & 0x3ffffffffffffff);
+ uint128_t x37 = (x35 + x33);
+ uint128_t x38 = (x37 >> 0x39);
+ uint64_t x39 = ((uint64_t)x37 & 0x1ffffffffffffff);
+ uint128_t x40 = (x38 + x32);
+ uint128_t x41 = (x40 >> 0x39);
+ uint64_t x42 = ((uint64_t)x40 & 0x1ffffffffffffff);
+ uint128_t x43 = (x41 + x31);
+ uint128_t x44 = (x43 >> 0x3a);
+ uint64_t x45 = ((uint64_t)x43 & 0x3ffffffffffffff);
+ uint128_t x46 = (x44 + x30);
+ uint128_t x47 = (x46 >> 0x39);
+ uint64_t x48 = ((uint64_t)x46 & 0x1ffffffffffffff);
+ uint128_t x49 = (x47 + x29);
+ uint128_t x50 = (x49 >> 0x39);
+ uint64_t x51 = ((uint64_t)x49 & 0x1ffffffffffffff);
+ uint128_t x52 = (x50 + x28);
+ uint128_t x53 = (x52 >> 0x39);
+ uint64_t x54 = ((uint64_t)x52 & 0x1ffffffffffffff);
+ uint128_t x55 = (x36 + (0x1f * x53));
+ uint64_t x56 = (uint64_t) (x55 >> 0x3a);
+ uint64_t x57 = ((uint64_t)x55 & 0x3ffffffffffffff);
+ uint64_t x58 = (x56 + x39);
+ uint64_t x59 = (x58 >> 0x39);
+ uint64_t x60 = (x58 & 0x1ffffffffffffff);
+ return (Return x54, Return x51, Return x48, Return x45, (x59 + x42), Return x60, Return x57))
+(x, x0)%core
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 → word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e401m31_7limbs/fesquare.c b/src/Specific/solinas64_2e401m31_7limbs/fesquare.c
new file mode 100644
index 000000000..e8d935dec
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/fesquare.c
@@ -0,0 +1,50 @@
+static void fesquare(uint64_t out[7], const uint64_t in1[7]) {
+  { const uint64_t x11 = in1[6];
+  { const uint64_t x12 = in1[5];
+  { const uint64_t x10 = in1[4];
+  { const uint64_t x8 = in1[3];
+  { const uint64_t x6 = in1[2];
+  { const uint64_t x4 = in1[1];
+  { const uint64_t x2 = in1[0];
+  { uint128_t x13 = (((uint128_t)x2 * x11) + ((0x2 * ((uint128_t)x4 * x12)) + ((0x2 * ((uint128_t)x6 * x10)) + (((uint128_t)x8 * x8) + ((0x2 * ((uint128_t)x10 * x6)) + ((0x2 * ((uint128_t)x12 * x4)) + ((uint128_t)x11 * x2)))))));
+  { uint128_t x14 = ((((uint128_t)x2 * x12) + ((0x2 * ((uint128_t)x4 * x10)) + (((uint128_t)x6 * x8) + (((uint128_t)x8 * x6) + ((0x2 * ((uint128_t)x10 * x4)) + ((uint128_t)x12 * x2)))))) + (0x1f * ((uint128_t)x11 * x11)));
+  { uint128_t x15 = ((((uint128_t)x2 * x10) + (((uint128_t)x4 * x8) + (((uint128_t)x6 * x6) + (((uint128_t)x8 * x4) + ((uint128_t)x10 * x2))))) + (0x1f * (((uint128_t)x12 * x11) + ((uint128_t)x11 * x12))));
+  { uint128_t x16 = ((((uint128_t)x2 * x8) + ((0x2 * ((uint128_t)x4 * x6)) + ((0x2 * ((uint128_t)x6 * x4)) + ((uint128_t)x8 * x2)))) + (0x1f * ((0x2 * ((uint128_t)x10 * x11)) + ((0x2 * ((uint128_t)x12 * x12)) + (0x2 * ((uint128_t)x11 * x10))))));
+  { uint128_t x17 = ((((uint128_t)x2 * x6) + ((0x2 * ((uint128_t)x4 * x4)) + ((uint128_t)x6 * x2))) + (0x1f * (((uint128_t)x8 * x11) + ((0x2 * ((uint128_t)x10 * x12)) + ((0x2 * ((uint128_t)x12 * x10)) + ((uint128_t)x11 * x8))))));
+  { uint128_t x18 = ((((uint128_t)x2 * x4) + ((uint128_t)x4 * x2)) + (0x1f * (((uint128_t)x6 * x11) + (((uint128_t)x8 * x12) + ((0x2 * ((uint128_t)x10 * x10)) + (((uint128_t)x12 * x8) + ((uint128_t)x11 * x6)))))));
+  { uint128_t x19 = (((uint128_t)x2 * x2) + (0x1f * ((0x2 * ((uint128_t)x4 * x11)) + ((0x2 * ((uint128_t)x6 * x12)) + ((0x2 * ((uint128_t)x8 * x10)) + ((0x2 * ((uint128_t)x10 * x8)) + ((0x2 * ((uint128_t)x12 * x6)) + (0x2 * ((uint128_t)x11 * x4)))))))));
+  { uint128_t x20 = (x19 >> 0x3a);
+  { uint64_t x21 = ((uint64_t)x19 & 0x3ffffffffffffff);
+  { uint128_t x22 = (x20 + x18);
+  { uint128_t x23 = (x22 >> 0x39);
+  { uint64_t x24 = ((uint64_t)x22 & 0x1ffffffffffffff);
+  { uint128_t x25 = (x23 + x17);
+  { uint128_t x26 = (x25 >> 0x39);
+  { uint64_t x27 = ((uint64_t)x25 & 0x1ffffffffffffff);
+  { uint128_t x28 = (x26 + x16);
+  { uint128_t x29 = (x28 >> 0x3a);
+  { uint64_t x30 = ((uint64_t)x28 & 0x3ffffffffffffff);
+  { uint128_t x31 = (x29 + x15);
+  { uint128_t x32 = (x31 >> 0x39);
+  { uint64_t x33 = ((uint64_t)x31 & 0x1ffffffffffffff);
+  { uint128_t x34 = (x32 + x14);
+  { uint128_t x35 = (x34 >> 0x39);
+  { uint64_t x36 = ((uint64_t)x34 & 0x1ffffffffffffff);
+  { uint128_t x37 = (x35 + x13);
+  { uint128_t x38 = (x37 >> 0x39);
+  { uint64_t x39 = ((uint64_t)x37 & 0x1ffffffffffffff);
+  { uint128_t x40 = (x21 + (0x1f * x38));
+  { uint64_t x41 = (uint64_t) (x40 >> 0x3a);
+  { uint64_t x42 = ((uint64_t)x40 & 0x3ffffffffffffff);
+  { uint64_t x43 = (x41 + x24);
+  { uint64_t x44 = (x43 >> 0x39);
+  { uint64_t x45 = (x43 & 0x1ffffffffffffff);
+  out[0] = x42;
+  out[1] = x45;
+  out[2] = (x44 + x27);
+  out[3] = x30;
+  out[4] = x33;
+  out[5] = x36;
+  out[6] = x39;
+  }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e401m31_7limbs/fesquareDisplay.log b/src/Specific/solinas64_2e401m31_7limbs/fesquareDisplay.log
new file mode 100644
index 000000000..6646fe954
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/fesquareDisplay.log
@@ -0,0 +1,40 @@
+λ x : word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x11, x12, x10, x8, x6, x4, x2)%core,
+ uint128_t x13 = (((uint128_t)x2 * x11) + ((0x2 * ((uint128_t)x4 * x12)) + ((0x2 * ((uint128_t)x6 * x10)) + (((uint128_t)x8 * x8) + ((0x2 * ((uint128_t)x10 * x6)) + ((0x2 * ((uint128_t)x12 * x4)) + ((uint128_t)x11 * x2)))))));
+ uint128_t x14 = ((((uint128_t)x2 * x12) + ((0x2 * ((uint128_t)x4 * x10)) + (((uint128_t)x6 * x8) + (((uint128_t)x8 * x6) + ((0x2 * ((uint128_t)x10 * x4)) + ((uint128_t)x12 * x2)))))) + (0x1f * ((uint128_t)x11 * x11)));
+ uint128_t x15 = ((((uint128_t)x2 * x10) + (((uint128_t)x4 * x8) + (((uint128_t)x6 * x6) + (((uint128_t)x8 * x4) + ((uint128_t)x10 * x2))))) + (0x1f * (((uint128_t)x12 * x11) + ((uint128_t)x11 * x12))));
+ uint128_t x16 = ((((uint128_t)x2 * x8) + ((0x2 * ((uint128_t)x4 * x6)) + ((0x2 * ((uint128_t)x6 * x4)) + ((uint128_t)x8 * x2)))) + (0x1f * ((0x2 * ((uint128_t)x10 * x11)) + ((0x2 * ((uint128_t)x12 * x12)) + (0x2 * ((uint128_t)x11 * x10))))));
+ uint128_t x17 = ((((uint128_t)x2 * x6) + ((0x2 * ((uint128_t)x4 * x4)) + ((uint128_t)x6 * x2))) + (0x1f * (((uint128_t)x8 * x11) + ((0x2 * ((uint128_t)x10 * x12)) + ((0x2 * ((uint128_t)x12 * x10)) + ((uint128_t)x11 * x8))))));
+ uint128_t x18 = ((((uint128_t)x2 * x4) + ((uint128_t)x4 * x2)) + (0x1f * (((uint128_t)x6 * x11) + (((uint128_t)x8 * x12) + ((0x2 * ((uint128_t)x10 * x10)) + (((uint128_t)x12 * x8) + ((uint128_t)x11 * x6)))))));
+ uint128_t x19 = (((uint128_t)x2 * x2) + (0x1f * ((0x2 * ((uint128_t)x4 * x11)) + ((0x2 * ((uint128_t)x6 * x12)) + ((0x2 * ((uint128_t)x8 * x10)) + ((0x2 * ((uint128_t)x10 * x8)) + ((0x2 * ((uint128_t)x12 * x6)) + (0x2 * ((uint128_t)x11 * x4)))))))));
+ uint128_t x20 = (x19 >> 0x3a);
+ uint64_t x21 = ((uint64_t)x19 & 0x3ffffffffffffff);
+ uint128_t x22 = (x20 + x18);
+ uint128_t x23 = (x22 >> 0x39);
+ uint64_t x24 = ((uint64_t)x22 & 0x1ffffffffffffff);
+ uint128_t x25 = (x23 + x17);
+ uint128_t x26 = (x25 >> 0x39);
+ uint64_t x27 = ((uint64_t)x25 & 0x1ffffffffffffff);
+ uint128_t x28 = (x26 + x16);
+ uint128_t x29 = (x28 >> 0x3a);
+ uint64_t x30 = ((uint64_t)x28 & 0x3ffffffffffffff);
+ uint128_t x31 = (x29 + x15);
+ uint128_t x32 = (x31 >> 0x39);
+ uint64_t x33 = ((uint64_t)x31 & 0x1ffffffffffffff);
+ uint128_t x34 = (x32 + x14);
+ uint128_t x35 = (x34 >> 0x39);
+ uint64_t x36 = ((uint64_t)x34 & 0x1ffffffffffffff);
+ uint128_t x37 = (x35 + x13);
+ uint128_t x38 = (x37 >> 0x39);
+ uint64_t x39 = ((uint64_t)x37 & 0x1ffffffffffffff);
+ uint128_t x40 = (x21 + (0x1f * x38));
+ uint64_t x41 = (uint64_t) (x40 >> 0x3a);
+ uint64_t x42 = ((uint64_t)x40 & 0x3ffffffffffffff);
+ uint64_t x43 = (x41 + x24);
+ uint64_t x44 = (x43 >> 0x39);
+ uint64_t x45 = (x43 & 0x1ffffffffffffff);
+ return (Return x39, Return x36, Return x33, Return x30, (x44 + x27), Return x45, Return x42))
+x
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e401m31_7limbs/fesub.c b/src/Specific/solinas64_2e401m31_7limbs/fesub.c
new file mode 100644
index 000000000..5c54a1648
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/fesub.c
@@ -0,0 +1,24 @@
+static void fesub(uint64_t out[7], const uint64_t in1[7], const uint64_t in2[7]) {
+  { const uint64_t x14 = in1[6];
+  { const uint64_t x15 = in1[5];
+  { const uint64_t x13 = in1[4];
+  { const uint64_t x11 = in1[3];
+  { const uint64_t x9 = in1[2];
+  { const uint64_t x7 = in1[1];
+  { const uint64_t x5 = in1[0];
+  { const uint64_t x26 = in2[6];
+  { const uint64_t x27 = in2[5];
+  { const uint64_t x25 = in2[4];
+  { const uint64_t x23 = in2[3];
+  { const uint64_t x21 = in2[2];
+  { const uint64_t x19 = in2[1];
+  { const uint64_t x17 = in2[0];
+  out[0] = ((Const 576460752303423426 + x5) - x17);
+  out[1] = ((0x3fffffffffffffe + x7) - x19);
+  out[2] = ((0x3fffffffffffffe + x9) - x21);
+  out[3] = ((0x7fffffffffffffe + x11) - x23);
+  out[4] = ((0x3fffffffffffffe + x13) - x25);
+  out[5] = ((0x3fffffffffffffe + x15) - x27);
+  out[6] = ((0x3fffffffffffffe + x14) - x26);
+  }}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e401m31_7limbs/fesubDisplay.log b/src/Specific/solinas64_2e401m31_7limbs/fesubDisplay.log
new file mode 100644
index 000000000..3782f8aa2
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/fesubDisplay.log
@@ -0,0 +1,7 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x14, x15, x13, x11, x9, x7, x5, (x26, x27, x25, x23, x21, x19, x17))%core,
+ (((0x3fffffffffffffe + x14) - x26), ((0x3fffffffffffffe + x15) - x27), ((0x3fffffffffffffe + x13) - x25), ((0x7fffffffffffffe + x11) - x23), ((0x3fffffffffffffe + x9) - x21), ((0x3fffffffffffffe + x7) - x19), ((Const 576460752303423426 + x5) - x17)))
+(x, x0)%core
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 → word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/solinas64_2e401m31_7limbs/freeze.c b/src/Specific/solinas64_2e401m31_7limbs/freeze.c
new file mode 100644
index 000000000..121e3cdab
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/freeze.c
@@ -0,0 +1,39 @@
+static void freeze(uint64_t out[7], const uint64_t in1[7]) {
+  { const uint64_t x11 = in1[6];
+  { const uint64_t x12 = in1[5];
+  { const uint64_t x10 = in1[4];
+  { const uint64_t x8 = in1[3];
+  { const uint64_t x6 = in1[2];
+  { const uint64_t x4 = in1[1];
+  { const uint64_t x2 = in1[0];
+  { uint64_t x14, uint8_t x15 = Op (Syntax.SubWithGetBorrow 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x2, Const 288230376151711713);
+  { uint64_t x17, uint8_t x18 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x15, Return x4, 0x1ffffffffffffff);
+  { uint64_t x20, uint8_t x21 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x18, Return x6, 0x1ffffffffffffff);
+  { uint64_t x23, uint8_t x24 = Op (Syntax.SubWithGetBorrow 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x21, Return x8, 0x3ffffffffffffff);
+  { uint64_t x26, uint8_t x27 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x24, Return x10, 0x1ffffffffffffff);
+  { uint64_t x29, uint8_t x30 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x27, Return x12, 0x1ffffffffffffff);
+  { uint64_t x32, uint8_t x33 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x30, Return x11, 0x1ffffffffffffff);
+  { uint64_t x34 = cmovznz64(x33, 0x0, 0xffffffffffffffffL);
+  { uint64_t x35 = (x34 & Const 288230376151711713);
+  { uint64_t x37, uint8_t x38 = Op (Syntax.AddWithGetCarry 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x14, Return x35);
+  { uint64_t x39 = (x34 & 0x1ffffffffffffff);
+  { uint64_t x41, uint8_t x42 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x38, Return x17, Return x39);
+  { uint64_t x43 = (x34 & 0x1ffffffffffffff);
+  { uint64_t x45, uint8_t x46 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x42, Return x20, Return x43);
+  { uint64_t x47 = (x34 & 0x3ffffffffffffff);
+  { uint64_t x49, uint8_t x50 = Op (Syntax.AddWithGetCarry 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x46, Return x23, Return x47);
+  { uint64_t x51 = (x34 & 0x1ffffffffffffff);
+  { uint64_t x53, uint8_t x54 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x50, Return x26, Return x51);
+  { uint64_t x55 = (x34 & 0x1ffffffffffffff);
+  { uint64_t x57, uint8_t x58 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x54, Return x29, Return x55);
+  { uint64_t x59 = (x34 & 0x1ffffffffffffff);
+  { uint64_t x61, uint8_t _ = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x58, Return x32, Return x59);
+  out[0] = x37;
+  out[1] = x41;
+  out[2] = x45;
+  out[3] = x49;
+  out[4] = x53;
+  out[5] = x57;
+  out[6] = x61;
+  }}}}}}}}}}}}}}}}}}}}}}}}}}}}}
+}
diff --git a/src/Specific/solinas64_2e401m31_7limbs/freezeDisplay.log b/src/Specific/solinas64_2e401m31_7limbs/freezeDisplay.log
new file mode 100644
index 000000000..7beef5a2d
--- /dev/null
+++ b/src/Specific/solinas64_2e401m31_7limbs/freezeDisplay.log
@@ -0,0 +1,29 @@
+λ x : word64 * word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x11, x12, x10, x8, x6, x4, x2)%core,
+ uint64_t x14, uint8_t x15 = Op (Syntax.SubWithGetBorrow 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x2, Const 288230376151711713);
+ uint64_t x17, uint8_t x18 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x15, Return x4, 0x1ffffffffffffff);
+ uint64_t x20, uint8_t x21 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x18, Return x6, 0x1ffffffffffffff);
+ uint64_t x23, uint8_t x24 = Op (Syntax.SubWithGetBorrow 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x21, Return x8, 0x3ffffffffffffff);
+ uint64_t x26, uint8_t x27 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x24, Return x10, 0x1ffffffffffffff);
+ uint64_t x29, uint8_t x30 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x27, Return x12, 0x1ffffffffffffff);
+ uint64_t x32, uint8_t x33 = Op (Syntax.SubWithGetBorrow 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x30, Return x11, 0x1ffffffffffffff);
+ uint64_t x34 = cmovznz64(x33, 0x0, 0xffffffffffffffffL);
+ uint64_t x35 = (x34 & Const 288230376151711713);
+ uint64_t x37, uint8_t x38 = Op (Syntax.AddWithGetCarry 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (0x0, Return x14, Return x35);
+ uint64_t x39 = (x34 & 0x1ffffffffffffff);
+ uint64_t x41, uint8_t x42 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x38, Return x17, Return x39);
+ uint64_t x43 = (x34 & 0x1ffffffffffffff);
+ uint64_t x45, uint8_t x46 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x42, Return x20, Return x43);
+ uint64_t x47 = (x34 & 0x3ffffffffffffff);
+ uint64_t x49, uint8_t x50 = Op (Syntax.AddWithGetCarry 58 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x46, Return x23, Return x47);
+ uint64_t x51 = (x34 & 0x1ffffffffffffff);
+ uint64_t x53, uint8_t x54 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x50, Return x26, Return x51);
+ uint64_t x55 = (x34 & 0x1ffffffffffffff);
+ uint64_t x57, uint8_t x58 = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x54, Return x29, Return x55);
+ uint64_t x59 = (x34 & 0x1ffffffffffffff);
+ uint64_t x61, uint8_t _ = Op (Syntax.AddWithGetCarry 57 (Syntax.TWord 3) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 6) (Syntax.TWord 3)) (Return x58, Return x32, Return x59);
+ (Return x61, Return x57, Return x53, Return x49, Return x45, Return x41, Return x37))
+x
+     : word64 * word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)