Skip to content

Commit 1f02964

Browse files
committed
chore: toLocalInstances
1 parent f1719db commit 1f02964

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/Lean/Meta/Basic.lean

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1869,7 +1869,7 @@ def mapLetDecl [MonadLiftT MetaM n] (name : Name) (type : Expr) (val : Expr) (k
18691869
withLetDecl name type val (nondep := nondep) (kind := kind) fun x => do
18701870
mkLetFVars (usedLetOnly := usedLetOnly) (generalizeNondepLet := false) #[x] (← k x)
18711871

1872-
def mkLocalInstances (lctx : LocalContext) : MetaM LocalInstances := do
1872+
def toLocalInstances (lctx : LocalContext) : MetaM LocalInstances := do
18731873
let mut localInstances := #[]
18741874
for decl in lctx do
18751875
unless decl.isImplementationDetail do
@@ -1878,7 +1878,7 @@ def mkLocalInstances (lctx : LocalContext) : MetaM LocalInstances := do
18781878
return localInstances
18791879

18801880
def withPopulatingLocalInstances {α} (k : MetaM α) : MetaM α := do
1881-
let localInstances ← mkLocalInstances (← getLCtx)
1881+
let localInstances ← toLocalInstances (← getLCtx)
18821882
withReader ({ · with localInstances }) k
18831883

18841884
def withLocalInstancesImp (decls : List LocalDecl) (k : MetaM α) : MetaM α := do

0 commit comments

Comments
 (0)