]> matita.cs.unibo.it Git - helm.git/commitdiff
Added is_trans_eq_URI and is_sym_eq_URI
authorAndrea Asperti <andrea.asperti@unibo.it>
Thu, 27 Apr 2006 10:06:54 +0000 (10:06 +0000)
committerAndrea Asperti <andrea.asperti@unibo.it>
Thu, 27 Apr 2006 10:06:54 +0000 (10:06 +0000)
helm/software/components/cic/libraryObjects.ml
helm/software/components/cic/libraryObjects.mli

index adbc219cc3fd72771b314a3e61eeea85a98cfc52..e1c9e1396bef4f5c5efc19cab6885bda0038c5de 100644 (file)
@@ -96,6 +96,10 @@ let is_eq_ind_URI uri =
 
 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 =
+ List.exists (fun (_,_,trans_eq,_,_) -> UriManager.eq trans_eq uri) !eq_URIs_ref
+let is_sym_eq_URI uri =
+ List.exists (fun (_,sym_eq,_,_,_) -> UriManager.eq sym_eq uri) !eq_URIs_ref
 
 let sym_eq_URI ~eq:uri =
  try
index eca5a0d902c309f3e386c91e4f1f3e96ce76ff61..db15cdff89f785ce7b79f26ffbfda38b26c87fcf 100644 (file)
@@ -31,6 +31,8 @@ val eq_URI : unit -> UriManager.uri
 val is_eq_URI : UriManager.uri -> bool
 val is_eq_ind_URI : UriManager.uri -> bool
 val is_eq_ind_r_URI : UriManager.uri -> bool
+val is_trans_eq_URI : UriManager.uri -> bool
+val is_sym_eq_URI : UriManager.uri -> bool
 
 exception NotRecognized;;