equal
deleted
inserted
replaced
387 |
387 |
388 (* (theory -> thm -> bool -> term list -> mtd list -> 'a) -> theory -> mtd list -> thm -> 'a *) |
388 (* (theory -> thm -> bool -> term list -> mtd list -> 'a) -> theory -> mtd list -> thm -> 'a *) |
389 fun mutate_theorem create_entry thy mtds thm = |
389 fun mutate_theorem create_entry thy mtds thm = |
390 let |
390 let |
391 val exec = is_executable_thm thy thm |
391 val exec = is_executable_thm thy thm |
392 val _ = Output.tracing (if exec then "EXEC" else "NOEXEC") |
392 val _ = tracing (if exec then "EXEC" else "NOEXEC") |
393 val mutants = |
393 val mutants = |
394 (if num_mutations = 0 then |
394 (if num_mutations = 0 then |
395 [Thm.prop_of thm] |
395 [Thm.prop_of thm] |
396 else |
396 else |
397 Mutabelle.mutate_mix (Thm.prop_of thm) thy comms forbidden |
397 Mutabelle.mutate_mix (Thm.prop_of thm) thy comms forbidden |