author | nipkow |
Tue, 23 Nov 2004 16:43:03 +0100 | |
changeset 15316 | 2a6ff941a115 |
parent 15315 | a358e31572d9 |
child 15317 | ebdd193e15ec |
--- a/src/HOL/Library/Multiset.thy Tue Nov 23 16:42:54 2004 +0100 +++ b/src/HOL/Library/Multiset.thy Tue Nov 23 16:43:03 2004 +0100 @@ -309,7 +309,7 @@ apply (subgoal_tac "{x. x \<noteq> a \<and> 0 < f x} = {x. 0 < f x} - {a}") prefer 2 apply blast - apply (simp add: le_imp_diff_is_add setsum_diff1 cong: conj_cong) + apply (simp add: le_imp_diff_is_add setsum_diff1_nat cong: conj_cong) done qed