(* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
+val set_reference_of_oxuri: (UriManager.uri -> NReference.reference) -> unit
+
val disambiguate_term :
context:NCic.context ->
metasenv:NCic.metasenv ->
subst:NCic.substitution ->
- ?goal:int ->
+ expty:NCic.term option ->
mk_implicit: (bool -> 'alias) ->
description_of_alias:('alias -> string) ->
+ fix_instance:(DisambiguateTypes.domain_item -> 'alias list -> 'alias list) ->
mk_choice:('alias -> NCic.term DisambiguateTypes.codomain_item) ->
aliases:'alias DisambiguateTypes.Environment.t ->
universe:'alias list DisambiguateTypes.Environment.t option ->
- coercion_db:NCicCoercion.db ->
+ rdb:#NRstatus.status ->
lookup_in_library:(
DisambiguateTypes.interactive_user_uri_choice_type ->
DisambiguateTypes.input_or_locate_uri_type ->
bool
val disambiguate_obj :
- mk_implicit:(bool -> 'a) ->
- description_of_alias:('a -> string) ->
- mk_choice:('a -> NCic.term DisambiguateTypes.codomain_item) ->
- aliases:'a DisambiguateTypes.Environment.t ->
- universe:'a list DisambiguateTypes.Environment.t option ->
- coercion_db:NCicCoercion.db ->
- lookup_in_library:(DisambiguateTypes.interactive_user_uri_choice_type ->
- DisambiguateTypes.input_or_locate_uri_type ->
- DisambiguateTypes.Environment.key -> 'a list) ->
- uri:NUri.uri ->
- string * int * CicNotationPt.term CicNotationPt.obj ->
- ((DisambiguateTypes.Environment.key * 'a) list * NCic.metasenv *
- NCic.substitution * NCic.obj)
- list * bool
+ mk_implicit:(bool -> 'alias) ->
+ description_of_alias:('alias -> string) ->
+ fix_instance:(DisambiguateTypes.domain_item -> 'alias list -> 'alias list) ->
+ mk_choice:('alias -> NCic.term DisambiguateTypes.codomain_item) ->
+ aliases:'alias DisambiguateTypes.Environment.t ->
+ universe:'alias list DisambiguateTypes.Environment.t option ->
+ rdb:#NRstatus.status ->
+ lookup_in_library:(
+ DisambiguateTypes.interactive_user_uri_choice_type ->
+ DisambiguateTypes.input_or_locate_uri_type ->
+ DisambiguateTypes.Environment.key ->
+ 'alias list) ->
+ uri:NUri.uri ->
+ string * int * CicNotationPt.term CicNotationPt.obj ->
+ ((DisambiguateTypes.Environment.key * 'alias) list * NCic.metasenv *
+ NCic.substitution * NCic.obj)
+ list * bool
+
+val disambiguate_path: CicNotationPt.term -> NCic.term