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