author | wenzelm |
Wed, 09 Jul 2025 16:59:39 +0200 | |
changeset 82834 | 0b2acd437db4 |
parent 82833 | 13a8c49a48a0 |
child 82835 | 6d1914817496 |
src/FOLP/simp.ML | file | annotate | diff | comparison | revisions |
--- 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;