X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fcomponents%2Flexicon%2FlexiconTypes.ml;h=3aa2dadab344a166da168bcadc81bf39e1defd8a;hb=70aa6dc959dc1d49f751c183367c3b73393c938b;hp=5e6a0a326d91b51cc9c4c832a77f664c79a3f301;hpb=cee0c3ca597ebbff2250674c255ed1bc909521fb;p=helm.git

diff --git a/matita/components/lexicon/lexiconTypes.ml b/matita/components/lexicon/lexiconTypes.ml
index 5e6a0a326..3aa2dadab 100644
--- a/matita/components/lexicon/lexiconTypes.ml
+++ b/matita/components/lexicon/lexiconTypes.ml
@@ -27,12 +27,14 @@
 
 type lexicon_status = {
   aliases: GrafiteAst.alias_spec DisambiguateTypes.Environment.t;
-  multi_aliases: GrafiteAst.alias_spec list DisambiguateTypes.Environment.t
+  multi_aliases: GrafiteAst.alias_spec list DisambiguateTypes.Environment.t;
+  new_aliases: (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list
 }
 
 let initial_status = {
   aliases = DisambiguateTypes.Environment.empty;
-  multi_aliases = DisambiguateTypes.Environment.empty
+  multi_aliases = DisambiguateTypes.Environment.empty;
+  new_aliases = []
 }
 
 class type g_status =