src/HOL/ex/sledgehammer_tactics.ML
changeset 46320 0b8b73b49848
parent 45706 418846ea4f99
child 46365 547d1a1dcaf6
equal deleted inserted replaced
46319:c248e4f1be74 46320:0b8b73b49848
    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