X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmetadata%2FmetadataExtractor.mli;h=68af269a91a59a8a8e812b8abc78627e28c4f5d9;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=450c3a525cea62f26d0f397bbe6fe7655fe02785;hpb=20054808327ccec9d018b8cc54b31ccb44724f49;p=helm.git

diff --git a/helm/ocaml/metadata/metadataExtractor.mli b/helm/ocaml/metadata/metadataExtractor.mli
index 450c3a525..68af269a9 100644
--- a/helm/ocaml/metadata/metadataExtractor.mli
+++ b/helm/ocaml/metadata/metadataExtractor.mli
@@ -23,17 +23,16 @@
  * http://helm.cs.unibo.it/
  *)
 
-val compute: body:Cic.term option -> ty:Cic.term -> MetadataTypes.metadata list
-
-  (** @return tuples <uri, name, metadata> *)
-val compute_ind:
-  uri:UriManager.uri -> types:Cic.inductiveType list ->
-    (string * string * MetadataTypes.metadata list) list
-
-val compute_term:
-  MetadataTypes.position -> Cic.term ->
+val compute: 
+  body:Cic.term option -> 
+  ty:Cic.term -> 
     MetadataTypes.metadata list
 
+    (** @return tuples <uri, shortname, metadata> *)
+val compute_obj:
+  UriManager.uri -> 
+    (UriManager.uri * string * MetadataTypes.metadata list) list
+    
 module IntSet: Set.S with type elt = int
 
   (** given a term, returns a pair of sets corresponding respectively to the set