src/HOL/Finite_Set.thy
changeset 63648 f9f3006a5579
parent 63612 7195acc2fe93
child 63915 bab633745c7f
--- a/src/HOL/Finite_Set.thy	Tue Aug 09 23:29:54 2016 +0200
+++ b/src/HOL/Finite_Set.thy	Wed Aug 10 09:33:54 2016 +0200
@@ -1405,7 +1405,7 @@
   apply (subgoal_tac "finite A \<and> A - {x} \<subseteq> F")
    prefer 2 apply (blast intro: finite_subset, atomize)
   apply (drule_tac x = "A - {x}" in spec)
-  apply (simp add: card_Diff_singleton_if split add: if_split_asm)
+  apply (simp add: card_Diff_singleton_if split: if_split_asm)
   apply (case_tac "card A", auto)
   done