X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FtermAcicContent.mli;h=91438d248143d1941698b5ea4af8a4e5e928f1d9;hb=e085135177f7b3b74b410d47a4f3bca1784b60b1;hp=49358bfce00a8b546e71c787b1afc1c68fbaa4b6;hpb=bdf989481462c1185c9cbbfdd4b31d13aa4352b3;p=helm.git

diff --git a/helm/software/components/acic_content/termAcicContent.mli b/helm/software/components/acic_content/termAcicContent.mli
index 49358bfce..91438d248 100644
--- a/helm/software/components/acic_content/termAcicContent.mli
+++ b/helm/software/components/acic_content/termAcicContent.mli
@@ -54,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 *)
@@ -64,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