changeset 11464 | ddea204de5bc |
parent 10408 | d8b3613158b1 |
child 11701 | 3d51fbf81c17 |
--- a/src/HOL/Isar_examples/Fibonacci.thy Mon Aug 06 13:12:06 2001 +0200 +++ b/src/HOL/Isar_examples/Fibonacci.thy Mon Aug 06 13:43:24 2001 +0200 @@ -29,7 +29,7 @@ consts fib :: "nat => nat" recdef fib less_than "fib 0 = 0" - "fib 1 = 1" + "fib 1' = 1" "fib (Suc (Suc x)) = fib x + fib (Suc x)" lemma [simp]: "0 < fib (Suc n)"