X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Flexicon%2FlexiconAst.ml;h=65bb7ce64657b7a805af49feb64259175972f8b1;hb=b8f54b66890a55cfc255fa1df3e40fe60b78ee15;hp=aed4b0b152365ea8ee0e191f96ab1aabfbee5bda;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/lexicon/lexiconAst.ml b/components/lexicon/lexiconAst.ml
index aed4b0b15..65bb7ce64 100644
--- a/components/lexicon/lexiconAst.ml
+++ b/components/lexicon/lexiconAst.ml
@@ -36,10 +36,12 @@ type alias_spec =
 
 (** To be increased each time the command type below changes, used for "safe"
  * marshalling *)
-let magic = 5
+let magic = 6
+
+type inclusion_mode = WithPreferences | WithoutPreferences (* aka aliases *)
 
 type command =
-  | Include of loc * string
+  | Include of loc * string * inclusion_mode * string (* _,buri,_,path *)
   | Alias of loc * alias_spec
       (** parameters, name, type, fields *) 
   | Notation of loc * direction option * CicNotationPt.term * Gramext.g_assoc *