author | wenzelm |
Fri, 01 Mar 2002 16:59:48 +0100 | |
changeset 12997 | 80dec7322a8c |
parent 12996 | 7ac0a7e306db |
child 12998 | 03b9afa801df |
--- a/src/HOL/Isar_examples/Puzzle.thy Fri Mar 01 16:24:43 2002 +0100 +++ b/src/HOL/Isar_examples/Puzzle.thy Fri Mar 01 16:59:48 2002 +0100 @@ -24,8 +24,7 @@ show ge: "!!n. n <= f n" proof - fix k show "!!n. k == f n ==> n <= k" (is "PROP ?P k") - proof (induct k - rule: nat_less_induct [rule_format]) + proof (induct k rule: less_induct) fix k assume hyp: "!!m. m < k ==> PROP ?P m" fix n assume k_def: "k == f n" show "n <= k"