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

fix: fixes #1558

Browse source
This commit is contained in:
Leonardo de Moura 2022-09-09 15:27:51 -07:00
parent 353eb0dd27
commit f1c150228b
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Elab/Tactic/Conv/Change.lean
View file

@ -11,7 +11,7 @@ open Meta
@[builtinTactic Lean.Parser.Tactic.Conv.change] def evalChange : Tactic := fun stx => do
match stx with
| `(conv| change $e) => do
| `(conv| change $e) => withMainContext do
let lhs ← getLhs
let mvarCounterSaved := (← getMCtx).mvarCounter
let r ← elabTermEnsuringType e (← inferType lhs)

5
tests/lean/run/1558.lean Normal file
View file

@ -0,0 +1,5 @@
example : (λ (u : Nat) => u + 0) = id :=by
conv =>
lhs
intro u
change u