fix: missing withMVarContext
This commit is contained in:
parent
50abd28f6e
commit
c5316d5cf3
1 changed files with 1 additions and 1 deletions
|
|
@ -463,7 +463,7 @@ match p.vars with
|
|||
| x :: xs => do
|
||||
subgoals ← cases p.mvarId x.fvarId!;
|
||||
subgoals.foldlM
|
||||
(fun (s : State) subgoal => do
|
||||
(fun (s : State) subgoal => withMVarContext subgoal.mvarId do
|
||||
let subst := subgoal.subst;
|
||||
let fields := subgoal.fields.toList;
|
||||
let newVars := fields ++ xs;
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue