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

feat: admit goal when case .. => .. fails

Browse source
This commit is contained in:
Leonardo de Moura 2020-11-03 16:04:56 -08:00
parent 6466bbbaf9
commit 730b6aa3a3
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/Lean/Elab/Tactic/Basic.lean
View file

@ -429,7 +429,7 @@ private def findTag? (gs : List MVarId) (tag : Name) : TacticM (Option MVarId) :
let savedTag ← liftM $ getMVarTag g
liftM $ setMVarTag g Name.anonymous
try
evalTactic tac
closeUsingOrAdmit tac
finally
liftM $ setMVarTag g savedTag
done