added links to svn tarballs

[helm.git] / helm / ocaml / grafite_parser / grafiteParser.ml

diff --git a/helm/ocaml/grafite_parser/grafiteParser.ml b/helm/ocaml/grafite_parser/grafiteParser.ml
index d32eb32656313b90df47f9eef3c0c170f88594e0..e480efd34f1cbfbc77656716ee0f4f9ff0b59f66 100644 (file)
--- a/helm/ocaml/grafite_parser/grafiteParser.ml
+++ b/helm/ocaml/grafite_parser/grafiteParser.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 open Printf
 
 module Ast = CicNotationPt
@@ -64,7 +66,8 @@ EXTEND
     [ tactic_terms = LIST1 tactic_term SEP SYMBOL "," -> tactic_terms ]
   ];
   reduction_kind: [
-    [ IDENT "normalize" -> `Normalize
+    [ IDENT "demodulate" -> `Demodulate
+    | IDENT "normalize" -> `Normalize
     | IDENT "reduce" -> `Reduce
     | IDENT "simplify" -> `Simpl
     | IDENT "unfold"; t = OPT term -> `Unfold t