X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgrafite_parser%2FgrafiteDisambiguate.ml;h=f5ea66f2f6883e06a840744579277817577fe32f;hb=b555e6b8c27c765a4611dda9528963ebff116412;hp=4be748460e26691101d2be8bf9ba3dfff4b600a7;hpb=93703370bfac25b4d342278388f54cc5e27cd531;p=helm.git

diff --git a/helm/ocaml/grafite_parser/grafiteDisambiguate.ml b/helm/ocaml/grafite_parser/grafiteDisambiguate.ml
index 4be748460..f5ea66f2f 100644
--- a/helm/ocaml/grafite_parser/grafiteDisambiguate.ml
+++ b/helm/ocaml/grafite_parser/grafiteDisambiguate.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 exception BaseUriNotSetYet
 
 let singleton = function
@@ -79,6 +81,7 @@ let disambiguate_reduction_kind lexicon_status_ref = function
   | `Unfold (Some t) ->
       let t = disambiguate_lazy_term lexicon_status_ref t in
       `Unfold (Some t)
+  | `Demodulate
   | `Normalize
   | `Reduce
   | `Simpl