]> matita.cs.unibo.it Git - helm.git/commitdiff
Added in_eq_uris.
authorAndrea Asperti <andrea.asperti@unibo.it>
Mon, 27 Nov 2006 13:48:35 +0000 (13:48 +0000)
committerAndrea Asperti <andrea.asperti@unibo.it>
Mon, 27 Nov 2006 13:48:35 +0000 (13:48 +0000)
helm/software/components/cic/libraryObjects.ml
helm/software/components/cic/libraryObjects.mli

index dc36636fe816d4629d6f9f08c4cfb1207ee1c8e5..d8af91a6f01b4dc0dab2d3708306784a67733891 100644 (file)
@@ -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 =
index 0cd9f2e975bb18801766fe52ac974e1c6232fedf..0bf8bfea56f165d4d23b5de91e6f6acc67db6958 100644 (file)
@@ -26,6 +26,7 @@
 val set_default : string -> UriManager.uri list -> unit
 val reset_defaults : unit -> unit 
 
+
 val eq_URI : unit -> UriManager.uri option
 
 val is_eq_URI : UriManager.uri -> bool
@@ -36,6 +37,7 @@ val is_trans_eq_URI : UriManager.uri -> bool
 val is_sym_eq_URI : UriManager.uri -> bool
 val is_eq_f_URI : UriManager.uri -> bool
 val is_eq_f_sym_URI : UriManager.uri -> bool
+val in_eq_URIs : UriManager.uri -> bool
 
 val eq_URI_of_eq_f_URI : UriManager.uri -> UriManager.uri