src/HOL/Tools/atp_wrapper.ML
changeset 30899 d394a17d4fdb
parent 30896 ec3f33437fe3
child 30979 10eb446df3c7
equal deleted inserted replaced
30898:16912b4e6625 30899:d394a17d4fdb
    66     val chain_ths = map (Thm.put_name_hint ResReconstruct.chained_hint) chain_ths
    66     val chain_ths = map (Thm.put_name_hint ResReconstruct.chained_hint) chain_ths
    67     val probfile = prob_pathname subgoalno
    67     val probfile = prob_pathname subgoalno
    68     val fname = File.platform_path probfile
    68     val fname = File.platform_path probfile
    69     val thm_names = write_problem_file probfile th subgoalno axiom_clauses thy
    69     val thm_names = write_problem_file probfile th subgoalno axiom_clauses thy
    70     val cmdline =
    70     val cmdline =
    71       if File.exists cmd then File.shell_path cmd ^ " " ^ args
    71       if File.exists cmd then "exec " ^ File.shell_path cmd ^ " " ^ args
    72       else error ("Bad executable: " ^ Path.implode cmd)
    72       else error ("Bad executable: " ^ Path.implode cmd)
    73     val (proof, rc) = system_out (cmdline ^ " " ^ fname)
    73     val (proof, rc) = system_out (cmdline ^ " " ^ fname)
    74 
    74 
    75     (* remove *temporary* files *)
    75     (* remove *temporary* files *)
    76     val _ = if destdir' = "" then OS.FileSys.remove fname else ()
    76     val _ = if destdir' = "" then OS.FileSys.remove fname else ()