src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML
changeset 45574 7a39df11bcf6
parent 45566 da05ce2de5a8
child 45590 dc9a7ff13e37
equal deleted inserted replaced
45573:22d003b5b32e 45574:7a39df11bcf6
    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