doc-src/Tutorial/Recdef/fib
changeset 15338 08519594b0e4
parent 15337 628d87767434
child 15339 a7b603bbc1e6
equal deleted inserted replaced
15337:628d87767434 15338:08519594b0e4
     1 consts fib :: nat => nat
       
     2 recdef fib "measure(%n. n)"
       
     3   "fib 0 = 0"
       
     4   "fib 1 = 1"
       
     5   "fib (Suc(Suc x)) = fib x + fib (Suc x)"