src/HOL/Tools/ATP/atp_proof.ML
changeset 57017 afdf75c0de58
parent 56404 9cb137ec6ec8
child 57154 f0eff6393a32
equal deleted inserted replaced
57016:c44ce6f4067d 57017:afdf75c0de58
   181 fun extract_known_atp_failure known_failures output =
   181 fun extract_known_atp_failure known_failures output =
   182   known_failures
   182   known_failures
   183   |> find_first (fn (_, pattern) => String.isSubstring pattern output)
   183   |> find_first (fn (_, pattern) => String.isSubstring pattern output)
   184   |> Option.map fst
   184   |> Option.map fst
   185 
   185 
   186 fun extract_tstplike_proof_and_outcome verbose proof_delims known_failures
   186 fun extract_tstplike_proof_and_outcome verbose proof_delims known_failures output =
   187                                        output =
       
   188   (case (extract_tstplike_proof proof_delims output,
   187   (case (extract_tstplike_proof proof_delims output,
   189       extract_known_atp_failure known_failures output) of
   188       extract_known_atp_failure known_failures output) of
   190     (_, SOME ProofIncomplete) => ("", NONE)
   189     (_, SOME ProofIncomplete) => ("", NONE)
   191   | ("", SOME ProofMissing) => ("", NONE)
   190   | ("", SOME ProofMissing) => ("", NONE)
   192   | ("", NONE) => ("", SOME (UnknownError (short_output verbose output)))
   191   | ("", NONE) => ("", SOME (UnknownError (short_output verbose output)))