fix tests

Author: Kha

tests/lean/run/emptyLcnf.lean

@@ -12,7 +12,8 @@ trace: [Compiler.result] size: 0
       ⊥
 ---
 trace: [Compiler.result] size: 5
-    def _eval._lam_0 _x.1 _x.2 _y.3 _y.4 _y.5 _y.6 _y.7 _y.8 _y.9 : EStateM.Result Lean.Exception lcRealWorld PUnit :=
+    def _private.lean.run.emptyLcnf.0._eval._lam_0 _x.1 _x.2 _y.3 _y.4 _y.5 _y.6 _y.7 _y.8 _y.9 : EStateM.Result
+      Lean.Exception lcRealWorld PUnit :=
       let _x.10 := Lean.Compiler.compile _x.1 _y.7 _y.8 _y.9;
       cases _x.10 : EStateM.Result Lean.Exception lcRealWorld PUnit
       | EStateM.Result.ok a.11 a.12 =>
@@ -21,34 +22,34 @@ trace: [Compiler.result] size: 5
       | EStateM.Result.error a.14 a.15 =>
         return _x.10
 [Compiler.result] size: 1
-    def _eval._closed_0 : String :=
+    def _private.lean.run.emptyLcnf.0._eval._closed_0 : String :=
       let _x.1 := "f";
       return _x.1
 [Compiler.result] size: 2
-    def _eval._closed_1 : Lean.Name :=
-      let _x.1 := _eval._closed_0;
+    def _private.lean.run.emptyLcnf.0._eval._closed_1 : Lean.Name :=
+      let _x.1 := _eval._closed_0.2;
       let _x.2 := Lean.Name.mkStr1 _x.1;
       return _x.2
 [Compiler.result] size: 2
-    def _eval._closed_2 : Array Lean.Name :=
+    def _private.lean.run.emptyLcnf.0._eval._closed_2 : Array Lean.Name :=
       let _x.1 := 1;
       let _x.2 := Array.mkEmpty ◾ _x.1;
       return _x.2
 [Compiler.result] size: 3
-    def _eval._closed_3 : Array Lean.Name :=
-      let _x.1 := _eval._closed_1;
-      let _x.2 := _eval._closed_2;
+    def _private.lean.run.emptyLcnf.0._eval._closed_3 : Array Lean.Name :=
+      let _x.1 := _eval._closed_1.2;
+      let _x.2 := _eval._closed_2.2;
       let _x.3 := Array.push ◾ _x.2 _x.1;
       return _x.3
 [Compiler.result] size: 8
-    def _eval a.1 a.2 a.3 : EStateM.Result Lean.Exception lcRealWorld PUnit :=
-      let _x.4 := _eval._closed_0;
-      let _x.5 := _eval._closed_1;
+    def _private.lean.run.emptyLcnf.0._eval a.1 a.2 a.3 : EStateM.Result Lean.Exception lcRealWorld PUnit :=
+      let _x.4 := _eval._closed_0.2;
+      let _x.5 := _eval._closed_1.2;
       let _x.6 := 1;
-      let _x.7 := _eval._closed_2;
-      let _x.8 := _eval._closed_3;
+      let _x.7 := _eval._closed_2.2;
+      let _x.8 := _eval._closed_3.2;
       let _x.9 := PUnit.unit;
-      let _f.10 := _eval._lam_0 _x.8 _x.9;
+      let _f.10 := _eval._lam_0.2 _x.8 _x.9;
       let _x.11 := Lean.Elab.Command.liftTermElabM._redArg _f.10 a.1 a.2 a.3;
       return _x.11
 -/

tests/lean/run/erased.lean

@@ -26,7 +26,7 @@ trace: [Compiler.result] size: 1
       return _x.1
 ---
 trace: [Compiler.result] size: 5
