tuned;
authorwenzelm
Wed, 09 Jul 2025 16:59:39 +0200
changeset 82834 0b2acd437db4
parent 82833 13a8c49a48a0
child 82835 6d1914817496
tuned;
src/FOLP/simp.ML
--- a/src/FOLP/simp.ML	Wed Jul 09 12:48:44 2025 +0200
+++ b/src/FOLP/simp.ML	Wed Jul 09 16:59:39 2025 +0200
@@ -267,10 +267,8 @@
 
 (** Deletion of congruences and rewrites **)
 
-(*delete a thm from a thm net*)
 fun delete_thm th net =
-  Net.delete_term Thm.eq_thm_prop (Thm.concl_of th, th) net
-    handle Net.DELETE => net;
+  Net.delete_term_safe Thm.eq_thm_prop (Thm.concl_of th, th) net;
 
 val delete_thms = fold_rev delete_thm;