equal
deleted
inserted
replaced
374 prepare_atp_problem ctxt CNF Hypothesis Axiom type_sys explicit_apply |
374 prepare_atp_problem ctxt CNF Hypothesis Axiom type_sys explicit_apply |
375 false false props @{prop False} [] |
375 false false props @{prop False} [] |
376 (* |
376 (* |
377 val _ = tracing ("ATP PROBLEM: " ^ cat_lines (tptp_strings_for_atp_problem CNF atp_problem)) |
377 val _ = tracing ("ATP PROBLEM: " ^ cat_lines (tptp_strings_for_atp_problem CNF atp_problem)) |
378 *) |
378 *) |
|
379 (* "rev" is for compatibility *) |
379 val axioms = |
380 val axioms = |
380 atp_problem |> maps (map_filter (metis_axiom_from_atp clauses) o snd) |
381 atp_problem |> maps (map_filter (metis_axiom_from_atp clauses) o snd) |
|
382 |> rev |
381 in |
383 in |
382 (mode, sym_tab, {axioms = axioms, tfrees = [], old_skolems = old_skolems}) |
384 (mode, sym_tab, {axioms = axioms, tfrees = [], old_skolems = old_skolems}) |
383 end |
385 end |
384 | prepare_metis_problem ctxt mode conj_clauses fact_clauses = |
386 | prepare_metis_problem ctxt mode conj_clauses fact_clauses = |
385 let |
387 let |