# HG changeset patch
# User nipkow
# Date 1501794224 -7200
# Node ID 604616b627f266d752843fe4e010a64bea7c335e
# Parent  9a4c049f899735e5aee85948dce71558bf994fbe
tuned

diff -r 9a4c049f8997 -r 604616b627f2 src/HOL/Library/Multiset.thy
--- a/src/HOL/Library/Multiset.thy	Thu Aug 03 11:38:55 2017 +0200
+++ b/src/HOL/Library/Multiset.thy	Thu Aug 03 23:03:44 2017 +0200
@@ -3458,8 +3458,7 @@
 
 end
 
-lemma [code]: "sum_mset (mset xs) = sum_list xs"
-  by (induct xs) simp_all
+declare sum_mset_sum_list [code]
 
 lemma [code]: "prod_mset (mset xs) = fold times xs 1"
 proof -