feat: add FVarSubst.domain
This commit is contained in:
parent
252ef7345f
commit
ad53983e35
1 changed files with 3 additions and 0 deletions
|
|
@ -63,6 +63,9 @@ else oldS.map.fold
|
|||
| some fvarId'' => m.insert fvarId fvarId'')
|
||||
newS
|
||||
|
||||
def domain (s : FVarSubst) : List FVarId :=
|
||||
s.map.fold (fun r k v => k :: r) []
|
||||
|
||||
end FVarSubst
|
||||
end Meta
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue