diff options
Diffstat (limited to 'src/Specific/montgomery32_2e413m21')
| -rw-r--r-- | src/Specific/montgomery32_2e413m21/fenzDisplay.log | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/Specific/montgomery32_2e413m21/fenzDisplay.log b/src/Specific/montgomery32_2e413m21/fenzDisplay.log new file mode 100644 index 000000000..efcdedb96 --- /dev/null +++ b/src/Specific/montgomery32_2e413m21/fenzDisplay.log @@ -0,0 +1,31 @@ +λ x : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32, +Interp-η +(λ var : Syntax.base_type → Type, + λ '(x23, x24, x22, x20, x18, x16, x14, x12, x10, x8, x6, x4, x2)%core, + uint32_t x25 = (x24 | x23); + uint32_t x26 = (x22 | x25); + uint32_t x27 = (x20 | x26); + uint32_t x28 = (x18 | x27); + uint32_t x29 = (x16 | x28); + uint32_t x30 = (x14 | x29); + uint32_t x31 = (x12 | x30); + uint32_t x32 = (x10 | x31); + uint32_t x33 = (x8 | x32); + uint32_t x34 = (x6 | x33); + uint32_t x35 = (x4 | x34); + uint32_t x36 = (x2 | x35); + return x36) +x + : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → 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 5 else None) with + | Some lgsz => Syntax.TWord lgsz + | None => Syntax.TZ + end) |