X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FtermAcicContent.mli;h=4f366c9c271e970ee360911fee5accf66b5725a1;hb=d120acefa62d997341a84ec54cb1532e223dd661;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..4f366c9c2 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 @@ -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