src/HOL/Set_Interval.thy
changeset 72302 d7d90ed4c74e
parent 72268 71a8935eb5da
child 72686 703b601d71b5
--- a/src/HOL/Set_Interval.thy	Fri Sep 25 12:05:21 2020 +0100
+++ b/src/HOL/Set_Interval.thy	Fri Sep 25 14:11:48 2020 +0100
@@ -1538,7 +1538,7 @@
   also have "\<dots> = Suc (card ({k \<in> M. k < Suc i} - {0}))"
     by (force intro: arg_cong [where f=card])
   also have "\<dots> = card (insert 0 ({k \<in> M. k < Suc i} - {0}))"
-    by (simp add: card_insert)
+    by (simp add: card.insert_remove)
   also have "... = card {k \<in> M. k < Suc i}"
     using assms
     by (force simp add: intro: arg_cong [where f=card])