X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FtermAcicContent.mli;h=bf6ee6a93498efd23714f61cdb00bd7b1a14479e;hb=eb4144a401147a44a9620169eb6dafeb8f5a2c17;hp=91438d248143d1941698b5ea4af8a4e5e928f1d9;hpb=430d6307ae5776ed000a78358a2881cb88936c37;p=helm.git diff --git a/helm/software/components/acic_content/termAcicContent.mli b/helm/software/components/acic_content/termAcicContent.mli index 91438d248..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 @@ -68,8 +68,19 @@ val instantiate_appl_pattern: 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