src/HOL/Tools/SMT/smt_failure.ML
changeset 40515 25f266144206
parent 40424 7550b2cba1cb
child 40538 b8482ff0bc92
equal deleted inserted replaced
40514:db5f14910dce 40515:25f266144206
    24   Out_Of_Memory |
    24   Out_Of_Memory |
    25   Other_Failure of string
    25   Other_Failure of string
    26 
    26 
    27 fun string_of_failure ctxt (Counterexample (real, ex)) =
    27 fun string_of_failure ctxt (Counterexample (real, ex)) =
    28       let
    28       let
    29         val msg = (if real then "C" else "Potential c") ^ "ounterexample found"
    29         val msg =
       
    30           if real then "Counterexample found (possibly spurious)"
       
    31           else "Potential counterexample found"
    30       in
    32       in
    31         if null ex then msg
    33         if null ex then msg
    32         else Pretty.string_of (Pretty.big_list (msg ^ ":")
    34         else Pretty.string_of (Pretty.big_list (msg ^ ":")
    33           (map (Syntax.pretty_term ctxt) ex))
    35           (map (Syntax.pretty_term ctxt) ex))
    34       end
    36       end