fix: missing withMVarContext

This commit is contained in:
Leonardo de Moura 2020-08-14 12:52:51 -07:00
parent 50abd28f6e
commit c5316d5cf3

View file

@ -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;