changeset 61943 | 7fba644ed827 |
parent 60758 | d8d85a8172b5 |
child 67613 | ce654b0e6d69 |
--- a/src/HOL/BNF_Cardinal_Arithmetic.thy Sun Dec 27 21:46:36 2015 +0100 +++ b/src/HOL/BNF_Cardinal_Arithmetic.thy Sun Dec 27 22:07:17 2015 +0100 @@ -281,7 +281,7 @@ subsection \<open>Product\<close> definition cprod (infixr "*c" 80) where - "r1 *c r2 = |Field r1 <*> Field r2|" + "r1 *c r2 = |Field r1 \<times> Field r2|" lemma card_order_cprod: assumes "card_order r1" "card_order r2"