X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2FlibraryObjects.mli;h=3ca7e7292dcf0a9bc0bd461206ed2e8c876117d5;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=6a7bb1833dc11469aec411b6e39a2c827f2ba325;hpb=ed207660b8a0fa34f1d34b9dbb41144c5be29e68;p=helm.git

diff --git a/helm/ocaml/cic/libraryObjects.mli b/helm/ocaml/cic/libraryObjects.mli
index 6a7bb1833..3ca7e7292 100644
--- a/helm/ocaml/cic/libraryObjects.mli
+++ b/helm/ocaml/cic/libraryObjects.mli
@@ -23,14 +23,20 @@
  * http://helm.cs.unibo.it/
  *)
 
-(*CSC: how can we choose between the two libraries? *)
-val eq_URI : UriManager.uri
+val set_default : string -> UriManager.uri list -> unit
+
+val eq_URI : unit -> UriManager.uri
 
 val is_eq_URI : UriManager.uri -> bool
 
-exception Not_recognized;;
+exception NotRecognized;;
 
 val eq_ind_URI : eq:UriManager.uri -> UriManager.uri
 val eq_ind_r_URI : eq:UriManager.uri -> UriManager.uri
 val trans_eq_URI : eq:UriManager.uri -> UriManager.uri
 val sym_eq_URI : eq:UriManager.uri -> UriManager.uri
+
+
+val false_URI : unit -> UriManager.uri
+val true_URI : unit -> UriManager.uri
+val absurd_URI : unit -> UriManager.uri