equal
deleted
inserted
replaced
14 type reconstructor = ATP_Reconstruct.reconstructor |
14 type reconstructor = ATP_Reconstruct.reconstructor |
15 type play = ATP_Reconstruct.play |
15 type play = ATP_Reconstruct.play |
16 type minimize_command = ATP_Reconstruct.minimize_command |
16 type minimize_command = ATP_Reconstruct.minimize_command |
17 type relevance_fudge = Sledgehammer_Filter.relevance_fudge |
17 type relevance_fudge = Sledgehammer_Filter.relevance_fudge |
18 |
18 |
19 datatype mode = Auto_Try | Try | Normal | Minimize |
19 datatype mode = Auto_Try | Try | Normal | Auto_Minimize | Minimize |
20 |
20 |
21 type params = |
21 type params = |
22 {debug: bool, |
22 {debug: bool, |
23 verbose: bool, |
23 verbose: bool, |
24 overlord: bool, |
24 overlord: bool, |
124 open Sledgehammer_Util |
124 open Sledgehammer_Util |
125 open Sledgehammer_Filter |
125 open Sledgehammer_Filter |
126 |
126 |
127 (** The Sledgehammer **) |
127 (** The Sledgehammer **) |
128 |
128 |
129 datatype mode = Auto_Try | Try | Normal | Minimize |
129 datatype mode = Auto_Try | Try | Normal | Auto_Minimize | Minimize |
130 |
130 |
131 (* Identifier that distinguishes Sledgehammer from other tools that could use |
131 (* Identifier that distinguishes Sledgehammer from other tools that could use |
132 "Async_Manager". *) |
132 "Async_Manager". *) |
133 val das_tool = "Sledgehammer" |
133 val das_tool = "Sledgehammer" |
134 |
134 |
564 #> Config.put Monomorph.keep_partial_instances false |
564 #> Config.put Monomorph.keep_partial_instances false |
565 |
565 |
566 fun suffix_for_mode Auto_Try = "_auto_try" |
566 fun suffix_for_mode Auto_Try = "_auto_try" |
567 | suffix_for_mode Try = "_try" |
567 | suffix_for_mode Try = "_try" |
568 | suffix_for_mode Normal = "" |
568 | suffix_for_mode Normal = "" |
|
569 | suffix_for_mode Auto_Minimize = "_auto_min" |
569 | suffix_for_mode Minimize = "_min" |
570 | suffix_for_mode Minimize = "_min" |
570 |
571 |
571 (* Give the ATPs some slack before interrupting them the hard way. "z3_tptp" on |
572 (* Give the ATPs some slack before interrupting them the hard way. "z3_tptp" on |
572 Linux appears to be the only ATP that does not honor its time limit. *) |
573 Linux appears to be the only ATP that does not honor its time limit. *) |
573 val atp_timeout_slack = seconds 1.0 |
574 val atp_timeout_slack = seconds 1.0 |