tuned;
authorwenzelm
Fri, 01 Mar 2002 16:59:48 +0100
changeset 12997 80dec7322a8c
parent 12996 7ac0a7e306db
child 12998 03b9afa801df
tuned;
src/HOL/Isar_examples/Puzzle.thy
--- 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"