# 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 \ Suc n" by (induct n) simp_all