X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FtermAcicContent.mli;h=bf6ee6a93498efd23714f61cdb00bd7b1a14479e;hb=e9b09b14538f770b9e65083c24e3e9cf487df648;hp=aec8d598cb7bc8f7bfa1d8a9cd8ebb12e8870993;hpb=eb9ca860db8cb06083765f7698179f16dee5303e;p=helm.git diff --git a/helm/software/components/acic_content/termAcicContent.mli b/helm/software/components/acic_content/termAcicContent.mli index aec8d598c..bf6ee6a93 100644 --- a/helm/software/components/acic_content/termAcicContent.mli +++ b/helm/software/components/acic_content/termAcicContent.mli @@ -36,7 +36,7 @@ val add_interpretation: (** @raise Interpretation_not_found *) val lookup_interpretations: - string -> (* symbol *) + ?sorted:bool -> string -> (* symbol *) (string * CicNotationPt.argument_pattern list * CicNotationPt.cic_appl_pattern) list @@ -65,8 +65,22 @@ val ast_of_acic: (** @param env environment from argument_pattern to cic terms * @param pat cic_appl_pattern *) val instantiate_appl_pattern: - (string * Cic.term) list -> CicNotationPt.cic_appl_pattern -> - Cic.term + mk_appl:('term list -> 'term) -> + mk_implicit:(bool -> 'term) -> + term_of_uri : (UriManager.uri -> 'term) -> + term_of_nref : (NReference.reference -> 'term) -> + (string * 'term) list -> CicNotationPt.cic_appl_pattern -> + 'term val push: unit -> unit val pop: unit -> unit + +(* for Matita NG *) +val find_level2_patterns32: + int -> + string * string * + CicNotationPt.argument_pattern list * CicNotationPt.cic_appl_pattern + +val add_load_patterns32: + ((bool * CicNotationPt.cic_appl_pattern * int) list -> unit) -> unit +val init: unit -> unit