(* i.e. removes the [.types][.ann] suffix *)
val cicuri_of_uri : uri -> uri
+val strip_xpointer: uri -> uri (* remove trailing #xpointer..., if any *)
+
(* given an uri, returns the uri of the corresponding annotation file, *)
(* i.e. adds the .ann suffix if not already present *)
val annuri_of_uri : uri -> uri