# HG changeset patch
# User bulwahn
# Date 1324456876 -3600
# Node ID 4dfb1f6bd99b7c6b305419898389537c73778c8d
# Parent  2fd0bbf8be13e1dc00971fe1b313a9af09436108
extending quickcheck example

diff -r 2fd0bbf8be13 -r 4dfb1f6bd99b 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 *}