Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
formally stylized
authorhaftmann
Fri, 14 Aug 2009 15:36:54 +0200
changeset 32372 b0d2b49bfaed
parent 32371 3186fa3a4f88
child 32373 c96330408d89
formally stylized
src/HOL/Predicate.thy file | annotate | diff | comparison | revisions 
--- a/src/HOL/Predicate.thy	Fri Aug 14 15:36:53 2009 +0200
+++ b/src/HOL/Predicate.thy	Fri Aug 14 15:36:54 2009 +0200
@@ -646,7 +646,7 @@
 @{code_datatype pred = Seq};
 @{code_datatype seq = Empty | Insert | Join};
 
-fun yield (Seq f) = next (f ())
+fun yield (@{code Seq} f) = next (f ())
 and next @{code Empty} = NONE
   | next (@{code Insert} (x, P)) = SOME (x, P)
   | next (@{code Join} (P, xq)) = (case yield P
isabelle