src/HOL/ex/Quickcheck_Examples.thy

--- a/src/HOL/ex/Quickcheck_Examples.thy	Wed Dec 21 09:39:14 2011 +0100
+++ b/src/HOL/ex/Quickcheck_Examples.thy	Wed Dec 21 09:41:16 2011 +0100
@@ -347,11 +347,13 @@
 lemma
   "Dlist.length (Dlist.remove x xs) = Dlist.length xs - 1"
 quickcheck[exhaustive]
+quickcheck[random]
 oops
 
 lemma
   "Dlist.length (Dlist.insert x xs) = Dlist.length xs + 1"
 quickcheck[exhaustive]
+quickcheck[random]
 oops
 
 subsection {* Examples with Records *}