changeset 48063 | f02b4302d5dd |
parent 47108 | 2a1953f0d20d |
child 49834 | b27bbb021df1 |
--- a/src/HOL/Library/Numeral_Type.thy Fri Jun 01 08:32:26 2012 +0200 +++ b/src/HOL/Library/Numeral_Type.thy Fri Jun 01 11:53:58 2012 +0200 @@ -31,7 +31,7 @@ lemma card_num1 [simp]: "CARD(num1) = 1" unfolding type_definition.card [OF type_definition_num1] - by (simp only: card_unit) + by (simp only: card_UNIV_unit) lemma card_bit0 [simp]: "CARD('a bit0) = 2 * CARD('a::finite)" unfolding type_definition.card [OF type_definition_bit0]