4 files changed, 102 insertions, 0 deletions
diff --git a/src/Specific/montgomery64_2e338m15/feaddDisplay.log b/src/Specific/montgomery64_2e338m15/feaddDisplay.log
new file mode 100644
index 000000000..901b6ee7f
--- /dev/null
+++ b/src/Specific/montgomery64_2e338m15/feaddDisplay.log
@@ -0,0 +1,26 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x12, x13, x11, x9, x7, x5, (x22, x23, x21, x19, x17, x15))%core,
+ uint64_t x25, uint8_t x26 = addcarryx_u64(0x0, x5, x15);
+ uint64_t x28, uint8_t x29 = addcarryx_u64(x26, x7, x17);
+ uint64_t x31, uint8_t x32 = addcarryx_u64(x29, x9, x19);
+ uint64_t x34, uint8_t x35 = addcarryx_u64(x32, x11, x21);
+ uint64_t x37, uint8_t x38 = addcarryx_u64(x35, x13, x23);
+ uint64_t x40, uint8_t x41 = addcarryx_u64(x38, x12, x22);
+ uint64_t x43, uint8_t x44 = subborrow_u64(0x0, x25, 0xfffffffffffffff1L);
+ uint64_t x46, uint8_t x47 = subborrow_u64(x44, x28, 0xffffffffffffffffL);
+ uint64_t x49, uint8_t x50 = subborrow_u64(x47, x31, 0xffffffffffffffffL);
+ uint64_t x52, uint8_t x53 = subborrow_u64(x50, x34, 0xffffffffffffffffL);
+ uint64_t x55, uint8_t x56 = subborrow_u64(x53, x37, 0xffffffffffffffffL);
+ uint64_t x58, uint8_t x59 = subborrow_u64(x56, x40, 0x3ffff);
+ uint64_t _, uint8_t x62 = subborrow_u64(x59, x41, 0x0);
+ uint64_t x63 = cmovznz(x62, x58, x40);
+ uint64_t x64 = cmovznz(x62, x55, x37);
+ uint64_t x65 = cmovznz(x62, x52, x34);
+ uint64_t x66 = cmovznz(x62, x49, x31);
+ uint64_t x67 = cmovznz(x62, x46, x28);
+ uint64_t x68 = cmovznz(x62, x43, x25);
+ return (x63, x64, x65, x66, x67, x68))
+(x, x0)%core
+     : 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)
diff --git a/src/Specific/montgomery64_2e338m15/fenzDisplay.log b/src/Specific/montgomery64_2e338m15/fenzDisplay.log
new file mode 100644
index 000000000..2a7474647
--- /dev/null
+++ b/src/Specific/montgomery64_2e338m15/fenzDisplay.log
@@ -0,0 +1,24 @@
+λ x : word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x9, x10, x8, x6, x4, x2)%core,
+ uint64_t x11 = (x10 | x9);
+ uint64_t x12 = (x8 | x11);
+ uint64_t x13 = (x6 | x12);
+ uint64_t x14 = (x4 | x13);
+ uint64_t x15 = (x2 | x14);
+ return x15)
+x
+     : word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (Tbase match (if match match (let (lower, _) := Synthesis.P.bound1 in
+                                                                                                      lower) with
+                                                                                               | 0%Z => Eq
+                                                                                               | Z.pos _ => Lt
+                                                                                               | Z.neg _ => Gt
+                                                                                               end with
+                                                                                         | Eq => true
+                                                                                         | Lt => true
+                                                                                         | Gt => false
+                                                                                         end then Some 6 else None) with
+                                                                               | Some lgsz => Syntax.TWord lgsz
+                                                                               | None => Syntax.TZ
+                                                                               end)
diff --git a/src/Specific/montgomery64_2e338m15/feoppDisplay.log b/src/Specific/montgomery64_2e338m15/feoppDisplay.log
new file mode 100644
index 000000000..d21849ad1
--- /dev/null
+++ b/src/Specific/montgomery64_2e338m15/feoppDisplay.log
@@ -0,0 +1,26 @@
+λ x : word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x9, x10, x8, x6, x4, x2)%core,
+ uint64_t x12, uint8_t x13 = subborrow_u64(0x0, 0x0, x2);
+ uint64_t x15, uint8_t x16 = subborrow_u64(x13, 0x0, x4);
+ uint64_t x18, uint8_t x19 = subborrow_u64(x16, 0x0, x6);
+ uint64_t x21, uint8_t x22 = subborrow_u64(x19, 0x0, x8);
+ uint64_t x24, uint8_t x25 = subborrow_u64(x22, 0x0, x10);
+ uint64_t x27, uint8_t x28 = subborrow_u64(x25, 0x0, x9);
+ uint64_t x29 = (uint64_t)cmovznz(x28, 0x0, 0xffffffffffffffffL);
+ uint64_t x30 = (x29 & 0xfffffffffffffff1L);
+ uint64_t x32, uint8_t x33 = addcarryx_u64(0x0, x12, x30);
+ uint64_t x34 = (x29 & 0xffffffffffffffffL);
+ uint64_t x36, uint8_t x37 = addcarryx_u64(x33, x15, x34);
+ uint64_t x38 = (x29 & 0xffffffffffffffffL);
+ uint64_t x40, uint8_t x41 = addcarryx_u64(x37, x18, x38);
+ uint64_t x42 = (x29 & 0xffffffffffffffffL);
+ uint64_t x44, uint8_t x45 = addcarryx_u64(x41, x21, x42);
+ uint64_t x46 = (x29 & 0xffffffffffffffffL);
+ uint64_t x48, uint8_t x49 = addcarryx_u64(x45, x24, x46);
+ uint64_t x50 = (x29 & 0x3ffff);
+ uint64_t x52, uint8_t _ = addcarryx_u64(x49, x27, x50);
+ (Return x52, Return x48, Return x44, Return x40, Return x36, Return x32))
+x
+     : word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
diff --git a/src/Specific/montgomery64_2e338m15/fesubDisplay.log b/src/Specific/montgomery64_2e338m15/fesubDisplay.log
new file mode 100644
index 000000000..66f5d5ee9
--- /dev/null
+++ b/src/Specific/montgomery64_2e338m15/fesubDisplay.log
@@ -0,0 +1,26 @@
+λ x x0 : word64 * word64 * word64 * word64 * word64 * word64,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x12, x13, x11, x9, x7, x5, (x22, x23, x21, x19, x17, x15))%core,
+ uint64_t x25, uint8_t x26 = subborrow_u64(0x0, x5, x15);
+ uint64_t x28, uint8_t x29 = subborrow_u64(x26, x7, x17);
+ uint64_t x31, uint8_t x32 = subborrow_u64(x29, x9, x19);
+ uint64_t x34, uint8_t x35 = subborrow_u64(x32, x11, x21);
+ uint64_t x37, uint8_t x38 = subborrow_u64(x35, x13, x23);
+ uint64_t x40, uint8_t x41 = subborrow_u64(x38, x12, x22);
+ uint64_t x42 = (uint64_t)cmovznz(x41, 0x0, 0xffffffffffffffffL);
+ uint64_t x43 = (x42 & 0xfffffffffffffff1L);
+ uint64_t x45, uint8_t x46 = addcarryx_u64(0x0, x25, x43);
+ uint64_t x47 = (x42 & 0xffffffffffffffffL);
+ uint64_t x49, uint8_t x50 = addcarryx_u64(x46, x28, x47);
+ uint64_t x51 = (x42 & 0xffffffffffffffffL);
+ uint64_t x53, uint8_t x54 = addcarryx_u64(x50, x31, x51);
+ uint64_t x55 = (x42 & 0xffffffffffffffffL);
+ uint64_t x57, uint8_t x58 = addcarryx_u64(x54, x34, x55);
+ uint64_t x59 = (x42 & 0xffffffffffffffffL);
+ uint64_t x61, uint8_t x62 = addcarryx_u64(x58, x37, x59);
+ uint64_t x63 = (x42 & 0x3ffff);
+ uint64_t x65, uint8_t _ = addcarryx_u64(x62, x40, x63);
+ (Return x65, Return x61, Return x57, Return x53, Return x49, Return x45))
+(x, x0)%core
+     : 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)