aboutsummaryrefslogtreecommitdiff
path: root/src/Specific/NISTP256/AMD128/fenzDisplay.log
diff options
context:
space:
mode:
Diffstat (limited to 'src/Specific/NISTP256/AMD128/fenzDisplay.log')
-rw-r--r--src/Specific/NISTP256/AMD128/fenzDisplay.log20
1 files changed, 20 insertions, 0 deletions
diff --git a/src/Specific/NISTP256/AMD128/fenzDisplay.log b/src/Specific/NISTP256/AMD128/fenzDisplay.log
new file mode 100644
index 000000000..58f9ac4f9
--- /dev/null
+++ b/src/Specific/NISTP256/AMD128/fenzDisplay.log
@@ -0,0 +1,20 @@
+λ x : word128 * word128,
+Interp-η
+(λ var : Syntax.base_type → Type,
+ λ '(x1, x2)%core,
+ uint128_t x3 = x2 | x1;
+ return x3)
+x
+ : word128 * word128 → 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 7 else None) with
+ | Some lgsz => Syntax.TWord lgsz
+ | None => Syntax.TZ
+ end)