diff options
Diffstat (limited to 'src/Specific/montgomery64_2e489m21')
-rw-r--r-- | src/Specific/montgomery64_2e489m21/fenzDisplay.log | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/src/Specific/montgomery64_2e489m21/fenzDisplay.log b/src/Specific/montgomery64_2e489m21/fenzDisplay.log new file mode 100644 index 000000000..7ecc26851 --- /dev/null +++ b/src/Specific/montgomery64_2e489m21/fenzDisplay.log @@ -0,0 +1,26 @@ +λ x : word64 * word64 * word64 * word64 * word64 * word64 * word64 * word64, +Interp-η +(λ var : Syntax.base_type → Type, + λ '(x13, x14, x12, x10, x8, x6, x4, x2)%core, + uint64_t x15 = (x14 | x13); + uint64_t x16 = (x12 | x15); + uint64_t x17 = (x10 | x16); + uint64_t x18 = (x8 | x17); + uint64_t x19 = (x6 | x18); + uint64_t x20 = (x4 | x19); + uint64_t x21 = (x2 | x20); + return x21) +x + : word64 * word64 * 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) |