src/HOL/Nitpick_Examples/Manual_Nits.thy
changeset 34126 8a2c5d7aff51
parent 33197 de6285ebcc05
child 34982 7b8c366e34a2
     1.1 --- a/src/HOL/Nitpick_Examples/Manual_Nits.thy	Thu Dec 17 15:22:27 2009 +0100
     1.2 +++ b/src/HOL/Nitpick_Examples/Manual_Nits.thy	Fri Dec 18 12:00:29 2009 +0100
     1.3 @@ -59,7 +59,7 @@
     1.4  nitpick
     1.5  oops
     1.6  
     1.7 -subsection {* 3.5. Numbers *}
     1.8 +subsection {* 3.5. Natural Numbers and Integers *}
     1.9  
    1.10  lemma "\<lbrakk>i \<le> j; n \<le> (m\<Colon>int)\<rbrakk> \<Longrightarrow> i * n + j * m \<le> i * m + j * n"
    1.11  nitpick
    1.12 @@ -121,11 +121,11 @@
    1.13  "even n \<Longrightarrow> even (Suc (Suc n))"
    1.14  
    1.15  lemma "\<exists>n. even n \<and> even (Suc n)"
    1.16 -nitpick [card nat = 100, verbose]
    1.17 +nitpick [card nat = 100, unary_ints, verbose]
    1.18  oops
    1.19  
    1.20  lemma "\<exists>n \<le> 99. even n \<and> even (Suc n)"
    1.21 -nitpick [card nat = 100]
    1.22 +nitpick [card nat = 100, unary_ints, verbose]
    1.23  oops
    1.24  
    1.25  inductive even' where
    1.26 @@ -134,7 +134,7 @@
    1.27  "\<lbrakk>even' m; even' n\<rbrakk> \<Longrightarrow> even' (m + n)"
    1.28  
    1.29  lemma "\<exists>n \<in> {0, 2, 4, 6, 8}. \<not> even' n"
    1.30 -nitpick [card nat = 10, verbose, show_consts]
    1.31 +nitpick [card nat = 10, unary_ints, verbose, show_consts] (* FIXME: should be genuine *)
    1.32  oops
    1.33  
    1.34  lemma "even' (n - 2) \<Longrightarrow> even' n"