ocaml 3.09 transition

[helm.git] / helm / ocaml / urimanager / uriManager.mli

diff --git a/helm/ocaml/urimanager/uriManager.mli b/helm/ocaml/urimanager/uriManager.mli
index 86cd5c14231df1b994bc41d3706e4aa9d1a0928d..8250cc83963dc058a0672c3d35d208617a0d920e 100644 (file)
--- a/helm/ocaml/urimanager/uriManager.mli
+++ b/helm/ocaml/urimanager/uriManager.mli
@@ -49,6 +49,7 @@ val annuri_of_uri : uri -> uri
 val uri_is_annuri : uri -> bool
 val uri_is_var : uri -> bool
 val uri_is_con : uri -> bool
+val uri_is_ind : uri -> bool
 
 (* given an uri of a constant, it gives back the uri of its body             *)
 (* it gives back None if the uri refers to a Variable or MutualInductiveType *)
@@ -56,6 +57,8 @@ val bodyuri_of_uri : uri -> uri option
 
 (* given an uri, it gives back the uri of its inner types             *)
 val innertypesuri_of_uri : uri -> uri
+(* given an uri, it gives back the uri of its univgraph             *)
+val univgraphuri_of_uri : uri -> uri
 
 (* builder for MutInd and MutConstruct URIs
  * [uri] -> [typeno] -> [consno option]
@@ -64,3 +67,5 @@ val uri_of_uriref :  uri -> int -> int option -> uri
 
 module UriSet: Set.S with type elt = uri
 
+module UriHashtbl : Hashtbl.S with type key = uri
+