changeset 31641 | feea4d3d743d |
parent 31205 | 98370b26c2ce |
child 31666 | 760c612ad800 |
child 31706 | 1db0c8f235fb |
--- a/src/HOL/Rational.thy Mon Jun 15 11:01:18 2009 +0200 +++ b/src/HOL/Rational.thy Mon Jun 15 16:13:03 2009 +0200 @@ -1012,7 +1012,7 @@ begin definition - "random i = random i o\<rightarrow> (\<lambda>num. Random.range i o\<rightarrow> (\<lambda>denom. Pair ( + "Quickcheck.random i = Quickcheck.random i o\<rightarrow> (\<lambda>num. Random.range i o\<rightarrow> (\<lambda>denom. Pair ( let j = Code_Numeral.int_of (denom + 1) in valterm_fract num (j, \<lambda>u. Code_Eval.term_of j))))"