src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML
changeset 43031 e437d47f419f
parent 43021 5910dd009d0e
child 43033 c4b9b4be90c4
equal deleted inserted replaced
43030:e1172791ad0d 43031:e437d47f419f
   327 fun proof_banner mode blocking name =
   327 fun proof_banner mode blocking name =
   328   case mode of
   328   case mode of
   329     Auto_Try => "Auto Sledgehammer (" ^ quote name ^ ") found a proof"
   329     Auto_Try => "Auto Sledgehammer (" ^ quote name ^ ") found a proof"
   330   | Try => "Sledgehammer (" ^ quote name ^ ") found a proof"
   330   | Try => "Sledgehammer (" ^ quote name ^ ") found a proof"
   331   | Normal => if blocking then quote name ^ " found a proof"
   331   | Normal => if blocking then quote name ^ " found a proof"
   332               else "Try this command"
   332               else "Try this"
   333   | Minimize => "Try this command"
   333   | Minimize => "Try this"
   334 
   334 
   335 val smt_triggers =
   335 val smt_triggers =
   336   Attrib.setup_config_bool @{binding sledgehammer_smt_triggers} (K true)
   336   Attrib.setup_config_bool @{binding sledgehammer_smt_triggers} (K true)
   337 val smt_weights =
   337 val smt_weights =
   338   Attrib.setup_config_bool @{binding sledgehammer_smt_weights} (K true)
   338   Attrib.setup_config_bool @{binding sledgehammer_smt_weights} (K true)