-    def _eval._lam_0 (_x.1 : Array
+    def _private.lean.run.erased.0._eval._lam_0 (_x.1 : Array
        Lean.Name) (_x.2 : PUnit) (_y.3 : Lean.Elab.Term.Context) (_y.4 : lcAny) (_y.5 : Lean.Meta.Context) (_y.6 : lcAny) (_y.7 : Lean.Core.Context) (_y.8 : lcAny) (_y.9 : lcRealWorld) : EStateM.Result
       Lean.Exception lcRealWorld PUnit :=
       let _x.10 : EStateM.Result Lean.Exception lcRealWorld PUnit := compile _x.1 _y.7 _y.8 _y.9;
@@ -37,46 +37,46 @@ trace: [Compiler.result] size: 5
       | EStateM.Result.error (a.14 : Lean.Exception) (a.15 : lcRealWorld) =>
         return _x.10
 [Compiler.result] size: 1
-    def _eval._closed_0 : String :=
+    def _private.lean.run.erased.0._eval._closed_0 : String :=
       let _x.1 : String := "Erased";
       return _x.1
 [Compiler.result] size: 1
-    def _eval._closed_1 : String :=
+    def _private.lean.run.erased.0._eval._closed_1 : String :=
       let _x.1 : String := "mk";
       return _x.1
 [Compiler.result] size: 3
-    def _eval._closed_2 : Lean.Name :=
-      let _x.1 : String := _eval._closed_1;
-      let _x.2 : String := _eval._closed_0;
+    def _private.lean.run.erased.0._eval._closed_2 : Lean.Name :=
+      let _x.1 : String := _eval._closed_1.2;
+      let _x.2 : String := _eval._closed_0.2;
       let _x.3 : Lean.Name := Lean.Name.mkStr2 _x.2 _x.1;
       return _x.3
 [Compiler.result] size: 2
-    def _eval._closed_3 : Array Lean.Name :=
+    def _private.lean.run.erased.0._eval._closed_3 : Array Lean.Name :=
       let _x.1 : Nat := 1;
       let _x.2 : Array Lean.Name := Array.mkEmpty ◾ _x.1;
       return _x.2
 [Compiler.result] size: 3
-    def _eval._closed_4 : Array Lean.Name :=
-      let _x.1 : Lean.Name := _eval._closed_2;
-      let _x.2 : Array Lean.Name := _eval._closed_3;
+    def _private.lean.run.erased.0._eval._closed_4 : Array Lean.Name :=
+      let _x.1 : Lean.Name := _eval._closed_2.2;
+      let _x.2 : Array Lean.Name := _eval._closed_3.2;
       let _x.3 : Array Lean.Name := Array.push ◾ _x.2 _x.1;
       return _x.3
 [Compiler.result] size: 9
-    def _eval (a.1 : Lean.Elab.Command.Context) (a.2 : lcAny) (a.3 : lcRealWorld) : EStateM.Result Lean.Exception
-      lcRealWorld PUnit :=
-      let _x.4 : String := _eval._closed_0;
-      let _x.5 : String := _eval._closed_1;
-      let _x.6 : Lean.Name := _eval._closed_2;
+    def _private.lean.run.erased.0._eval (a.1 : Lean.Elab.Command.Context) (a.2 : lcAny) (a.3 : lcRealWorld) : EStateM.Result
+      Lean.Exception lcRealWorld PUnit :=
+      let _x.4 : String := _eval._closed_0.2;
+      let _x.5 : String := _eval._closed_1.2;
+      let _x.6 : Lean.Name := _eval._closed_2.2;
       let _x.7 : Nat := 1;
-      let _x.8 : Array Lean.Name := _eval._closed_3;
-      let _x.9 : Array Lean.Name := _eval._closed_4;
+      let _x.8 : Array Lean.Name := _eval._closed_3.2;
+      let _x.9 : Array Lean.Name := _eval._closed_4.2;
       let _x.10 : PUnit := PUnit.unit;
       let _f.11 : Lean.Elab.Term.Context →
         lcAny →
           Lean.Meta.Context →
             lcAny →
               Lean.Core.Context →
-                lcAny → lcRealWorld → EStateM.Result Lean.Exception lcRealWorld PUnit := _eval._lam_0 _x.9 _x.10;
+                lcAny → lcRealWorld → EStateM.Result Lean.Exception lcRealWorld PUnit := _eval._lam_0.2 _x.9 _x.10;
       let _x.12 : EStateM.Result Lean.Exception lcRealWorld
         PUnit := Lean.Elab.Command.liftTermElabM._redArg _f.11 a.1 a.2 a.3;
       return _x.12