X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FtermAcicContent.mli;h=bf6ee6a93498efd23714f61cdb00bd7b1a14479e;hb=f9abd21eb0d26cf9b632af4df819225be4d091e3;hp=1fd57e0d00cdcec44e1fb2c7059cc42ea2b32bbf;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/acic_content/termAcicContent.mli b/helm/software/components/acic_content/termAcicContent.mli
index 1fd57e0d0..bf6ee6a93 100644
--- a/helm/software/components/acic_content/termAcicContent.mli
+++ b/helm/software/components/acic_content/termAcicContent.mli
@@ -23,6 +23,7 @@
  * http://helm.cs.unibo.it/
  *)
 
+
   (** {2 Persistant state handling} *)
 
 type interpretation_id
@@ -35,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
 
@@ -53,6 +54,7 @@ val set_active_interpretations: interpretation_id list -> unit
   (** {2 acic -> content} *)
 
 val ast_of_acic:
+  output_type:[`Pattern|`Term] ->
   (Cic.id, CicNotationPt.sort_kind) Hashtbl.t ->    (* id -> sort *)
   Cic.annterm ->                                    (* acic *)
     CicNotationPt.term                              (* ast *)
@@ -63,6 +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