X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmetadata%2FmetadataDb.mli;h=d70ec4a347d4495f260129fe97b707ec7fa26cbb;hb=f8edc256de5d8ae2126f01fdaf72ac91151d8ca6;hp=a5b0d27534bd2146e1efc557445dfcca35757269;hpb=df29cafb872244de1a6a9b3c273b329a6e15fa8c;p=helm.git

diff --git a/helm/ocaml/metadata/metadataDb.mli b/helm/ocaml/metadata/metadataDb.mli
index a5b0d2753..d70ec4a34 100644
--- a/helm/ocaml/metadata/metadataDb.mli
+++ b/helm/ocaml/metadata/metadataDb.mli
@@ -23,21 +23,10 @@
  * http://helm.cs.unibo.it/
  *)
 
-  (** index a Cic.Constant object and insert resulting metadata into the db
-  * PRE_EVAL(dbd) *)
-val index_constant:
-  dbd:Mysql.dbd ->
-  uri:UriManager.uri -> body:Cic.term option -> ty:Cic.term ->
-    unit
 
-  (** index a Cic.InductiveDefinition object and insert resulting metadata into
-  * the db
-  * PRE_EVAL(dbd) *)
-val index_inductive_def:
-  dbd:Mysql.dbd ->
-  uri:UriManager.uri -> types:Cic.inductiveType list ->
-    unit
 
+val index_obj: dbd:Mysql.dbd -> uri:UriManager.uri -> unit
+    
 (* TODO Zack indexing of variables and (perhaps?) incomplete proofs *)
 
   (** remove from the db all metadata pertaining to a given owner
@@ -46,3 +35,7 @@ val clean: dbd:Mysql.dbd -> string list
 
 val unindex: dbd:Mysql.dbd -> uri:UriManager.uri -> unit
 
+val count_distinct: 
+  [`Conclusion | `Hypothesis | `Statement ] -> 
+  MetadataTypes.metadata list ->
+  int