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