Added in_eq_uris.

[helm.git] / components / cic / libraryObjects.ml

diff --git a/components/cic/libraryObjects.ml b/components/cic/libraryObjects.ml
index dc36636fe816d4629d6f9f08c4cfb1207ee1c8e5..d8af91a6f01b4dc0dab2d3708306784a67733891 100644 (file)
--- a/components/cic/libraryObjects.ml
+++ b/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 =