X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FtermAcicContent.mli;h=605a8f5ca36063be5b641eab2552289af0099053;hb=32d3f10c1904d450ce8ea3525230acc6980a5601;hp=4f366c9c271e970ee360911fee5accf66b5725a1;hpb=5c1b44dfefa085fbb56e23047652d3650be9d855;p=helm.git diff --git a/helm/software/components/acic_content/termAcicContent.mli b/helm/software/components/acic_content/termAcicContent.mli index 4f366c9c2..605a8f5ca 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,11 @@ 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) -> + (string * 'term) list -> CicNotationPt.cic_appl_pattern -> + 'term -(* hack. seee cicNotation for explanation *) -val reset: unit -> unit +val push: unit -> unit +val pop: unit -> unit