src/Specific/montgomery64_2e291m19/fenzDisplay.log


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

λ x : word64 * word64 * word64 * word64 * word64,
Interp-η
(λ var : Syntax.base_type → Type,
 λ '(x7, x8, x6, x4, x2)%core,
 uint64_t x9 = (x8 | x7);
 uint64_t x10 = (x6 | x9);
 uint64_t x11 = (x4 | x10);
 uint64_t x12 = (x2 | x11);
 return x12)
x
     : 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)