src/HOL/Mutabelle/mutabelle_extra.ML
changeset 43277 1fd31f859fc7
parent 43244 db041e88a805
child 43883 aacbe67793c3
equal deleted inserted replaced
43276:91bf67e0e755 43277:1fd31f859fc7
   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