1.1 --- a/src/HOL/Algebra/FiniteProduct.thy	Sat Oct 17 14:43:18 2009 +0200
     1.2 +++ b/src/HOL/Algebra/FiniteProduct.thy	Mon Feb 08 21:28:27 2010 +0100
     1.3 @@ -302,7 +302,7 @@
     1.4    "_finprod" :: "index => idt => 'a set => 'b => 'b"
     1.5        ("(3\<Otimes>__\<in>_. _)" [1000, 0, 51, 10] 10)
     1.6  translations
     1.7 -  "\<Otimes>\<index>i:A. b" == "finprod \<struct>\<index> (%i. b) A"
     1.8 +  "\<Otimes>\<index>i:A. b" == "CONST finprod \<struct>\<index> (%i. b) A"
     1.9    -- {* Beware of argument permutation! *}
    1.10  
    1.11  lemma (in comm_monoid) finprod_empty [simp]: