1 parent 0d5c52b commit d024cd1Copy full SHA for d024cd1
1 file changed
tests/elab/grind_param_syntax.lean
@@ -2,21 +2,16 @@ module
2
import Lean
3
4
/-!
5
-Check that sharing modifier parsers preserves typed parameter-list splices and anonymous
6
-modifier quotations (#15116).
+Check that sharing modifier parsers preserves anonymous modifier quotations (#15116).
7
-/
8
9
open Lean
10
11
-macro "lia_with " ps:Lean.Parser.Tactic.grindParam,* : tactic =>
12
- `(tactic| lia [$ps,*])
13
-
14
macro "lia_modified " mod:Lean.Parser.Attr.grindMod e:term : tactic => do
15
let p ← `(Lean.Parser.Tactic.grindParam| $mod $e:term)
16
`(tactic| lia [$p:grindParam])
17
18
private def bump (x : Int) := x + 1
19
private theorem bump_def (x : Int) : bump x = x + 1 := rfl
20
21
-example (x : Int) : x < bump x := by lia_with = bump_def
22
example (x : Int) : x < bump x := by lia_modified = bump_def
0 commit comments