equal
deleted
inserted
replaced
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; |