X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_disambiguation%2FnCicDisambiguate.mli;h=d28708e3a533565276449683e61bc6be95ad308c;hb=e9b09b14538f770b9e65083c24e3e9cf487df648;hp=3784d5c18406fad923b8c569e8726da1dc24dc8b;hpb=46b91f34b693dabbd351ba813f5190051b09a117;p=helm.git diff --git a/helm/software/components/ng_disambiguation/nCicDisambiguate.mli b/helm/software/components/ng_disambiguation/nCicDisambiguate.mli index 3784d5c18..d28708e3a 100644 --- a/helm/software/components/ng_disambiguation/nCicDisambiguate.mli +++ b/helm/software/components/ng_disambiguation/nCicDisambiguate.mli @@ -11,17 +11,20 @@ (* $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 -> @@ -34,3 +37,24 @@ val disambiguate_term : NCic.term) list * bool +val disambiguate_obj : + 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 +