src/HOL/List.thy
changeset 69700 7a92cbec7030
parent 69593 3dda49e08b9d
child 69850 5f993636ac07
--- a/src/HOL/List.thy	Sun Jan 20 17:15:49 2019 +0000
+++ b/src/HOL/List.thy	Mon Jan 21 14:44:23 2019 +0000
@@ -1517,7 +1517,7 @@
     also have "\<dots> = Suc(card(Suc ` ?S))" using fin
       by (simp add: card_image)
     also have "\<dots> = card ?S'" using eq fin
-      by (simp add:card_insert_if) (simp add:image_def)
+      by (simp add:card_insert_if) 
     finally show ?thesis .
   next
     assume "\<not> p x"