From 0920a5755553774f5b41d7603318ea997ecbdca5 Mon Sep 17 00:00:00 2001 From: Andrea Asperti Date: Fri, 8 Jan 2010 08:10:20 +0000 Subject: [PATCH] Support for the new auto tactics // --- helm/software/components/grafite_parser/grafiteParser.ml | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml index b35245f90..68299b8ea 100644 --- a/helm/software/components/grafite_parser/grafiteParser.ml +++ b/helm/software/components/grafite_parser/grafiteParser.ml @@ -238,6 +238,7 @@ EXTEND using: [ [ using = OPT [ IDENT "using"; t = tactic_term -> t ] -> using ] ]; ntactic: [ [ IDENT "napply"; t = tactic_term -> G.NApply (loc, t) + | IDENT "napplyS"; t = tactic_term -> G.NSmartApply (loc, t) | IDENT "nassert"; seqs = LIST0 [ hyps = LIST0 @@ -249,6 +250,9 @@ EXTEND concl = tactic_term -> (List.rev hyps,concl) ] -> G.NAssert (loc, seqs) | IDENT "nauto"; params = auto_params -> G.NAuto (loc, params) + | SYMBOL "/"; num = OPT NUMBER ; SYMBOL "/" -> + let depth = match num with Some n -> n | None -> "1" in + G.NAuto (loc, ([],["slir","";"depth",depth])) | IDENT "ncases"; what = tactic_term ; where = pattern_spec -> G.NCases (loc, what, where) | IDENT "nchange"; what = pattern_spec; "with"; with_what = tactic_term -> -- 2.39.2