X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FmatitaExcPp.mli;h=4a40f6c242afc02a949dbbdbae4e6f16f775e976;hb=88a68a9c334646bc17314d5327cd3b790202acd6;hp=419b04c7332bb2ca09f16cb5bb863c07c5b46f12;hpb=1df136280cced19d29b62451c8c03948070259d8;p=helm.git

diff --git a/helm/software/matita/matitaExcPp.mli b/helm/software/matita/matitaExcPp.mli
index 419b04c73..4a40f6c24 100644
--- a/helm/software/matita/matitaExcPp.mli
+++ b/helm/software/matita/matitaExcPp.mli
@@ -26,8 +26,12 @@
 val compact_disambiguation_errors :
   bool ->
   (int * ((Stdpp.location list * string * string) list *
-   (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list *
-   Stdpp.location option * string Lazy.t * bool) list) list ->
-  (Stdpp.location option * (int list * (int list * (Stdpp.location list * string * string) list * (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list) list * string Lazy.t * bool) list) list
+   (DisambiguateTypes.domain_item * string) list *
+   (Stdpp.location * string) Lazy.t * bool) list) list ->
+  (Stdpp.location * 
+    (int list * 
+     (int list * (Stdpp.location list * string * string) list * 
+     (DisambiguateTypes.domain_item * string) list) list * 
+    string Lazy.t * bool) list) list
 
 val to_string: exn -> Stdpp.location option * string