X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_disambiguation%2FdisambiguateChoices.mli;h=f40c7aa9f4b8e139eff592b5aa1ef41b77dcabe6;hb=9e7df95a820cb91d075f1a20d703175da874596c;hp=a229a772f7cbe12e0368f6b7a5afa0381ffe210d;hpb=1d212933a86f2820a151555516f7a53ab1c9f8e7;p=helm.git diff --git a/helm/software/components/cic_disambiguation/disambiguateChoices.mli b/helm/software/components/cic_disambiguation/disambiguateChoices.mli index a229a772f..f40c7aa9f 100644 --- a/helm/software/components/cic_disambiguation/disambiguateChoices.mli +++ b/helm/software/components/cic_disambiguation/disambiguateChoices.mli @@ -44,10 +44,20 @@ 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 -> Cic.term codomain_item +val lookup_symbol_by_dsc: + mk_appl: ('term list -> 'term) -> + mk_implicit: (bool -> 'term) -> + term_of_uri: (UriManager.uri -> '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) -> string * CicNotationPt.argument_pattern list * CicNotationPt.cic_appl_pattern -> - Cic.term codomain_item + 'term codomain_item