src/HOL/Lazy_Sequence.thy
changeset 55413 a8e96847523c
parent 51143 0a2371e7ced3
child 55416 dd7992d4a61a
     1.1 --- a/src/HOL/Lazy_Sequence.thy	Wed Feb 12 08:35:56 2014 +0100
     1.2 +++ b/src/HOL/Lazy_Sequence.thy	Wed Feb 12 08:35:56 2014 +0100
     1.3 @@ -71,8 +71,8 @@
     1.4    "yield (Lazy_Sequence f) = f ()"
     1.5    by (cases "f ()") (simp_all add: yield_def split_def)
     1.6  
     1.7 -lemma case_yield_eq [simp]: "option_case g h (yield xq) =
     1.8 -  list_case g (\<lambda>x. curry h x \<circ> lazy_sequence_of_list) (list_of_lazy_sequence xq)"
     1.9 +lemma case_yield_eq [simp]: "case_option g h (yield xq) =
    1.10 +  case_list g (\<lambda>x. curry h x \<circ> lazy_sequence_of_list) (list_of_lazy_sequence xq)"
    1.11    by (cases "list_of_lazy_sequence xq") (simp_all add: yield_def)
    1.12  
    1.13  lemma lazy_sequence_size_code [code]: