X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fgrafite%2FgrafiteAst.ml;h=bc001d173c4b71575b686c78cf470d15be18fa1b;hb=71c124b4f171059ec3d29d5e53079000773ec851;hp=0db31e94dd9e104cc754196796353c7f1eee0cec;hpb=237f4bfbb6d79b38e9417b776495b068b54aff6a;p=helm.git

diff --git a/matitaB/components/grafite/grafiteAst.ml b/matitaB/components/grafite/grafiteAst.ml
index 0db31e94d..bc001d173 100644
--- a/matitaB/components/grafite/grafiteAst.ml
+++ b/matitaB/components/grafite/grafiteAst.ml
@@ -32,7 +32,7 @@ type loc = Stdpp.location
 type npattern = 
  NotationPt.term option * (string * NotationPt.term) list * NotationPt.term option
 
-type auto_params = NotationPt.term list option * (string*string) list
+type auto_params = (bool * NotationPt.term list) option * (string*string) list
 
 type ntactic =
    | NApply of loc * NotationPt.term
@@ -105,7 +105,7 @@ type command =
   | NCoercion of loc * string *
       (NotationPt.term * NotationPt.term *
         (string * NotationPt.term) * NotationPt.term) option
-  | NQed of loc
+  | NQed of loc * bool
   (* ex lexicon commands *)
   | Alias of loc * alias_spec
       (** parameters, name, type, fields *)