X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Flexicon%2FlexiconAst.ml;h=0c588d189200d3eb55a0e124269683a361c6e84a;hb=ccf5878f2a2ec7f952f140e162391708a740517b;hp=5a09d590a86c9c66e5affa57559b88eea5a94b63;hpb=683978a2627cf1ce15673360f26806593d22f7b5;p=helm.git

diff --git a/helm/software/components/lexicon/lexiconAst.ml b/helm/software/components/lexicon/lexiconAst.ml
index 5a09d590a..0c588d189 100644
--- a/helm/software/components/lexicon/lexiconAst.ml
+++ b/helm/software/components/lexicon/lexiconAst.ml
@@ -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