X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2FlibraryObjects.ml;h=d8af91a6f01b4dc0dab2d3708306784a67733891;hb=1c95887fc7af68023b8b682a34816d8fb4d0a716;hp=dc36636fe816d4629d6f9f08c4cfb1207ee1c8e5;hpb=bc76b4d2f3c380894259b45fad52cf85ae6cee18;p=helm.git

diff --git a/helm/software/components/cic/libraryObjects.ml b/helm/software/components/cic/libraryObjects.ml
index dc36636fe..d8af91a6f 100644
--- a/helm/software/components/cic/libraryObjects.ml
+++ b/helm/software/components/cic/libraryObjects.ml
@@ -79,8 +79,8 @@ let reset_defaults () =
   false_URIs_ref := default_false_URIs;
   absurd_URIs_ref := default_absurd_URIs
 
-(**** LOOKUP FUNCTIONS ****)
 
+(**** LOOKUP FUNCTIONS ****)
 let eq_URI () =
  try let eq,_,_,_,_,_,_ = List.hd !eq_URIs_ref in Some eq
  with Failure "hd" -> None
@@ -96,7 +96,6 @@ let is_eq_refl_URI uri =
 
 let is_eq_ind_URI uri =
  List.exists (fun (_,_,_,eq_ind,_,_,_) -> UriManager.eq eq_ind uri) !eq_URIs_ref
-
 let is_eq_ind_r_URI uri =
  List.exists (fun (_,_,_,_,eq_ind_r,_,_) -> UriManager.eq eq_ind_r uri) !eq_URIs_ref
 let is_trans_eq_URI uri = 
@@ -108,6 +107,11 @@ let is_eq_f_URI uri =
 let is_eq_f_sym_URI uri =
  List.exists (fun (_,_,_,_,_,_,eq_f1) -> UriManager.eq eq_f1 uri) !eq_URIs_ref
 
+let in_eq_URIs uri =  
+  is_eq_URI uri || is_eq_refl_URI uri || is_eq_ind_URI uri || 
+  is_eq_ind_r_URI uri || is_trans_eq_URI uri || is_sym_eq_URI uri || 
+  is_eq_f_URI uri || is_eq_f_sym_URI uri
+
 
  
 let eq_refl_URI ~eq:uri =