
diff -r 43175817d83b -r a5db9779b026 src/HOL/Number_Theory/UniqueFactorization.thy
--- a/src/HOL/Number_Theory/UniqueFactorization.thy	Mon Feb 08 21:26:52 2010 +0100
+++ b/src/HOL/Number_Theory/UniqueFactorization.thy	Mon Feb 08 21:28:27 2010 +0100
@@ -76,7 +76,7 @@
       ("(3PROD _:#_. _)" [0, 51, 10] 10)
 
 translations
-  "PROD i :# A. b" == "msetprod (%i. b) A"
+  "PROD i :# A. b" == "CONST msetprod (%i. b) A"
 
 lemma msetprod_Un: "msetprod f (A+B) = msetprod f A * msetprod f B" 
   apply (simp add: msetprod_def power_add)




