* http://cs.unibo.it/helm/.
*)
-(* order, uri, (which, constructor) *)
-type spec = Normal of (int * int option) option |
-type uri = private Uri of int * string * spec
+exception IllFormedUri of string Lazy.t
+
+type spec =
+ | Decl
+ | Def
+ | Fix of int * int (* fixno, recparamno *)
+ | CoFix of int
+ | Ind of int
+ | Con of int * int (* indtyno, constrno *)
+
+type uri = Uri of int * string * spec
val eq: uri -> uri -> bool
val string_of_uri: uri -> string
(* CACCA *)
-val nuri_of_ouri: UriManager.uri -> (int * int option ) option -> uri
+val nuri_of_ouri: UriManager.uri -> spec -> uri
val ouri_of_nuri: uri -> UriManager.uri