X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.ml;h=68299b8ea72f26042223058893dbdfacc3c3f421;hb=0920a5755553774f5b41d7603318ea997ecbdca5;hp=2914a8906ae47e1670d9b57a89c0d3db1ef7a002;hpb=2dd6e8f11fa3ac2995f326ecb742d9b4e8948fce;p=helm.git

diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml
index 2914a8906..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 -> 
@@ -478,6 +482,8 @@ EXTEND
 ];
   auto_fixed_param: [
    [ IDENT "paramodulation"
+   | IDENT "fast_paramod"
+   | IDENT "slir"
    | IDENT "depth"
    | IDENT "width"
    | IDENT "size"