fix: elab info for decreasing_by

This commit is contained in:
Sebastian Ullrich 2022-05-16 10:20:49 +02:00
parent bfb9dc0697
commit 46df02877d
3 changed files with 15 additions and 1 deletions

View file

@ -28,7 +28,10 @@ private def mkDecreasingProof (decreasingProp : Expr) (decrTactic? : Option Synt
let mvarId ← cleanup mvarId
match decrTactic? with
| none => applyDefaultDecrTactic mvarId
| some decrTactic => Term.runTactic mvarId decrTactic
| some decrTactic =>
-- make info from `runTactic` available
pushInfoTree (.hole mvarId)
Term.runTactic mvarId decrTactic
instantiateMVars mvar
private partial def replaceRecApps (recFnName : Name) (fixedPrefixSize : Nat) (decrTactic? : Option Syntax) (F : Expr) (e : Expr) : TermElabM Expr := do

View file

@ -155,3 +155,8 @@ example : Nat → Nat → Nat := by
--v textDocument/definition
exact x
--^ textDocument/hover
def g (n : Nat) : Nat := g 0
termination_by g n => n
decreasing_by have n' := n; admit
--^ textDocument/hover

View file

@ -221,3 +221,9 @@ null
{"range":
{"start": {"line": 155, "character": 8}, "end": {"line": 155, "character": 9}},
"contents": {"value": "```lean\nx : Nat\n```", "kind": "markdown"}}
{"textDocument": {"uri": "file://hover.lean"},
"position": {"line": 160, "character": 25}}
{"range":
{"start": {"line": 160, "character": 25},
"end": {"line": 160, "character": 26}},
"contents": {"value": "```lean\nn : Nat\n```", "kind": "markdown"}}