equal
deleted
inserted
replaced
184 |
184 |
185 fun extract_tstplike_proof_and_outcome verbose complete proof_delims |
185 fun extract_tstplike_proof_and_outcome verbose complete proof_delims |
186 known_failures output = |
186 known_failures output = |
187 case (extract_tstplike_proof proof_delims output, |
187 case (extract_tstplike_proof proof_delims output, |
188 extract_known_failure known_failures output) of |
188 extract_known_failure known_failures output) of |
189 (_, SOME ProofIncomplete) => ("", SOME ProofIncomplete) |
189 (_, SOME ProofIncomplete) => ("", NONE) |
190 | ("", SOME ProofMissing) => ("", NONE) |
190 | ("", SOME ProofMissing) => ("", NONE) |
191 | ("", SOME failure) => |
191 | ("", SOME failure) => |
192 ("", SOME (if failure = GaveUp andalso complete then Unprovable |
192 ("", SOME (if failure = GaveUp andalso complete then Unprovable |
193 else failure)) |
193 else failure)) |
194 | ("", NONE) => ("", SOME (UnknownError (short_output verbose output))) |
194 | ("", NONE) => ("", SOME (UnknownError (short_output verbose output))) |