let innertypesuri_of_uri (uri, _) =
uri_of_string ((clear_suffix uri _types) ^ _dottypes)
;;
let innertypesuri_of_uri (uri, _) =
uri_of_string ((clear_suffix uri _types) ^ _dottypes)
;;
let uri_of_uriref (uri, _) typeno consno =
let typeno = typeno + 1 in
let uri_of_uriref (uri, _) typeno consno =
let typeno = typeno + 1 in