author | berghofe |
Mon, 17 Dec 2007 18:22:48 +0100 | |
changeset 25672 | 5850301e83c7 |
parent 25671 | 5e9d6f77d11a |
child 25673 | 35a6c1b1c8e3 |
--- a/src/HOL/Datatype.thy Mon Dec 17 18:11:21 2007 +0100 +++ b/src/HOL/Datatype.thy Mon Dec 17 18:22:48 2007 +0100 @@ -541,9 +541,6 @@ inject Inl_eq Inr_eq induction sum_induct -lemma size_sum [code func]: - "size (x \<Colon> 'a + 'b) = 0" by (cases x) auto - lemma sum_case_KK[simp]: "sum_case (%x. a) (%x. a) = (%x. a)" by (rule ext) (simp split: sum.split)