src/HOL/Datatype.thy
changeset 28524 644b62cf678f
parent 28346 b8390cd56b8f
child 28562 4e74209f113e
     1.1 --- a/src/HOL/Datatype.thy	Tue Oct 07 16:07:40 2008 +0200
     1.2 +++ b/src/HOL/Datatype.thy	Tue Oct 07 16:07:50 2008 +0200
     1.3 @@ -567,10 +567,10 @@
     1.4  
     1.5  constdefs
     1.6    Suml :: "('a => 'c) => 'a + 'b => 'c"
     1.7 -  "Suml == (%f. sum_case f arbitrary)"
     1.8 +  "Suml == (%f. sum_case f undefined)"
     1.9  
    1.10    Sumr :: "('b => 'c) => 'a + 'b => 'c"
    1.11 -  "Sumr == sum_case arbitrary"
    1.12 +  "Sumr == sum_case undefined"
    1.13  
    1.14  lemma Suml_inject: "Suml f = Suml g ==> f = g"
    1.15    by (unfold Suml_def) (erule sum_case_inject)