src/HOL/Tools/res_atp.ML
changeset 24300 e170cee91c66
parent 24287 c857dac06da6
child 24320 ea5be4be3bae
equal deleted inserted replaced
24299:91d893799212 24300:e170cee91c66
   766 
   766 
   767 fun dfg_writer logic = ResHolClause.dfg_write_file (logic=FOL);
   767 fun dfg_writer logic = ResHolClause.dfg_write_file (logic=FOL);
   768 
   768 
   769 (*Called by the oracle-based methods declared in res_atp_methods.ML*)
   769 (*Called by the oracle-based methods declared in res_atp_methods.ML*)
   770 fun write_subgoal_file dfg mode ctxt conjectures user_thms n =
   770 fun write_subgoal_file dfg mode ctxt conjectures user_thms n =
   771     let val conj_cls = make_clauses conjectures
   771     let val conj_cls = Meson.make_clauses conjectures
   772                          |> ResAxioms.assume_abstract_list "subgoal" |> Meson.finish_cnf
   772                          |> ResAxioms.assume_abstract_list "subgoal" |> Meson.finish_cnf
   773         val hyp_cls = cnf_hyps_thms ctxt
   773         val hyp_cls = cnf_hyps_thms ctxt
   774         val goal_cls = conj_cls@hyp_cls
   774         val goal_cls = conj_cls@hyp_cls
   775         val goal_tms = map prop_of goal_cls
   775         val goal_tms = map prop_of goal_cls
   776         val thy = ProofContext.theory_of ctxt
   776         val thy = ProofContext.theory_of ctxt