diff options
| author | Son Ho | 2024-06-13 22:04:13 +0200 |
|---|---|---|
| committer | Son Ho | 2024-06-13 22:04:13 +0200 |
| commit | b3dd78ff4c8785b6ff9bce9927df90f8c78a9109 (patch) | |
| tree | 9580a6fa52e696a68d1a586e79b2b823a5c8a164 /backends/lean/Base/Progress/Base.lean | |
| parent | 234fa36da87b672397f96098bcf832d869f2cfbb (diff) | |
Update Lean to v4.9.0-rc1
Diffstat (limited to '')
| -rw-r--r-- | backends/lean/Base/Progress/Base.lean | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/backends/lean/Base/Progress/Base.lean b/backends/lean/Base/Progress/Base.lean index 03c80a42..0e46737f 100644 --- a/backends/lean/Base/Progress/Base.lean +++ b/backends/lean/Base/Progress/Base.lean @@ -1,5 +1,4 @@ import Lean -import Std.Lean.HashSet import Base.Utils import Base.Primitives.Base import Base.Extensions @@ -111,7 +110,7 @@ section Methods -- Collect all the free variables in the arguments let allArgsFVars ← args.foldlM (fun hs arg => getFVarIds arg hs) HashSet.empty -- Check if they intersect the fvars we introduced for the existentially quantified variables - let evarsSet : HashSet FVarId := HashSet.ofArray (evars.map (fun (x : Expr) => x.fvarId!)) + let evarsSet : HashSet FVarId := HashSet.empty.insertMany (evars.map (fun (x : Expr) => x.fvarId!)) let filtArgsFVars := allArgsFVars.toArray.filter (fun var => evarsSet.contains var) if filtArgsFVars.isEmpty then pure () else |