max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: add auxiliary function

Browse source
This commit is contained in:
Leonardo de Moura 2020-09-13 13:13:34 -07:00
parent fd7dca9bc1
commit d6a3e22992
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Lean/MetavarContext.lean
View file

@ -1090,6 +1090,9 @@ let (e, s) := LevelMVarToParam.main e { paramNamePrefix := paramNamePrefix, alre
nextParamIdx := s.nextParamIdx,
expr := e }
def getExprAssignmentDomain (mctx : MetavarContext) : Array MVarId :=
mctx.eAssignment.foldl (fun a mvarId _ => Array.push a mvarId) #[]
end MetavarContext
class MonadMCtx (m : Type → Type) :=