src/HOL/Algebra/UnivPoly.thy
changeset 57512 cc97b347b301
parent 55926 3ef14caf5637
child 57865 dcfb33c26f50
--- a/src/HOL/Algebra/UnivPoly.thy	Fri Jul 04 20:07:08 2014 +0200
+++ b/src/HOL/Algebra/UnivPoly.thy	Fri Jul 04 20:18:47 2014 +0200
@@ -1353,7 +1353,7 @@
   case 0 from R show ?case by simp
 next
   case Suc with R show ?case
-    by (simp del: monom_mult add: monom_mult [THEN sym] add_commute)
+    by (simp del: monom_mult add: monom_mult [THEN sym] add.commute)
 qed
 
 lemma (in ring_hom_cring) hom_pow [simp]: