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