# HG changeset patch
# User blanchet
# Date 1284466969 -7200
# Node ID ee65900bfced7c26dbaecee5d00a5121cced72b1
# Parent  520ea38711e473e8aac4c584d91be7a22733c3f9
adapt examples to latest Nitpick changes + speed them up a little bit

diff -r 520ea38711e4 -r ee65900bfced src/HOL/Nitpick_Examples/Integer_Nits.thy
--- a/src/HOL/Nitpick_Examples/Integer_Nits.thy	Tue Sep 14 14:12:18 2010 +0200
+++ b/src/HOL/Nitpick_Examples/Integer_Nits.thy	Tue Sep 14 14:22:49 2010 +0200
@@ -11,7 +11,7 @@
 imports Nitpick
 begin
 
-nitpick_params [card = 1\<midarrow>6, bits = 1,2,3,4,6,8,
+nitpick_params [card = 1\<midarrow>5, bits = 1,2,3,4,6,
                 sat_solver = MiniSat_JNI, max_threads = 1, timeout = 60 s]
 
 lemma "Suc x = x + 1"
@@ -232,13 +232,13 @@
 oops
 
 lemma "t \<noteq> Null \<Longrightarrow> (\<Sum>n \<in> labels t. n + 2) \<ge> 2"
-nitpick [expect = none]
-nitpick [dont_finitize, expect = none]
+nitpick [expect = potential] (* unfortunate *)
+nitpick [dont_finitize, expect = potential]
 sorry
 
 lemma "(\<Sum>i \<in> labels (Node x t u). f i\<Colon>nat) = f x + (\<Sum>i \<in> labels t. f i) + (\<Sum>i \<in> labels u. f i)"
-nitpick [expect = none] (* unfortunate *)
-nitpick [dont_finitize, expect = none]
+nitpick [expect = potential] (* unfortunate *)
+nitpick [dont_finitize, expect = potential]
 oops
 
 end
diff -r 520ea38711e4 -r ee65900bfced src/HOL/Nitpick_Examples/Manual_Nits.thy
--- a/src/HOL/Nitpick_Examples/Manual_Nits.thy	Tue Sep 14 14:12:18 2010 +0200
+++ b/src/HOL/Nitpick_Examples/Manual_Nits.thy	Tue Sep 14 14:22:49 2010 +0200
@@ -38,8 +38,7 @@
 
 lemma "P x \<Longrightarrow> P (THE y. P y)"
 nitpick [show_consts, expect = genuine]
-nitpick [full_descrs, show_consts, expect = genuine]
-nitpick [dont_specialize, full_descrs, show_consts, expect = genuine]
+nitpick [dont_specialize, show_consts, expect = genuine]
 oops
 
 lemma "\<exists>!x. P x \<Longrightarrow> P (THE y. P y)"
diff -r 520ea38711e4 -r ee65900bfced src/HOL/Nitpick_Examples/Typedef_Nits.thy
--- a/src/HOL/Nitpick_Examples/Typedef_Nits.thy	Tue Sep 14 14:12:18 2010 +0200
+++ b/src/HOL/Nitpick_Examples/Typedef_Nits.thy	Tue Sep 14 14:22:49 2010 +0200
@@ -64,7 +64,7 @@
 oops
 
 lemma "x \<noteq> (y\<Colon>bool bounded) \<Longrightarrow> z = x \<or> z = y"
-nitpick [expect = none]
+nitpick [expect = potential] (* unfortunate *)
 sorry
 
 lemma "x \<noteq> (y\<Colon>(bool \<times> bool) bounded) \<Longrightarrow> z = x \<or> z = y"
@@ -162,10 +162,6 @@
 nitpick [card = 1, unary_ints, max_potential = 0, expect = none]
 by (rule Zero_int_def_raw)
 
-lemma "Abs_Integ (Rep_Integ a) = a"
-nitpick [card = 1, unary_ints, max_potential = 0, expect = none]
-by (rule Rep_Integ_inverse)
-
 lemma "Abs_list (Rep_list a) = a"
 nitpick [card = 1\<midarrow>2, expect = none]
 by (rule Rep_list_inverse)