eureka! match x with [ C gfds fsd fdg fdg fdg fd gfdg fd => c ] is

[helm.git] / helm / software / components / acic_content / termAcicContent.mli

diff --git a/helm/software/components/acic_content/termAcicContent.mli b/helm/software/components/acic_content/termAcicContent.mli
index 4f366c9c271e970ee360911fee5accf66b5725a1..91438d248143d1941698b5ea4af8a4e5e928f1d9 100644 (file)
--- a/helm/software/components/acic_content/termAcicContent.mli
+++ b/helm/software/components/acic_content/termAcicContent.mli
@@ -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