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