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.
Mended the definition of ack(0,n)
authorpaulson
Fri, 06 Jun 1997 10:19:53 +0200
changeset 3419 9092b79d86d5
parent 3418 f060dc3f15a8
child 3420 02dc9c5b035f
Mended the definition of ack(0,n)
src/HOL/ex/Primrec.thy file | annotate | diff | comparison | revisions 
--- a/src/HOL/ex/Primrec.thy	Fri Jun 06 10:19:20 1997 +0200
+++ b/src/HOL/ex/Primrec.thy	Fri Jun 06 10:19:53 1997 +0200
@@ -20,7 +20,7 @@
 
 consts ack  :: "nat * nat => nat"
 recdef ack "less_than ** less_than"
-    "ack (0,n) =  (n + 1)"
+    "ack (0,n) =  Suc n"
     "ack (Suc m,0) = (ack (m, 1))"
     "ack (Suc m, Suc n) = ack (m, ack (Suc m, n))"
isabelle