| changeset 62429 | 25271ff79171 |
| parent 62348 | 9a5f43dac883 |
| child 63095 | 201480e65b7d |
--- a/src/HOL/Isar_Examples/Fibonacci.thy Fri Feb 26 18:33:01 2016 +0100 +++ b/src/HOL/Isar_Examples/Fibonacci.thy Fri Feb 26 22:15:09 2016 +0100 @@ -80,7 +80,7 @@ also have "\<dots> = fib (n + 2) + fib (n + 1)" by simp also have "gcd (fib (n + 2)) \<dots> = gcd (fib (n + 2)) (fib (n + 1))" - by (rule gcd_add2_nat) + by (rule gcd_add2) also have "\<dots> = gcd (fib (n + 1)) (fib (n + 1 + 1))" by (simp add: gcd.commute) also assume "\<dots> = 1"