X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fcic_disambiguation%2FdisambiguateTypes.ml;h=79388f8198d3e20372a6f19c6ad17d55d0e0837a;hb=eeca603891f29cf9d5c103b82edae0f7116cee7b;hp=4a2e43a205dc88b25c6be961955246ca19dd5050;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/cic_disambiguation/disambiguateTypes.ml b/components/cic_disambiguation/disambiguateTypes.ml
index 4a2e43a20..79388f819 100644
--- a/components/cic_disambiguation/disambiguateTypes.ml
+++ b/components/cic_disambiguation/disambiguateTypes.ml
@@ -105,9 +105,10 @@ module type Callbacks =
       title:string -> msg:string -> id:string -> UriManager.uri list ->
       UriManager.uri list
     val interactive_interpretation_choice:
-      (string * string) list list -> int list
+      string -> int ->
+      (Token.flocation list * string * string) list list -> int list
     val input_or_locate_uri:
-      title:string -> ?id:string -> unit -> UriManager.uri
+      title:string -> ?id:string -> unit -> UriManager.uri option
   end
 
 let string_of_domain_item = function