Moved paramodulation inside tactics.

[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 90d1898ea412a372232f849bead2ddd7756e269f..e480efd34f1cbfbc77656716ee0f4f9ff0b59f66 100644 (file)
--- a/helm/ocaml/grafite_parser/grafiteParser.ml
+++ b/helm/ocaml/grafite_parser/grafiteParser.ml
@@ -66,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