src/Specific/montgomery32_2e196m15/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
24
25

λ x : word32 * word32 * word32 * word32 * word32 * word32 * word32,
Interp-η
(λ var : Syntax.base_type → Type,
 λ '(x11, x12, x10, x8, x6, x4, x2)%core,
 uint32_t x13 = (x12 | x11);
 uint32_t x14 = (x10 | x13);
 uint32_t x15 = (x8 | x14);
 uint32_t x16 = (x6 | x15);
 uint32_t x17 = (x4 | x16);
 uint32_t x18 = (x2 | x17);
 return x18)
x
     : 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)