src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 50267 1da2e67242d6
parent 49916 412346127bfa
child 50334 74d453d1b084
equal deleted inserted replaced
50266:e8173d1fa725 50267:1da2e67242d6
   529   in
   529   in
   530     case result of
   530     case result of
   531       SH_OK (time_isa, time_prover, names) =>
   531       SH_OK (time_isa, time_prover, names) =>
   532         let
   532         let
   533           fun get_thms (name, stature) =
   533           fun get_thms (name, stature) =
   534             try (Sledgehammer_Reconstruct.thms_of_name (Proof.context_of st))
   534             try (Sledgehammer_Util.thms_of_name (Proof.context_of st))
   535               name
   535               name
   536             |> Option.map (pair (name, stature))
   536             |> Option.map (pair (name, stature))
   537         in
   537         in
   538           change_data id inc_sh_success;
   538           change_data id inc_sh_success;
   539           if trivial then () else change_data id inc_sh_nontriv_success;
   539           if trivial then () else change_data id inc_sh_nontriv_success;