removed obsolete nat_induct_tac -- cannot work without;
authorwenzelm
Sat, 14 Jun 2008 23:20:05 +0200
changeset 27213 2c7a628ccdcf
parent 27212 3a3686dd4433
child 27214 0978b8e32fd0
removed obsolete nat_induct_tac -- cannot work without;
src/HOL/Nat.thy
--- a/src/HOL/Nat.thy	Sat Jun 14 23:20:03 2008 +0200
+++ b/src/HOL/Nat.thy	Sat Jun 14 23:20:05 2008 +0200
@@ -89,10 +89,6 @@
   shows "P n"
   using assms by (rule nat.induct) 
 
-ML {*
-  fun nat_induct_tac n = res_inst_tac [("n", n)] @{thm nat_induct}
-*}
-
 declare nat.exhaust [case_names 0 Suc, cases type: nat]
 
 lemmas nat_rec_0 = nat.recs(1)