X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fdisambiguation%2FmultiPassDisambiguator.mli;h=4977a81d9cec60e9e370cce909d9164009bcb46f;hb=9e7df95a820cb91d075f1a20d703175da874596c;hp=0151f8d3dd7e8a8aef4d4a573b2622a519164424;hpb=93ce01455cfeba6b29e3c8a57e28f56559fb891d;p=helm.git

diff --git a/helm/software/components/disambiguation/multiPassDisambiguator.mli b/helm/software/components/disambiguation/multiPassDisambiguator.mli
index 0151f8d3d..4977a81d9 100644
--- a/helm/software/components/disambiguation/multiPassDisambiguator.mli
+++ b/helm/software/components/disambiguation/multiPassDisambiguator.mli
@@ -33,6 +33,7 @@ exception DisambiguationError of
 
 (** initially false; for debugging only (???) *)
 val only_one_pass: bool ref
+val use_library: bool ref
 
 val passes : unit -> (bool * [> `Library | `Mono | `Multi ] * bool) list
 
@@ -44,10 +45,7 @@ val disambiguate_thing:
   subst:'subst ->
   string_context_of_context:('context -> string option list) ->
   initial_ugraph:'ugraph ->
-  hint: 
-    ('metasenv -> 'raw_thing -> 'raw_thing) * 
-    (('refined_thing,'metasenv,'subst,'ugraph) Disambiguate.test_result ->
-       ('refined_thing,'metasenv,'subst,'ugraph) Disambiguate.test_result) ->
+  expty: 'refined_thing option ->
   mk_implicit:(bool -> 'alias) ->
   description_of_alias:('alias -> string) ->
   aliases:'alias DisambiguateTypes.Environment.t ->
@@ -72,7 +70,7 @@ val disambiguate_thing:
       'raw_thing) ->
   refine_thing:(
     'metasenv -> 'subst -> 'context -> 'uri -> use_coercions:bool ->
-    'raw_thing -> 'ugraph -> localization_tbl:'cichash -> 
+    'raw_thing -> 'refined_thing option -> 'ugraph -> localization_tbl:'cichash -> 
       ('refined_thing, 'metasenv,'subst,'ugraph) Disambiguate.test_result) ->
   mk_localization_tbl:(int -> 'cichash) ->
   string * int * 'ast_thing ->