# HG changeset patch
# User wenzelm
# Date 1165363963 -3600
# Node ID 29c346b165d44ddeb25a95098efa058f80df5e49
# Parent  f7d652ffef096408a72fefe340af8f8f705dd64c
added aliases for nat_recs/cases;

diff -r f7d652ffef09 -r 29c346b165d4 src/HOL/Nat.thy
--- a/src/HOL/Nat.thy	Wed Dec 06 01:12:42 2006 +0100
+++ b/src/HOL/Nat.thy	Wed Dec 06 01:12:43 2006 +0100
@@ -118,6 +118,13 @@
 declare nat.induct [case_names 0 Suc, induct type: nat]
 declare nat.exhaust [case_names 0 Suc, cases type: nat]
 
+lemmas nat_rec_0 = nat.recs(1)
+  and nat_rec_Suc = nat.recs(2)
+
+lemmas nat_case_0 = nat.cases(1)
+  and nat_case_Suc = nat.cases(2)
+
+
 lemma n_not_Suc_n: "n \<noteq> Suc n"
   by (induct n) simp_all