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