max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2
lean4-htt/tests/elab/simple_ground_extraction.lean
Henrik Böving 2e9e5db408
feat: extract simple array literals as static initializers (#12724) 
This PR implements support for extracting simple ground array literals
into statically initialized data.
2026-02-27 18:42:21 +00:00

907 lines
30 KiB
Text
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/-! This test asserts that the compiler is able to succesfully extract certain terms as statically
initializable values. -/
/--
trace: [Compiler.simpleGround] Marked stringTest1._closed_0 as simple ground expr
[Compiler.simpleGround] Marked stringTest1 as simple ground expr
[Compiler.saveImpure] size: 1
def stringTest1._closed_0 : obj :=
let _x.1 := "literal";
return _x.1
[Compiler.saveImpure] size: 1
def stringTest1 : obj :=
let _x.1 := stringTest1._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def stringTest1 : String := "literal"
/--
trace: [Compiler.simpleGround] Marked stringTest2._closed_0 as simple ground expr
[Compiler.simpleGround] Marked stringTest2._closed_1 as simple ground expr
[Compiler.simpleGround] Marked stringTest2._closed_2 as simple ground expr
[Compiler.simpleGround] Marked stringTest2._closed_3 as simple ground expr
[Compiler.simpleGround] Marked stringTest2._closed_4 as simple ground expr
[Compiler.simpleGround] Marked stringTest2._closed_5 as simple ground expr
[Compiler.simpleGround] Marked stringTest2 as simple ground expr
[Compiler.saveImpure] size: 1
def stringTest2._closed_0 : obj :=
let _x.1 := "A";
return _x.1
[Compiler.saveImpure] size: 1
def stringTest2._closed_1 : obj :=
let _x.1 := "B";
return _x.1
[Compiler.saveImpure] size: 1
def stringTest2._closed_2 : obj :=
let _x.1 := "C";
return _x.1
[Compiler.saveImpure] size: 3
def stringTest2._closed_3 : tobj :=
let _x.1 := ctor_0[List.nil];
let _x.2 := stringTest2._closed_2;
let _x.3 := ctor_1[List.cons] _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def stringTest2._closed_4 : tobj :=
let _x.1 := stringTest2._closed_3;
let _x.2 := stringTest2._closed_1;
let _x.3 := ctor_1[List.cons] _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def stringTest2._closed_5 : tobj :=
let _x.1 := stringTest2._closed_4;
let _x.2 := stringTest2._closed_0;
let _x.3 := ctor_1[List.cons] _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 1
def stringTest2 : tobj :=
let _x.1 := stringTest2._closed_5;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def stringTest2 : List String := ["A", "B", "C"]
open Lean
/--
trace: [Compiler.simpleGround] Marked nameTest1._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest1 as simple ground expr
[Compiler.saveImpure] size: 2
def nameTest1._closed_0 : tobj :=
let _x.1 := stringTest2._closed_0;
let _x.2 := Lean.Name.mkStr1 _x.1;
return _x.2
[Compiler.saveImpure] size: 1
def nameTest1 : tobj :=
let _x.1 := nameTest1._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest1 : Name := `A
/--
trace: [Compiler.simpleGround] Marked nameTest2._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest2 as simple ground expr
[Compiler.saveImpure] size: 3
def nameTest2._closed_0 : tobj :=
let _x.1 := stringTest2._closed_1;
let _x.2 := stringTest2._closed_0;
let _x.3 := Lean.Name.mkStr2 _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 1
def nameTest2 : tobj :=
let _x.1 := nameTest2._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest2 : Name := `A.B
/--
trace: [Compiler.simpleGround] Marked nameTest3._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest3 as simple ground expr
[Compiler.saveImpure] size: 4
def nameTest3._closed_0 : tobj :=
let _x.1 := stringTest2._closed_2;
let _x.2 := stringTest2._closed_1;
let _x.3 := stringTest2._closed_0;
let _x.4 := Lean.Name.mkStr3 _x.3 _x.2 _x.1;
return _x.4
[Compiler.saveImpure] size: 1
def nameTest3 : tobj :=
let _x.1 := nameTest3._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest3 : Name := `A.B.C
/--
trace: [Compiler.simpleGround] Marked nameTest4._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest4._closed_1 as simple ground expr
[Compiler.simpleGround] Marked nameTest4 as simple ground expr
[Compiler.saveImpure] size: 1
def nameTest4._closed_0 : obj :=
let _x.1 := "D";
return _x.1
[Compiler.saveImpure] size: 5
def nameTest4._closed_1 : tobj :=
let _x.1 := nameTest4._closed_0;
let _x.2 := stringTest2._closed_2;
let _x.3 := stringTest2._closed_1;
let _x.4 := stringTest2._closed_0;
let _x.5 := Lean.Name.mkStr4 _x.4 _x.3 _x.2 _x.1;
return _x.5
[Compiler.saveImpure] size: 1
def nameTest4 : tobj :=
let _x.1 := nameTest4._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest4 : Name := `A.B.C.D
/--
trace: [Compiler.simpleGround] Marked nameTest5._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest5._closed_1 as simple ground expr
[Compiler.simpleGround] Marked nameTest5 as simple ground expr
[Compiler.saveImpure] size: 1
def nameTest5._closed_0 : obj :=
let _x.1 := "E";
return _x.1
[Compiler.saveImpure] size: 6
def nameTest5._closed_1 : tobj :=
let _x.1 := nameTest5._closed_0;
let _x.2 := nameTest4._closed_0;
let _x.3 := stringTest2._closed_2;
let _x.4 := stringTest2._closed_1;
let _x.5 := stringTest2._closed_0;
let _x.6 := Lean.Name.mkStr5 _x.5 _x.4 _x.3 _x.2 _x.1;
return _x.6
[Compiler.saveImpure] size: 1
def nameTest5 : tobj :=
let _x.1 := nameTest5._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest5 : Name := `A.B.C.D.E
/--
trace: [Compiler.simpleGround] Marked nameTest6._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest6._closed_1 as simple ground expr
[Compiler.simpleGround] Marked nameTest6 as simple ground expr
[Compiler.saveImpure] size: 1
def nameTest6._closed_0 : obj :=
let _x.1 := "F";
return _x.1
[Compiler.saveImpure] size: 7
def nameTest6._closed_1 : tobj :=
let _x.1 := nameTest6._closed_0;
let _x.2 := nameTest5._closed_0;
let _x.3 := nameTest4._closed_0;
let _x.4 := stringTest2._closed_2;
let _x.5 := stringTest2._closed_1;
let _x.6 := stringTest2._closed_0;
let _x.7 := Lean.Name.mkStr6 _x.6 _x.5 _x.4 _x.3 _x.2 _x.1;
return _x.7
[Compiler.saveImpure] size: 1
def nameTest6 : tobj :=
let _x.1 := nameTest6._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest6 : Name := `A.B.C.D.E.F
/--
trace: [Compiler.simpleGround] Marked nameTest7._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest7._closed_1 as simple ground expr
[Compiler.simpleGround] Marked nameTest7 as simple ground expr
[Compiler.saveImpure] size: 1
def nameTest7._closed_0 : obj :=
let _x.1 := "G";
return _x.1
[Compiler.saveImpure] size: 8
def nameTest7._closed_1 : tobj :=
let _x.1 := nameTest7._closed_0;
let _x.2 := nameTest6._closed_0;
let _x.3 := nameTest5._closed_0;
let _x.4 := nameTest4._closed_0;
let _x.5 := stringTest2._closed_2;
let _x.6 := stringTest2._closed_1;
let _x.7 := stringTest2._closed_0;
let _x.8 := Lean.Name.mkStr7 _x.7 _x.6 _x.5 _x.4 _x.3 _x.2 _x.1;
return _x.8
[Compiler.saveImpure] size: 1
def nameTest7 : tobj :=
let _x.1 := nameTest7._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest7 : Name := `A.B.C.D.E.F.G
/--
trace: [Compiler.simpleGround] Marked nameTest8._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest8._closed_1 as simple ground expr
[Compiler.simpleGround] Marked nameTest8 as simple ground expr
[Compiler.saveImpure] size: 1
def nameTest8._closed_0 : obj :=
let _x.1 := "H";
return _x.1
[Compiler.saveImpure] size: 9
def nameTest8._closed_1 : tobj :=
let _x.1 := nameTest8._closed_0;
let _x.2 := nameTest7._closed_0;
let _x.3 := nameTest6._closed_0;
let _x.4 := nameTest5._closed_0;
let _x.5 := nameTest4._closed_0;
let _x.6 := stringTest2._closed_2;
let _x.7 := stringTest2._closed_1;
let _x.8 := stringTest2._closed_0;
let _x.9 := Lean.Name.mkStr8 _x.8 _x.7 _x.6 _x.5 _x.4 _x.3 _x.2 _x.1;
return _x.9
[Compiler.saveImpure] size: 1
def nameTest8 : tobj :=
let _x.1 := nameTest8._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest8 : Name := `A.B.C.D.E.F.G.H
/--
trace: [Compiler.simpleGround] Marked nameTest9._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_1 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_2 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_3 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_4 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_5 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_6 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_7 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_8 as simple ground expr
[Compiler.simpleGround] Marked nameTest9._closed_9 as simple ground expr
[Compiler.simpleGround] Marked nameTest9 as simple ground expr
[Compiler.saveImpure] size: 3
def nameTest9._closed_0 : tobj :=
let _x.1 := stringTest2._closed_0;
let _x.2 := ctor_0[Lean.Name.anonymous._impl];
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def nameTest9._closed_1 : tobj :=
let _x.1 := stringTest2._closed_1;
let _x.2 := nameTest9._closed_0;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def nameTest9._closed_2 : tobj :=
let _x.1 := stringTest2._closed_2;
let _x.2 := nameTest9._closed_1;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def nameTest9._closed_3 : tobj :=
let _x.1 := nameTest4._closed_0;
let _x.2 := nameTest9._closed_2;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def nameTest9._closed_4 : tobj :=
let _x.1 := nameTest5._closed_0;
let _x.2 := nameTest9._closed_3;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def nameTest9._closed_5 : tobj :=
let _x.1 := nameTest6._closed_0;
let _x.2 := nameTest9._closed_4;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def nameTest9._closed_6 : tobj :=
let _x.1 := nameTest7._closed_0;
let _x.2 := nameTest9._closed_5;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def nameTest9._closed_7 : tobj :=
let _x.1 := nameTest8._closed_0;
let _x.2 := nameTest9._closed_6;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 1
def nameTest9._closed_8 : obj :=
let _x.1 := "I";
return _x.1
[Compiler.saveImpure] size: 3
def nameTest9._closed_9 : tobj :=
let _x.1 := nameTest9._closed_8;
let _x.2 := nameTest9._closed_7;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 1
def nameTest9 : tobj :=
let _x.1 := nameTest9._closed_9;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest9 : Name := `A.B.C.D.E.F.G.H.I
/--
trace: [Compiler.simpleGround] Marked nameTest10._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest10 as simple ground expr
[Compiler.saveImpure] size: 3
def nameTest10._closed_0 : tobj :=
let _x.1 := 1;
let _x.2 := nameTest3._closed_0;
let _x.3 := Lean.Name.num._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 1
def nameTest10 : tobj :=
let _x.1 := nameTest10._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest10 : Name := .num `A.B.C 1
/--
trace: [Compiler.simpleGround] Marked nameTest11._closed_0 as simple ground expr
[Compiler.simpleGround] Marked nameTest11._closed_1 as simple ground expr
[Compiler.simpleGround] Marked nameTest11 as simple ground expr
[Compiler.saveImpure] size: 1
def nameTest11._closed_0 : obj :=
let _x.1 := "AHHHH";
return _x.1
[Compiler.saveImpure] size: 3
def nameTest11._closed_1 : tobj :=
let _x.1 := nameTest11._closed_0;
let _x.2 := nameTest3._closed_0;
let _x.3 := Lean.Name.str._override _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 1
def nameTest11 : tobj :=
let _x.1 := nameTest11._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def nameTest11 : Name := .str `A.B.C "AHHHH"
structure WithScalars where
s : String
a : UInt64
b : UInt32
c : UInt16
d : UInt8
/--
trace: [Compiler.simpleGround] Marked testWithScalars._closed_0 as simple ground expr
[Compiler.simpleGround] Marked testWithScalars._closed_1 as simple ground expr
[Compiler.simpleGround] Marked testWithScalars as simple ground expr
[Compiler.saveImpure] size: 1
def testWithScalars._closed_0 : obj :=
let _x.1 := "W";
return _x.1
[Compiler.saveImpure] size: 10
def testWithScalars._closed_1 : obj :=
let _x.1 := 3;
let _x.2 := 2;
let _x.3 := 1;
let _x.4 := 0;
let _x.5 := testWithScalars._closed_0;
let _x.6 := ctor_0.0.15[WithScalars.mk] _x.5;
sset _x.6[1, 0] := _x.4;
sset _x.6[1, 8] := _x.3;
sset _x.6[1, 12] := _x.2;
sset _x.6[1, 14] := _x.1;
return _x.6
[Compiler.saveImpure] size: 1
def testWithScalars : obj :=
let _x.1 := testWithScalars._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def testWithScalars : WithScalars := ⟨"W", 0, 1, 2, 3⟩
structure WithUSize where
s : String
a : USize
/--
trace: [Compiler.simpleGround] Marked testWithUSize._closed_0 as simple ground expr
[Compiler.simpleGround] Marked testWithUSize._closed_1 as simple ground expr
[Compiler.simpleGround] Marked testWithUSize as simple ground expr
[Compiler.saveImpure] size: 1
def testWithUSize._closed_0 : obj :=
let _x.1 := "U";
return _x.1
[Compiler.saveImpure] size: 4
def testWithUSize._closed_1 : obj :=
let _x.1 := 0;
let _x.2 := testWithUSize._closed_0;
let _x.3 := ctor_0.1.0[WithUSize.mk] _x.2;
uset _x.3[1] := _x.1;
return _x.3
[Compiler.saveImpure] size: 1
def testWithUSize : obj :=
let _x.1 := testWithUSize._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def testWithUSize : WithUSize := ⟨"U", 0⟩
structure WithUSizeAndScalars where
s : String
a : UInt64
b : UInt32
c : UInt16
d : UInt8
e : USize
/--
trace: [Compiler.simpleGround] Marked testWithUSizeAndScalars._closed_0 as simple ground expr
[Compiler.simpleGround] Marked testWithUSizeAndScalars._closed_1 as simple ground expr
[Compiler.simpleGround] Marked testWithUSizeAndScalars as simple ground expr
[Compiler.saveImpure] size: 1
def testWithUSizeAndScalars._closed_0 : obj :=
let _x.1 := "WUAS";
return _x.1
[Compiler.saveImpure] size: 12
def testWithUSizeAndScalars._closed_1 : obj :=
let _x.1 := 4;
let _x.2 := 3;
let _x.3 := 2;
let _x.4 := 1;
let _x.5 := 0;
let _x.6 := testWithUSizeAndScalars._closed_0;
let _x.7 := ctor_0.1.15[WithUSizeAndScalars.mk] _x.6;
sset _x.7[2, 0] := _x.5;
sset _x.7[2, 8] := _x.4;
sset _x.7[2, 12] := _x.3;
sset _x.7[2, 14] := _x.2;
uset _x.7[1] := _x.1;
return _x.7
[Compiler.saveImpure] size: 1
def testWithUSizeAndScalars : obj :=
let _x.1 := testWithUSizeAndScalars._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def testWithUSizeAndScalars : WithUSizeAndScalars := ⟨"WUAS", 0, 1, 2, 3, 4⟩
/--
trace: [Compiler.simpleGround] Marked uint8Pair._closed_0 as simple ground expr
[Compiler.simpleGround] Marked uint8Pair as simple ground expr
[Compiler.saveImpure] size: 5
def uint8Pair._closed_0 : obj :=
let _x.1 := 3;
let _x.2 := 1;
let _x.3 := box _x.2;
let _x.4 := box _x.1;
let _x.5 := ctor_0[Prod.mk] _x.3 _x.4;
return _x.5
[Compiler.saveImpure] size: 1
def uint8Pair : obj :=
let _x.1 := uint8Pair._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def uint8Pair : UInt8 × UInt8 := (1,3)
/--
trace: [Compiler.simpleGround] Marked uint16Pair._closed_0 as simple ground expr
[Compiler.simpleGround] Marked uint16Pair as simple ground expr
[Compiler.saveImpure] size: 5
def uint16Pair._closed_0 : obj :=
let _x.1 := 3;
let _x.2 := 1;
let _x.3 := box _x.2;
let _x.4 := box _x.1;
let _x.5 := ctor_0[Prod.mk] _x.3 _x.4;
return _x.5
[Compiler.saveImpure] size: 1
def uint16Pair : obj :=
let _x.1 := uint16Pair._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def uint16Pair : UInt16 × UInt16 := (1,3)
-- TODO: UInt32 support
/--
trace: [Compiler.simpleGround] Marked uint64Pair._closed_0._boxed_const_1 as simple ground expr
[Compiler.simpleGround] Marked uint64Pair._closed_0._boxed_const_2 as simple ground expr
[Compiler.simpleGround] Marked uint64Pair._closed_0 as simple ground expr
[Compiler.simpleGround] Marked uint64Pair as simple ground expr
[Compiler.saveImpure] size: 2
def uint64Pair._closed_0._boxed_const_1 : tobj :=
let _x.1 := 1;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 2
def uint64Pair._closed_0._boxed_const_2 : tobj :=
let _x.1 := 3;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 3
def uint64Pair._closed_0 : obj :=
let _x.1 := uint64Pair._closed_0._boxed_const_1;
let _x.2 := uint64Pair._closed_0._boxed_const_2;
let _x.3 := ctor_0[Prod.mk] _x.1 _x.2;
return _x.3
[Compiler.saveImpure] size: 1
def uint64Pair : obj :=
let _x.1 := uint64Pair._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def uint64Pair : UInt64 × UInt64 := (1,3)
/--
trace: [Compiler.simpleGround] Marked usizePair._closed_0._boxed_const_1 as simple ground expr
[Compiler.simpleGround] Marked usizePair._closed_0._boxed_const_2 as simple ground expr
[Compiler.simpleGround] Marked usizePair._closed_0 as simple ground expr
[Compiler.simpleGround] Marked usizePair as simple ground expr
[Compiler.saveImpure] size: 2
def usizePair._closed_0._boxed_const_1 : tobj :=
let _x.1 := 1;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 2
def usizePair._closed_0._boxed_const_2 : tobj :=
let _x.1 := 3;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 3
def usizePair._closed_0 : obj :=
let _x.1 := usizePair._closed_0._boxed_const_1;
let _x.2 := usizePair._closed_0._boxed_const_2;
let _x.3 := ctor_0[Prod.mk] _x.1 _x.2;
return _x.3
[Compiler.saveImpure] size: 1
def usizePair : obj :=
let _x.1 := usizePair._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def usizePair : USize × USize := (1,3)
/--
trace: [Compiler.simpleGround] Marked arrayNatTest._closed_0 as simple ground expr
[Compiler.simpleGround] Marked arrayNatTest as simple ground expr
[Compiler.saveImpure] size: 7
def arrayNatTest._closed_0 : obj :=
let _x.1 := 2;
let _x.2 := 1;
let _x.3 := 3;
let _x.4 := Array.mkEmpty ◾ _x.3;
let _x.5 := Array.push ◾ _x.4 _x.2;
let _x.6 := Array.push ◾ _x.5 _x.1;
let _x.7 := Array.push ◾ _x.6 _x.3;
return _x.7
[Compiler.saveImpure] size: 1
def arrayNatTest : obj :=
let _x.1 := arrayNatTest._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def arrayNatTest : Array Nat := #[1, 2, 3]
/--
trace: [Compiler.simpleGround] Marked emptyArrayTest._closed_0 as simple ground expr
[Compiler.simpleGround] Marked emptyArrayTest as simple ground expr
[Compiler.saveImpure] size: 2
def emptyArrayTest._closed_0 : obj :=
let _x.1 := 0;
let _x.2 := Array.mkEmpty ◾ _x.1;
return _x.2
[Compiler.saveImpure] size: 1
def emptyArrayTest : obj :=
let _x.1 := emptyArrayTest._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def emptyArrayTest : Array Nat := #[]
/--
trace: [Compiler.simpleGround] Marked arrayStringTest._closed_0 as simple ground expr
[Compiler.simpleGround] Marked arrayStringTest._closed_1 as simple ground expr
[Compiler.simpleGround] Marked arrayStringTest._closed_2 as simple ground expr
[Compiler.simpleGround] Marked arrayStringTest as simple ground expr
[Compiler.saveImpure] size: 1
def arrayStringTest._closed_0 : obj :=
let _x.1 := "hello";
return _x.1
[Compiler.saveImpure] size: 1
def arrayStringTest._closed_1 : obj :=
let _x.1 := "world";
return _x.1
[Compiler.saveImpure] size: 6
def arrayStringTest._closed_2 : obj :=
let _x.1 := arrayStringTest._closed_1;
let _x.2 := arrayStringTest._closed_0;
let _x.3 := 2;
let _x.4 := Array.mkEmpty ◾ _x.3;
let _x.5 := Array.push ◾ _x.4 _x.2;
let _x.6 := Array.push ◾ _x.5 _x.1;
return _x.6
[Compiler.saveImpure] size: 1
def arrayStringTest : obj :=
let _x.1 := arrayStringTest._closed_2;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def arrayStringTest : Array String := #["hello", "world"]
/--
trace: [Compiler.simpleGround] Marked arrayUInt8Test._closed_0 as simple ground expr
[Compiler.simpleGround] Marked arrayUInt8Test as simple ground expr
[Compiler.saveImpure] size: 11
def arrayUInt8Test._closed_0 : obj :=
let _x.1 := 3;
let _x.2 := 2;
let _x.3 := 1;
let _x.4 := 3;
let _x.5 := Array.mkEmpty ◾ _x.4;
let _x.6 := box _x.3;
let _x.7 := Array.push ◾ _x.5 _x.6;
let _x.8 := box _x.2;
let _x.9 := Array.push ◾ _x.7 _x.8;
let _x.10 := box _x.1;
let _x.11 := Array.push ◾ _x.9 _x.10;
return _x.11
[Compiler.saveImpure] size: 1
def arrayUInt8Test : obj :=
let _x.1 := arrayUInt8Test._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def arrayUInt8Test : Array UInt8 := #[1, 2, 3]
/--
trace: [Compiler.simpleGround] Marked arrayUInt16Test._closed_0 as simple ground expr
[Compiler.simpleGround] Marked arrayUInt16Test as simple ground expr
[Compiler.saveImpure] size: 11
def arrayUInt16Test._closed_0 : obj :=
let _x.1 := 3;
let _x.2 := 2;
let _x.3 := 1;
let _x.4 := 3;
let _x.5 := Array.mkEmpty ◾ _x.4;
let _x.6 := box _x.3;
let _x.7 := Array.push ◾ _x.5 _x.6;
let _x.8 := box _x.2;
let _x.9 := Array.push ◾ _x.7 _x.8;
let _x.10 := box _x.1;
let _x.11 := Array.push ◾ _x.9 _x.10;
return _x.11
[Compiler.saveImpure] size: 1
def arrayUInt16Test : obj :=
let _x.1 := arrayUInt16Test._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def arrayUInt16Test : Array UInt16 := #[1, 2, 3]
/--
trace: [Compiler.simpleGround] Marked arrayUInt64._closed_0._boxed_const_1 as simple ground expr
[Compiler.simpleGround] Marked arrayUInt64._closed_0._boxed_const_2 as simple ground expr
[Compiler.simpleGround] Marked arrayUInt64._closed_0._boxed_const_3 as simple ground expr
[Compiler.simpleGround] Marked arrayUInt64._closed_0 as simple ground expr
[Compiler.simpleGround] Marked arrayUInt64 as simple ground expr
[Compiler.saveImpure] size: 2
def arrayUInt64._closed_0._boxed_const_1 : tobj :=
let _x.1 := 34;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 2
def arrayUInt64._closed_0._boxed_const_2 : tobj :=
let _x.1 := 23;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 2
def arrayUInt64._closed_0._boxed_const_3 : tobj :=
let _x.1 := 11;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 8
def arrayUInt64._closed_0 : obj :=
let _x.1 := 3;
let _x.2 := Array.mkEmpty ◾ _x.1;
let _x.3 := arrayUInt64._closed_0._boxed_const_3;
let _x.4 := Array.push ◾ _x.2 _x.3;
let _x.5 := arrayUInt64._closed_0._boxed_const_2;
let _x.6 := Array.push ◾ _x.4 _x.5;
let _x.7 := arrayUInt64._closed_0._boxed_const_1;
let _x.8 := Array.push ◾ _x.6 _x.7;
return _x.8
[Compiler.saveImpure] size: 1
def arrayUInt64 : obj :=
let _x.1 := arrayUInt64._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def arrayUInt64 : Array UInt64 := #[11, 23, 34]
/--
trace: [Compiler.simpleGround] Marked arrayUSize._closed_0._boxed_const_1 as simple ground expr
[Compiler.simpleGround] Marked arrayUSize._closed_0._boxed_const_2 as simple ground expr
[Compiler.simpleGround] Marked arrayUSize._closed_0._boxed_const_3 as simple ground expr
[Compiler.simpleGround] Marked arrayUSize._closed_0 as simple ground expr
[Compiler.simpleGround] Marked arrayUSize as simple ground expr
[Compiler.saveImpure] size: 2
def arrayUSize._closed_0._boxed_const_1 : tobj :=
let _x.1 := 37;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 2
def arrayUSize._closed_0._boxed_const_2 : tobj :=
let _x.1 := 27;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 2
def arrayUSize._closed_0._boxed_const_3 : tobj :=
let _x.1 := 17;
let _x.2 := box _x.1;
return _x.2
[Compiler.saveImpure] size: 8
def arrayUSize._closed_0 : obj :=
let _x.1 := 3;
let _x.2 := Array.mkEmpty ◾ _x.1;
let _x.3 := arrayUSize._closed_0._boxed_const_3;
let _x.4 := Array.push ◾ _x.2 _x.3;
let _x.5 := arrayUSize._closed_0._boxed_const_2;
let _x.6 := Array.push ◾ _x.4 _x.5;
let _x.7 := arrayUSize._closed_0._boxed_const_1;
let _x.8 := Array.push ◾ _x.6 _x.7;
return _x.8
[Compiler.saveImpure] size: 1
def arrayUSize : obj :=
let _x.1 := arrayUSize._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def arrayUSize : Array USize := #[17, 27, 37]
/--
trace: [Compiler.simpleGround] Marked arrayNatPair._closed_0 as simple ground expr
[Compiler.simpleGround] Marked arrayNatPair._closed_1 as simple ground expr
[Compiler.simpleGround] Marked arrayNatPair._closed_2 as simple ground expr
[Compiler.simpleGround] Marked arrayNatPair as simple ground expr
[Compiler.saveImpure] size: 3
def arrayNatPair._closed_0 : obj :=
let _x.1 := 2;
let _x.2 := 1;
let _x.3 := ctor_0[Prod.mk] _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 3
def arrayNatPair._closed_1 : obj :=
let _x.1 := 4;
let _x.2 := 3;
let _x.3 := ctor_0[Prod.mk] _x.2 _x.1;
return _x.3
[Compiler.saveImpure] size: 6
def arrayNatPair._closed_2 : obj :=
let _x.1 := arrayNatPair._closed_1;
let _x.2 := arrayNatPair._closed_0;
let _x.3 := 2;
let _x.4 := Array.mkEmpty ◾ _x.3;
let _x.5 := Array.push ◾ _x.4 _x.2;
let _x.6 := Array.push ◾ _x.5 _x.1;
return _x.6
[Compiler.saveImpure] size: 1
def arrayNatPair : obj :=
let _x.1 := arrayNatPair._closed_2;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def arrayNatPair : Array (Nat × Nat) := #[(1,2), (3,4)]
/--
trace: [Compiler.simpleGround] Marked byteArrayTest._closed_0 as simple ground expr
[Compiler.simpleGround] Marked byteArrayTest as simple ground expr
[Compiler.saveImpure] size: 12
def byteArrayTest._closed_0 : obj :=
let _x.1 := 67;
let _x.2 := 66;
let _x.3 := 65;
let _x.4 := 3;
let _x.5 := Array.mkEmpty ◾ _x.4;
let _x.6 := box _x.3;
let _x.7 := Array.push ◾ _x.5 _x.6;
let _x.8 := box _x.2;
let _x.9 := Array.push ◾ _x.7 _x.8;
let _x.10 := box _x.1;
let _x.11 := Array.push ◾ _x.9 _x.10;
let _x.12 := ByteArray.mk _x.11;
return _x.12
[Compiler.saveImpure] size: 1
def byteArrayTest : obj :=
let _x.1 := byteArrayTest._closed_0;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def byteArrayTest : ByteArray := ⟨#[65, 66, 67]⟩
/--
trace: [Compiler.simpleGround] Marked emptyByteArrayTest._closed_0 as simple ground expr
[Compiler.simpleGround] Marked emptyByteArrayTest._closed_1 as simple ground expr
[Compiler.simpleGround] Marked emptyByteArrayTest as simple ground expr
[Compiler.saveImpure] size: 2
def emptyByteArrayTest._closed_0 : obj :=
let _x.1 := 0;
let _x.2 := Array.mkEmpty ◾ _x.1;
return _x.2
[Compiler.saveImpure] size: 2
def emptyByteArrayTest._closed_1 : obj :=
let _x.1 := emptyByteArrayTest._closed_0;
let _x.2 := ByteArray.mk _x.1;
return _x.2
[Compiler.saveImpure] size: 1
def emptyByteArrayTest : obj :=
let _x.1 := emptyByteArrayTest._closed_1;
return _x.1
-/
#guard_msgs in
set_option trace.Compiler.saveImpure true in
set_option trace.Compiler.simpleGround true in
def emptyByteArrayTest : ByteArray := ⟨#[]⟩
Reference in a new issue View git blame Copy permalink