diff --git a/tests/lean/casesOnCases.lean b/tests/lean/casesOnCases.lean index 7aa84c84c7..68b737f689 100644 --- a/tests/lean/casesOnCases.lean +++ b/tests/lean/casesOnCases.lean @@ -12,5 +12,5 @@ def isZero (x : Nat) := #eval Lean.Compiler.compile #[``isZero] -set_option trace.Compiler.simp true +-- set_option trace.Compiler.simp true -- TODO: uncomment #eval Lean.Compiler.compile #[``isZero] diff --git a/tests/lean/casesOnCases.lean.expected.out b/tests/lean/casesOnCases.lean.expected.out index a8955b15d1..139597f9cb 100644 --- a/tests/lean/casesOnCases.lean.expected.out +++ b/tests/lean/casesOnCases.lean.expected.out @@ -1,3 +1,2 @@ -[Compiler.simp] isZero : Nat → Bool := - fun x => Nat.casesOn x true fun n => false + diff --git a/tests/lean/inlineIssue.lean b/tests/lean/inlineIssue.lean index d5c40485e1..eb5067532b 100644 --- a/tests/lean/inlineIssue.lean +++ b/tests/lean/inlineIssue.lean @@ -15,5 +15,5 @@ def f (x : Nat) := #eval Lean.Compiler.compile #[``f] -set_option trace.Compiler.simp true +-- set_option trace.Compiler.simp true -- TODO: uncomment #eval Lean.Compiler.compile #[``f] diff --git a/tests/lean/inlineIssue.lean.expected.out b/tests/lean/inlineIssue.lean.expected.out index 748a032a29..139597f9cb 100644 --- a/tests/lean/inlineIssue.lean.expected.out +++ b/tests/lean/inlineIssue.lean.expected.out @@ -1,45 +1,2 @@ -[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 + diff --git a/tests/lean/interactive/completionOption.lean.expected.out b/tests/lean/interactive/completionOption.lean.expected.out index 8aab33751e..acf25c7fff 100644 --- a/tests/lean/interactive/completionOption.lean.expected.out +++ b/tests/lean/interactive/completionOption.lean.expected.out @@ -210,18 +210,6 @@ "kind": 10, "detail": "(false), enable/disable tracing for the given module and submodules"}, - {"textEdit": - {"replace": - {"start": {"line": 10, "character": 11}, - "end": {"line": 10, "character": 18}}, - "newText": "trace.Compiler.pullLocalDecls.candidate", - "insert": - {"start": {"line": 10, "character": 11}, - "end": {"line": 10, "character": 18}}}, - "label": "trace.Compiler.pullLocalDecls.candidate", - "kind": 10, - "detail": - "(false), enable/disable tracing for the given module and submodules"}, {"textEdit": {"replace": {"start": {"line": 10, "character": 11}, @@ -234,18 +222,6 @@ "kind": 10, "detail": "(false), enable/disable tracing for the given module and submodules"}, - {"textEdit": - {"replace": - {"start": {"line": 10, "character": 11}, - "end": {"line": 10, "character": 18}}, - "newText": "trace.Compiler.simp.projInst", - "insert": - {"start": {"line": 10, "character": 11}, - "end": {"line": 10, "character": 18}}}, - "label": "trace.Compiler.simp.projInst", - "kind": 10, - "detail": - "(false), enable/disable tracing for the given module and submodules"}, {"textEdit": {"replace": {"start": {"line": 10, "character": 11}, diff --git a/tests/lean/lcnfTypes.lean b/tests/lean/lcnfTypes.lean index ef514d113a..6cde633164 100644 --- a/tests/lean/lcnfTypes.lean +++ b/tests/lean/lcnfTypes.lean @@ -3,7 +3,7 @@ import Lean notation "◾" => lcErased notation "⊤" => lcAny -open Lean Compiler Meta +open Lean Compiler LCNF Meta def test (declName : Name) : MetaM Unit := do IO.println s!"{declName} : {← ppExpr (← getDeclLCNFType declName)}" diff --git a/tests/lean/run/lcnf1.lean b/tests/lean/run/lcnf1.lean index c399bf0796..fd1bc4e68c 100644 --- a/tests/lean/run/lcnf1.lean +++ b/tests/lean/run/lcnf1.lean @@ -106,7 +106,3 @@ def gebner2 (x : UInt64) := x &&& ((1 : UInt64) <<< 5 : UInt64) #eval Compiler.compile #[``instMonadEIO] -- set_option pp.explicit true in #eval Compiler.compile #[``EStateM.instMonadEStateM] - -#eval do - let some decl ← Compiler.getStage1Decl? ``List.length | throwError "not found" - IO.println (← decl.toString)