changeset 15338 | 08519594b0e4 |
parent 15337 | 628d87767434 |
child 15339 | a7b603bbc1e6 |
--- a/doc-src/Tutorial/Recdef/ack Mon Nov 29 11:12:19 2004 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,5 +0,0 @@ -consts ack :: "nat*nat => nat" -recdef ack "measure(%m. m) <*lex*> 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))"