equal
deleted
inserted
replaced
69 end |
69 end |
70 |
70 |
71 fun sledgehammer_with_metis_tac ctxt override_params relevance_override i th = |
71 fun sledgehammer_with_metis_tac ctxt override_params relevance_override i th = |
72 case run_atp override_params relevance_override i i ctxt th of |
72 case run_atp override_params relevance_override i i ctxt th of |
73 SOME facts => |
73 SOME facts => |
74 Metis_Tactic.metis_tac [] ATP_Translate.combinatorsN ctxt |
74 Metis_Tactic.metis_tac [] ATP_Problem_Generate.combinatorsN ctxt |
75 (maps (thms_of_name ctxt) facts) i th |
75 (maps (thms_of_name ctxt) facts) i th |
76 | NONE => Seq.empty |
76 | NONE => Seq.empty |
77 |
77 |
78 fun sledgehammer_as_oracle_tac ctxt override_params relevance_override i th = |
78 fun sledgehammer_as_oracle_tac ctxt override_params relevance_override i th = |
79 let |
79 let |