checked in new version of matita from svn

[helm.git] / helm / ocaml / metadata / metadataExtractor.mli

diff --git a/helm/ocaml/metadata/metadataExtractor.mli b/helm/ocaml/metadata/metadataExtractor.mli
index ef7ea763c6f912afe90aa448b85c00623b36a126..450c3a525cea62f26d0f397bbe6fe7655fe02785 100644 (file)
--- a/helm/ocaml/metadata/metadataExtractor.mli
+++ b/helm/ocaml/metadata/metadataExtractor.mli
@@ -30,3 +30,14 @@ val compute_ind:
   uri:UriManager.uri -> types:Cic.inductiveType list ->
     (string * string * MetadataTypes.metadata list) list
 
+val compute_term:
+  MetadataTypes.position -> Cic.term ->
+    MetadataTypes.metadata list
+
+module IntSet: Set.S with type elt = int
+
+  (** given a term, returns a pair of sets corresponding respectively to the set
+    * of meta numbers occurring in term's conclusion and the set of meta numbers
+    * occurring in term's hypotheses *)
+val compute_metas: Cic.term -> IntSet.t * IntSet.t
+