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

feat: expand rewriteSeq macro

Browse source
This commit is contained in:
Leonardo de Moura 2020-09-17 12:32:22 -07:00
parent cf85080e7a
commit 3a6d579bbb
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Lean/Elab/Tactic/Rewrite.lean
View file

@ -11,10 +11,15 @@ namespace Elab
namespace Tactic
@[builtinMacro Lean.Parser.Tactic.rewriteSeq] def expandRewriteTactic : Macro :=
fun stx => throw $ Macro.Exception.error stx "WIP"
fun stx =>
let seq := ((stx.getArg 1).getArg 1).getArgs.getSepElems;
let loc := stx.getArg 2;
pure $ mkNullNode $ seq.map fun rwRule => Syntax.node `Lean.Parser.Tactic.rewrite #[stx.getArg 0, rwRule, loc]
@[builtinTactic «rewrite»] def evalRewrite : Tactic :=
fun stx => throwError "WIP"
fun stx => do
logInfo $ "WIP " ++ stx;
pure ()
end Tactic
end Elab