Mercurial Mercurial > hg > tm / 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.
updated uncomputable
authorChristian Urban <christian dot urban at kcl dot ac dot uk>
Wed, 16 Jan 2013 10:20:49 +0000
changeset 45 9192a969f044
parent 44 2f765afc1f7e
child 46 df4c7bb6c79e
updated uncomputable
thys/uncomputable.thy file | annotate | diff | comparison | revisions 
--- a/thys/uncomputable.thy	Wed Jan 16 10:12:43 2013 +0000
+++ b/thys/uncomputable.thy	Wed Jan 16 10:20:49 2013 +0000
@@ -696,7 +696,7 @@
 
 fun inv_end2 :: "nat \<Rightarrow> tape \<Rightarrow> bool"
   where
-  "inv_end2 x (l, r) = (\<exists> i j. i + j = Suc x \<and> x > 0 \<and> l = Oc\<up>i @ [Bk] \<and> r = Bk\<up>j @ Oc\<up>)"
+  "inv_end2 x (l, r) = (\<exists> i j. i + j = Suc x \<and> x > 0 \<and> l = Oc\<up>i @ [Bk] \<and> r = Bk\<up>j @ Oc\<up>x)"
 
 fun inv_end3 :: "nat \<Rightarrow> tape \<Rightarrow> bool"
   where
tm