| 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"