sdgoij/lean4
1
0
Fork 0
mirror of https://github.com/leanprover/lean4.git synced 2026-03-17 10:24:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: add missing pp-spaces in grind_pattern (#11686)

Browse Source 
This PR adds a pretty-printed space in `grind_pattern`.

[#lean4 > Some pretty printing quirks @
💬](https://leanprover.zulipchat.com/#narrow/channel/270676-lean4/topic/Some.20pretty.20printing.20quirks/near/563848793)

Co-authored-by: Kim Morrison <kim@tqft.net>
This commit is contained in:
damiano
2026-03-17 04:15:02 +00:00
committed by GitHub
parent e96b0ff39c
commit 6b604625f2
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Lean/Meta/Tactic/Grind/Parser.lean
View File

@@ -138,7 +138,7 @@ example : f b = f c → a ≤ f a → f (f a) ≤ f (f (f a)) := by
``` ```
-/ -/
@[builtin_command_parser] def grindPattern := leading_parser @[builtin_command_parser] def grindPattern := leading_parser
Term.attrKind >> "grind_pattern " >> optional ("[" >> ident >> "]") >> ident >> darrow >> sepBy1 termParser "," >> optional grindPatternCnstrs Term.attrKind >> "grind_pattern " >> optional ("[" >> ident >> "]") >> ident >> darrow >> sepBy1 termParser ", " >> optional grindPatternCnstrs
@[builtin_command_parser] def initGrindNorm := leading_parser @[builtin_command_parser] def initGrindNorm := leading_parser
"init_grind_norm " >> many ident >> "| " >> many ident "init_grind_norm " >> many ident >> "| " >> many ident

5
tests/elab/ppSpaces.lean
View File

@@ -87,4 +87,9 @@ example : True := by {
trivial trivial
} }
/-- info: grind_pattern A => B, C -/
#guard_msgs in
#pp
grind_pattern A => B, C
end Damiano1 end Damiano1