X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Flexicon%2FlexiconAst.ml;h=0c588d189200d3eb55a0e124269683a361c6e84a;hb=a09f5b76d65deba858fbba1a8b6e8481702d2166;hp=9fb188d486bfd15cdbd177af975c47e67e4892ff;hpb=14d7eabdb425c4dbcda5de18fac0735fde5d176b;p=helm.git

diff --git a/helm/software/components/lexicon/lexiconAst.ml b/helm/software/components/lexicon/lexiconAst.ml
index 9fb188d48..0c588d189 100644
--- a/helm/software/components/lexicon/lexiconAst.ml
+++ b/helm/software/components/lexicon/lexiconAst.ml
@@ -27,7 +27,7 @@
 
 type direction = [ `LeftToRight | `RightToLeft ]
 
-type loc = Token.flocation
+type loc = Stdpp.location
 
 type alias_spec =
   | Ident_alias of string * string        (* identifier, uri *)
@@ -36,7 +36,7 @@ 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 *)
 
@@ -55,3 +55,8 @@ type command =
 (* composed magic: term + command magics. No need to change this value *)
 let magic = magic + 10000 * CicNotationPt.magic
 
+let description_of_alias =
+ function
+    Ident_alias (_,desc)
+  | Symbol_alias (_,_,desc)
+  | Number_alias (_,desc) -> desc