Removed obsolete lemma size_sum.
authorberghofe
Mon, 17 Dec 2007 18:22:48 +0100
changeset 25672 5850301e83c7
parent 25671 5e9d6f77d11a
child 25673 35a6c1b1c8e3
Removed obsolete lemma size_sum.
src/HOL/Datatype.thy
--- 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)