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