--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/doc-src/Tutorial/Recdef/ack Tue Jan 12 15:49:13 1999 +0100
@@ -0,0 +1,5 @@
+consts ack :: "nat*nat => nat"
+recdef ack "measure(%m. m) ** measure(%n. n)"
+ "ack(0,n) = Suc n"
+ "ack(Suc m,0) = ack(m, 1)"
+ "ack(Suc m,Suc n) = ack(m,ack(Suc m,n))"