src/HOL/Tools/ATP/atp_proof.ML
changeset 48700 d06138bfeb45
parent 48539 0debf65972c7
child 48716 1d2a12bb0640
equal deleted inserted replaced
48699:a89b83204c24 48700:d06138bfeb45
   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)))