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

feat: add quot_precheck Lean.Parser.Term.explicit

Browse source
This commit is contained in:
Jon Eugster 2023-02-07 16:29:38 +01:00 • committed by Sebastian Ullrich
parent 9d013ba3f5
commit 07bd2a8488
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Lean/Elab/Quotation/Precheck.lean
View file

@ -123,6 +123,11 @@ private def isSectionVariable (e : Expr) : TermElabM Bool := do
| `(($e :)) => precheck e
| _ => throwUnsupportedSyntax
@[builtin_quot_precheck Lean.Parser.Term.explicit] def precheckExplicit : Precheck
| `(@ $id) => do
precheck id
| _ => throwUnsupportedSyntax
@[builtin_quot_precheck choice] def precheckChoice : Precheck := fun stx => do
let checks ← stx.getArgs.mapM (_root_.observing ∘ precheck)
let fails := checks.zip stx.getArgs |>.filterMap fun