equal
deleted
inserted
replaced
317 val (_, hyp_ts, concl_t) = Sledgehammer_Util.strip_subgoal goal i |
317 val (_, hyp_ts, concl_t) = Sledgehammer_Util.strip_subgoal goal i |
318 val axioms = |
318 val axioms = |
319 Sledgehammer_Filter.relevant_facts ctxt full_types relevance_thresholds |
319 Sledgehammer_Filter.relevant_facts ctxt full_types relevance_thresholds |
320 (the_default default_max_relevant max_relevant) |
320 (the_default default_max_relevant max_relevant) |
321 relevance_override chained_ths hyp_ts concl_t |
321 relevance_override chained_ths hyp_ts concl_t |
322 val problem = {ctxt = ctxt', goal = goal, subgoal = i, axioms = axioms} |
322 val problem = |
|
323 {ctxt = ctxt', goal = goal, subgoal = i, |
|
324 axiom_ts = map (prop_of o snd) axioms, |
|
325 prepared_axioms = map (Sledgehammer_Translate.prepare_axiom ctxt) axioms} |
323 val time_limit = |
326 val time_limit = |
324 (case hard_timeout of |
327 (case hard_timeout of |
325 NONE => I |
328 NONE => I |
326 | SOME secs => TimeLimit.timeLimit (Time.fromSeconds secs)) |
329 | SOME secs => TimeLimit.timeLimit (Time.fromSeconds secs)) |
327 val ({outcome, message, used_thm_names, |
330 val ({outcome, message, used_thm_names, |