X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FtermAcicContent.mli;h=605a8f5ca36063be5b641eab2552289af0099053;hb=4803b343f52b716c80eed945fa12d7075399df1b;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..605a8f5ca 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,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
 
+val push: unit -> unit
+val pop: unit -> unit