(* $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 ->
- aliases:NCic.term DisambiguateTypes.environment ->
- universe:NCic.term DisambiguateTypes.multiple_environment option ->
+ expty:NCic.term option ->
+ mk_implicit: (bool -> 'alias) ->
+ description_of_alias:('alias -> string) ->
+ 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 ->
- NCic.term DisambiguateTypes.codomain_item list) ->
+ 'alias list) ->
CicNotationPt.term Disambiguate.disambiguator_input ->
- ((DisambiguateTypes.domain_item *
- NCic.term DisambiguateTypes.codomain_item) list *
+ ((DisambiguateTypes.domain_item * 'alias) list *
NCic.metasenv *
NCic.substitution *
NCic.term) list *
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 ->
+ rdb:#NRstatus.status ->
+ 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
+
+val disambiguate_path: CicNotationPt.term -> NCic.term
+