src/HOL/Quickcheck.thy

--- a/src/HOL/Quickcheck.thy	Fri Feb 24 22:46:16 2012 +0100
+++ b/src/HOL/Quickcheck.thy	Fri Feb 24 22:46:44 2012 +0100
@@ -233,7 +233,7 @@
 
 definition iterate_upto :: "(code_numeral => 'a) => code_numeral => code_numeral => 'a randompred"
 where
-  "iterate_upto f n m = Pair (Code_Numeral.iterate_upto f n m)"
+  "iterate_upto f n m = Pair (Predicate.iterate_upto f n m)"
 
 definition not_randompred :: "unit randompred \<Rightarrow> unit randompred"
 where