changeset 31609 | 8d353e3214d0 |
parent 31608 | a98a47ffdd8d |
child 31611 | a577f77af93f |
--- a/src/HOL/Tools/quickcheck_generators.ML Wed Jun 10 16:10:31 2009 +0200 +++ b/src/HOL/Tools/quickcheck_generators.ML Wed Jun 10 16:22:54 2009 +0200 @@ -330,8 +330,6 @@ |> Class.prove_instantiation_exit (K (Class.intro_classes_tac [])) end; - - fun ensure_random_datatype raw_tycos thy = let val pp = Syntax.pp_global thy;