45 lines
1.4 KiB
Text
45 lines
1.4 KiB
Text
|
|
[Compiler.simp] f : Nat → Nat :=
|
|
fun x =>
|
|
let h.14 := fun x_1 =>
|
|
Nat.casesOn x_1
|
|
(let _x.82 := Nat.mul x x_1;
|
|
let _x.85 := Nat.mul _x.82 x;
|
|
let _x.88 := Nat.mul _x.85 x_1;
|
|
Nat.mul _x.88 x_1)
|
|
fun n => Nat.add n x_1;
|
|
let _x.15 := 1;
|
|
let _x.95 := Nat.add x _x.15;
|
|
let _x.19 := h.14 _x.95;
|
|
let _x.20 := 2;
|
|
let _x.98 := Nat.add x _x.20;
|
|
let _x.24 := h.14 _x.98;
|
|
let _x.101 := Nat.add _x.19 _x.24;
|
|
let _x.26 := 3;
|
|
let _x.104 := Nat.add x _x.26;
|
|
let _x.30 := h.14 _x.104;
|
|
let _x.107 := Nat.add _x.101 _x.30;
|
|
let _x.32 := 4;
|
|
let _x.110 := Nat.add x _x.32;
|
|
let _x.36 := h.14 _x.110;
|
|
let _x.113 := Nat.add _x.107 _x.36;
|
|
let _x.38 := 5;
|
|
let _x.116 := Nat.add x _x.38;
|
|
let _x.42 := h.14 _x.116;
|
|
let _x.119 := Nat.add _x.113 _x.42;
|
|
let _x.44 := 6;
|
|
let _x.122 := Nat.add x _x.44;
|
|
let _x.48 := h.14 _x.122;
|
|
let _x.125 := Nat.add _x.119 _x.48;
|
|
let _x.50 := 7;
|
|
let _x.128 := Nat.add x _x.50;
|
|
let _x.54 := h.14 _x.128;
|
|
let _x.131 := Nat.add _x.125 _x.54;
|
|
let _x.56 := 8;
|
|
let _x.134 := Nat.add x _x.56;
|
|
let _x.60 := h.14 _x.134;
|
|
let _x.137 := Nat.add _x.131 _x.60;
|
|
let _x.62 := 9;
|
|
let _x.140 := Nat.add x _x.62;
|
|
let _x.66 := h.14 _x.140;
|
|
Nat.add _x.137 _x.66
|