src/HOL/Tools/Metis/metis_translate.ML
changeset 43211 77c432fe28ff
parent 43205 23b81469499f
child 43212 050a03afe024
equal deleted inserted replaced
43210:7384b771805d 43211:77c432fe28ff
   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