author | haftmann |
Thu, 29 Apr 2010 15:22:16 +0200 | |
changeset 36538 | 4fe16d49283b |
parent 36537 | b0186c66f324 |
child 36539 | 2b9d4d3f09c3 |
--- a/src/HOL/Random.thy Thu Apr 29 15:00:43 2010 +0200 +++ b/src/HOL/Random.thy Thu Apr 29 15:22:16 2010 +0200 @@ -138,10 +138,15 @@ subsection {* @{text ML} interface *} +code_reflect Random_Engine + functions range select select_weight + ML {* structure Random_Engine = struct +open Random_Engine; + type seed = int * int; local