diff options
| author | Son Ho | 2024-06-12 14:46:38 +0200 |
|---|---|---|
| committer | Son Ho | 2024-06-12 14:46:38 +0200 |
| commit | f5deac2b0f42e2a87fc26da50c902729e0ed1039 (patch) | |
| tree | d5d0776dbfe36bed45fe91b07078b44ca4429eab /backends | |
| parent | 191927e2fd21cf94501ac4f4968b09d110043d33 (diff) | |
Slightly simplify the progress tactic
Diffstat (limited to 'backends')
| -rw-r--r-- | backends/lean/Base/Progress/Progress.lean | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/backends/lean/Base/Progress/Progress.lean b/backends/lean/Base/Progress/Progress.lean index 39a48044..03d464d7 100644 --- a/backends/lean/Base/Progress/Progress.lean +++ b/backends/lean/Base/Progress/Progress.lean @@ -58,17 +58,13 @@ def progressWith (fExpr : Expr) (th : TheoremOrLocal) We also make sure that all the meta variables which appear in the function arguments have been instantiated -/ - let env ← getEnv let thTy ← do match th with | .Theorem thName => - let thDecl := env.constants.find! thName - -- We have to introduce fresh meta-variables for the universes already - let ul : List (Name × Level) ← - thDecl.levelParams.mapM (λ x => do pure (x, ← mkFreshLevelMVar)) - let ulMap : HashMap Name Level := HashMap.ofList ul - let thTy := thDecl.type.instantiateLevelParamsCore (λ x => ulMap.find! x) - pure thTy + -- Lookup the theorem and introduce fresh meta-variables for the universes + let th ← mkConstWithFreshMVarLevels thName + -- Retrieve the type + inferType th | .Local asmDecl => pure asmDecl.type trace[Progress] "Looked up theorem/assumption type: {thTy}" -- TODO: the tactic fails if we uncomment withNewMCtxDepth |