src/HOL/Tools/Sledgehammer/sledgehammer_prover_smt.ML
changeset 58498 59bdd4f57255
parent 58061 3d060f43accb
child 58843 521cea5fa777
equal deleted inserted replaced
58497:20aaa307c0ff 58498:59bdd4f57255
   194 
   194 
   195     val (preferred_methss, message) =
   195     val (preferred_methss, message) =
   196       (case outcome of
   196       (case outcome of
   197         NONE =>
   197         NONE =>
   198         let
   198         let
       
   199           val smt_method = smt_proofs <> SOME false
   199           val preferred_methss =
   200           val preferred_methss =
   200             (SMT_Method, bunches_of_proof_methods try0 (smt_proofs <> SOME false) false liftingN)
   201             (if smt_method then SMT_Method else Metis_Method (NONE, NONE),
       
   202              bunches_of_proof_methods try0 smt_method false liftingN)
   201         in
   203         in
   202           (preferred_methss,
   204           (preferred_methss,
   203            fn preplay =>
   205            fn preplay =>
   204              let
   206              let
   205                val _ = if verbose then Output.urgent_message "Generating proof text..." else ()
   207                val _ = if verbose then Output.urgent_message "Generating proof text..." else ()