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

diff --git a/components/lexicon/lexiconAst.ml b/components/lexicon/lexiconAst.ml
index aed4b0b15..50f0061ee 100644
--- a/components/lexicon/lexiconAst.ml
+++ b/components/lexicon/lexiconAst.ml
@@ -38,8 +38,10 @@ type alias_spec =
  * marshalling *)
 let magic = 5
 
+type inclusion_mode = WithPreferences | WithoutPreferences (* aka aliases *)
+
 type command =
-  | Include of loc * string
+  | Include of loc * string * inclusion_mode
   | Alias of loc * alias_spec
       (** parameters, name, type, fields *) 
   | Notation of loc * direction option * CicNotationPt.term * Gramext.g_assoc *