(** check whether no objects are defined below a given baseuri *)
val is_empty: string -> bool
-(** removes a file if it exists *)
-val safe_remove: string -> unit
-(** removes a dir if it exists and is empty *)
-val safe_rmdir: string -> unit
-(** checks if the dir is empty *)
-val is_dir_empty: string -> bool
-(** removes a directory and recursively the father (if empty) *)
-val rmdir_descend: string -> unit
-
val absolute_path: string -> string
(** @return true if file is a (textual) proof script *)
(** given the base name of an image, returns its full path *)
val image_path: string -> string
-val obj_file_of_baseuri: string -> string
+val baseuri_of_file: string -> string
+val obj_file_of_script : basedir:string -> string -> string