notation_id were compared using Pervasives.equal this was rarely triggering the

[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 1fd57e0d00cdcec44e1fb2c7059cc42ea2b32bbf..4f366c9c271e970ee360911fee5accf66b5725a1 100644 (file)
--- 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
@@ -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 *)
@@ -66,3 +68,5 @@ val instantiate_appl_pattern:
   (string * Cic.term) list -> CicNotationPt.cic_appl_pattern ->
     Cic.term
 
+(* hack. seee cicNotation for explanation *)
+val reset: unit -> unit