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

fix: using incorrect context for withDefault

Browse source
This commit is contained in:
Leonardo de Moura 2019-12-29 10:04:44 -08:00
parent 02ddbfa7da
commit c14ded6984
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Init/Lean/Elab/Term.lean
View file

@ -605,7 +605,7 @@ s ← get;
let len := s.syntheticMVars.length;
newSyntheticMVars ← s.syntheticMVars.filterM $ fun mvarDecl =>
match mvarDecl.kind with
| SyntheticMVarKind.withDefault defaultVal => do
| SyntheticMVarKind.withDefault defaultVal => withMVarContext mvarDecl.mvarId $ do
val ← instantiateMVars mvarDecl.ref (mkMVar mvarDecl.mvarId);
when val.getAppFn.isMVar $
unlessM (isDefEq mvarDecl.ref val defaultVal) $