src/HOL/Tools/Quickcheck/random_generators.ML
changeset 41928 05abcee548a1
parent 41927 8759e9d043f9
child 42027 5e40c152c396
equal deleted inserted replaced
41927:8759e9d043f9 41928:05abcee548a1
   425 
   425 
   426 
   426 
   427 (** setup **)
   427 (** setup **)
   428 
   428 
   429 val setup =
   429 val setup =
   430   Datatype.interpretation (ensure_sort_datatype (@{sort random}, instantiate_random_datatype))
   430   Datatype.interpretation (Quickcheck_Common.ensure_sort_datatype (@{sort random}, instantiate_random_datatype))
   431   #> Code_Target.extend_target (target, (Code_Runtime.target, K I))
   431   #> Code_Target.extend_target (target, (Code_Runtime.target, K I))
   432   #> Context.theory_map
   432   #> Context.theory_map
   433     (Quickcheck.add_generator ("random", compile_generator_expr));
   433     (Quickcheck.add_generator ("random", compile_generator_expr));
   434 
   434 
   435 end;
   435 end;