--- a/src/HOL/ex/Quickcheck_Narrowing_Examples.thy Fri Mar 11 15:21:13 2011 +0100
+++ b/src/HOL/ex/Quickcheck_Narrowing_Examples.thy Fri Mar 11 15:21:13 2011 +0100
@@ -6,13 +6,13 @@
header {* Examples for narrowing-based testing *}
theory Quickcheck_Narrowing_Examples
-imports "~~/src/HOL/Library/LSC"
+imports "~~/src/HOL/Library/Quickcheck_Narrowing"
begin
subsection {* Simple list examples *}
lemma "rev xs = xs"
-quickcheck[tester = lazy_exhaustive, finite_types = false, default_type = nat, expect = counterexample]
+quickcheck[tester = narrowing, finite_types = false, default_type = nat, expect = counterexample]
oops
text {* Example fails due to some strange thing... *}
@@ -134,7 +134,7 @@
lemma is_ord_l_bal:
"\<lbrakk> is_ord(MKT (x :: nat) l r h); height l = height r + 2 \<rbrakk> \<Longrightarrow> is_ord(l_bal(x,l,r))"
-quickcheck[tester = lazy_exhaustive, finite_types = false, default_type = nat, size = 1, timeout = 100, expect = counterexample]
+quickcheck[tester = narrowing, finite_types = false, default_type = nat, size = 1, timeout = 100, expect = counterexample]
oops