Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Lazy_Sequence.thy
changeset 55413 a8e96847523c
parent 51143 0a2371e7ced3
child 55416 dd7992d4a61a 
--- a/src/HOL/Lazy_Sequence.thy	Wed Feb 12 08:35:56 2014 +0100
+++ b/src/HOL/Lazy_Sequence.thy	Wed Feb 12 08:35:56 2014 +0100
@@ -71,8 +71,8 @@
   "yield (Lazy_Sequence f) = f ()"
   by (cases "f ()") (simp_all add: yield_def split_def)
 
-lemma case_yield_eq [simp]: "option_case g h (yield xq) =
-  list_case g (\<lambda>x. curry h x \<circ> lazy_sequence_of_list) (list_of_lazy_sequence xq)"
+lemma case_yield_eq [simp]: "case_option g h (yield xq) =
+  case_list g (\<lambda>x. curry h x \<circ> lazy_sequence_of_list) (list_of_lazy_sequence xq)"
   by (cases "list_of_lazy_sequence xq") (simp_all add: yield_def)
 
 lemma lazy_sequence_size_code [code]:
isabelle