From 62881816565add3cb5cefe35c07c9963b6cc4cf9 Mon Sep 17 00:00:00 2001
From: Leonardo de Moura <leonardo@microsoft.com>
Date: Wed, 5 Oct 2022 05:01:42 -0700
Subject: [PATCH] chore: fix test

---
 tests/lean/lcnfTypes.lean.expected.out | 32 ++++++++++++++------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/tests/lean/lcnfTypes.lean.expected.out b/tests/lean/lcnfTypes.lean.expected.out
index 41979b5f95..41cfee30da 100644
--- a/tests/lean/lcnfTypes.lean.expected.out
+++ b/tests/lean/lcnfTypes.lean.expected.out
@@ -1,5 +1,5 @@
 Vec.zip : {α : Type u_1} → {n : Nat} → {β : Type u_2} → Vec α ◾ → Vec β ◾ → Vec (α × β) ◾
-mkConstTuple : {α : Type u_1} → α → Nat → ⊤
+mkConstTuple : {α : Type u_1} → α → Nat → ◾
 Fin.add : {n : Nat} → Fin ◾ → Fin ◾ → Fin ◾
 Vec.cons : {α : Type u} → {n : Nat} → α → Vec α ◾ → Vec α ◾
 Eq.rec : {α : Sort u_1} → {a : α} → {motive : α → ◾ → Sort u} → motive ◾ ◾ → {a : α} → ◾ → motive ◾ ◾
@@ -7,13 +7,13 @@ GetElem.getElem : {cont : Type u} →
   {idx : Type v} →
     {elem : Type w} → {dom : cont → idx → Prop} → [self : GetElem cont idx elem ◾] → cont → idx → ◾ → elem
 Term.constFold : {ctx : List Ty} → {ty : Ty} → Term ◾ ◾ → Term ◾ ◾
-Term.denote : {ctx : List Ty} → {ty : Ty} → Term ◾ ◾ → HList ⊤ ◾ → ⊤
+Term.denote : {ctx : List Ty} → {ty : Ty} → Term ◾ ◾ → HList ◾ ◾ → ◾
 HList.get : {α : Type u_1} → {β : α → Type u_2} → {is : List α} → {i : α} → HList β ◾ → Member ◾ ◾ → β ◾
 Member.head : {α : Type u_1} → {a : α} → {as : List α} → Member ◾ ◾
 Ty.denote : Ty → Type
 MonadControl.liftWith : {m : Type u → Type v} →
-  {n : Type u → Type w} → [self : MonadControl m n] → {α : Type u} → (({β : Type u} → n β → m ⊤) → m α) → n α
-MonadControl.restoreM : {m : Type u → Type v} → {n : Type u → Type w} → [self : MonadControl m n] → {α : Type u} → m ⊤ → n α
+  {n : Type u → Type w} → [self : MonadControl m n] → {α : Type u} → (({β : Type u} → n β → m ◾) → m α) → n α
+MonadControl.restoreM : {m : Type u → Type v} → {n : Type u → Type w} → [self : MonadControl m n] → {α : Type u} → m ◾ → n α
 Decidable.casesOn : {p : Prop} → {motive : Decidable ◾ → Sort u} → Decidable ◾ → (◾ → motive ◾) → (◾ → motive ◾) → motive ◾
 Lean.getConstInfo : {m : Type → Type} →
   [inst : Monad m] → [inst : Lean.MonadEnv m] → [inst : Lean.MonadError m] → Lean.Name → m Lean.ConstantInfo
@@ -35,21 +35,23 @@ Lean.Elab.Term.elabTerm : Lean.Syntax →
               ST.Ref PUnit Lean.Meta.State →
                 Lean.Core.Context → ST.Ref PUnit Lean.Core.State → PUnit → EStateM.Result Lean.Exception PUnit Lean.Expr
 Nat.add : Nat → Nat → Nat
-Magma.mul : Magma → ⊤ → ⊤ → ⊤
-weird1 : Bool → ⊤
+Magma.mul : Magma → ◾ → ◾ → ◾
+weird1 : Bool → ◾
 
-lamAny₁ : Bool → Monad.{0, 0} lcAny
-lamAny₂ : Bool → Monad.{0, 0} lcAny
+lamAny₁ : Bool → Monad.{0, 0} lcErased
+lamAny₂ : Bool → Monad.{0, 0} lcErased
 
 Term.constFold : List Ty → Ty → Term lcErased lcErased → Term lcErased lcErased
-Term.denote : List Ty → Ty → Term lcErased lcErased → HList Ty lcAny lcErased → lcAny
-HList.get : lcErased → lcErased → List lcAny → lcAny → HList lcAny lcAny lcErased → Member lcAny lcErased lcErased → lcAny
-Member.head : lcErased → lcAny → List lcAny → Member lcAny lcErased lcErased
+Term.denote : List Ty → Ty → Term lcErased lcErased → HList Ty lcErased lcErased → lcErased
+HList.get : lcErased →
+  lcErased → List lcErased → lcErased → HList lcErased lcErased lcErased → Member lcErased lcErased lcErased → lcErased
+Member.head : lcErased → lcErased → List lcErased → Member lcErased lcErased lcErased
 Ty.denote : lcErased
-MonadControl.liftWith : lcErased → lcErased → MonadControl lcAny lcAny → lcErased → ((lcErased → lcAny → lcAny) → lcAny) → lcAny
-MonadControl.restoreM : lcErased → lcErased → MonadControl lcAny lcAny → lcErased → lcAny → lcAny
-Decidable.casesOn : lcErased → lcErased → Decidable lcErased → (lcErased → lcAny) → (lcErased → lcAny) → lcAny
-Lean.getConstInfo : lcErased → Monad lcAny → Lean.MonadEnv lcAny → Lean.MonadError lcAny → Lean.Name → lcAny
+MonadControl.liftWith : lcErased →
+  lcErased → MonadControl lcErased lcErased → lcErased → ((lcErased → lcErased → lcErased) → lcErased) → lcErased
+MonadControl.restoreM : lcErased → lcErased → MonadControl lcErased lcErased → lcErased → lcErased → lcErased
+Decidable.casesOn : lcErased → lcErased → Decidable lcErased → (lcErased → lcErased) → (lcErased → lcErased) → lcErased
+Lean.getConstInfo : lcErased → Monad lcErased → Lean.MonadEnv lcErased → Lean.MonadError lcErased → Lean.Name → lcErased
 Lean.Meta.instMonadMetaM : Monad lcErased
 Lean.Meta.inferType : Lean.Expr →
   Lean.Meta.Context →