X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_disambiguation%2FdisambiguateChoices.mli;h=ddc05b4a5cba54f9c1d02a4e49883b982d6e37cf;hb=0ef9250d71eacd6b1022194128e6acfb74d52aac;hp=0ad498106456a50d50ed4962a530e597b7d1a08f;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git diff --git a/helm/software/components/cic_disambiguation/disambiguateChoices.mli b/helm/software/components/cic_disambiguation/disambiguateChoices.mli index 0ad498106..ddc05b4a5 100644 --- a/helm/software/components/cic_disambiguation/disambiguateChoices.mli +++ b/helm/software/components/cic_disambiguation/disambiguateChoices.mli @@ -31,23 +31,35 @@ open DisambiguateTypes exception Choice_not_found of string Lazy.t (** register a new number choice *) -val add_num_choice: codomain_item -> unit +val add_num_choice: Cic.term codomain_item -> unit (** {2 Choices lookup} * for user defined aliases *) -val lookup_num_choices: unit -> codomain_item list +val lookup_num_choices: unit -> Cic.term codomain_item list (** @param dsc description (1st component of codomain_item) *) -val lookup_num_by_dsc: string -> codomain_item +val lookup_num_by_dsc: string -> Cic.term codomain_item (** @param symbol symbol as per AST * @param dsc description (1st component of codomain_item) *) -val lookup_symbol_by_dsc: string -> string -> codomain_item +val lookup_symbol_by_dsc: + mk_appl: ('term list -> 'term) -> + mk_implicit: (bool -> 'term) -> + term_of_uri: (UriManager.uri -> 'term) -> + term_of_nref: (NReference.reference -> 'term) -> + string -> string -> 'term codomain_item + +val cic_lookup_symbol_by_dsc: + string -> string -> Cic.term codomain_item val mk_choice: + mk_appl: ('term list -> 'term) -> + mk_implicit: (bool -> 'term) -> + term_of_uri: (UriManager.uri -> 'term) -> + term_of_nref: (NReference.reference -> 'term) -> string * CicNotationPt.argument_pattern list * CicNotationPt.cic_appl_pattern -> - codomain_item + 'term codomain_item