src/HOL/Library/Quotient_Product.thy
changeset 37678 0040bafffdef
parent 36695 b434506fb0d4
child 39198 f967a16dfcdd
     1.1 --- a/src/HOL/Library/Quotient_Product.thy	Thu Jul 01 16:54:42 2010 +0200
     1.2 +++ b/src/HOL/Library/Quotient_Product.thy	Thu Jul 01 16:54:44 2010 +0200
     1.3 @@ -13,7 +13,7 @@
     1.4  where
     1.5    "prod_rel R1 R2 = (\<lambda>(a, b) (c, d). R1 a c \<and> R2 b d)"
     1.6  
     1.7 -declare [[map * = (prod_fun, prod_rel)]]
     1.8 +declare [[map prod = (prod_fun, prod_rel)]]
     1.9  
    1.10  
    1.11  lemma prod_equivp[quot_equiv]: