--- a/src/HOL/Big_Operators.thy Fri Oct 19 10:46:42 2012 +0200
+++ b/src/HOL/Big_Operators.thy Fri Oct 19 15:12:52 2012 +0200
@@ -699,7 +699,7 @@
proof induct
case empty thus ?case by simp
next
- case (insert x A) thus ?case by (simp add: right_distrib)
+ case (insert x A) thus ?case by (simp add: distrib_left)
qed
next
case False thus ?thesis by (simp add: setsum_def)
@@ -713,7 +713,7 @@
proof induct
case empty thus ?case by simp
next
- case (insert x A) thus ?case by (simp add: left_distrib)
+ case (insert x A) thus ?case by (simp add: distrib_right)
qed
next
case False thus ?thesis by (simp add: setsum_def)