src/HOL/Tools/SMT/smt_solver.ML
changeset 40561 0125cbb5d3c7
parent 40560 b57f7fee72ee
child 40578 2b098a549450
equal deleted inserted replaced
40560:b57f7fee72ee 40561:0125cbb5d3c7
   136 
   136 
   137     val ls = rev (snd (chop_while (equal "") (rev res)))
   137     val ls = rev (snd (chop_while (equal "") (rev res)))
   138     val _ = C.trace_msg ctxt (pretty "Result:") ls
   138     val _ = C.trace_msg ctxt (pretty "Result:") ls
   139 
   139 
   140     val _ = null ls andalso return_code <> 0 andalso
   140     val _ = null ls andalso return_code <> 0 andalso
   141       raise SMT_Failure.SMT (SMT_Failure.Solver_Crashed return_code)
   141       raise SMT_Failure.SMT (SMT_Failure.Abnormal_Termination return_code)
   142   in ls end
   142   in ls end
   143 
   143 
   144 end
   144 end
   145 
   145 
   146 fun trace_assms ctxt = C.trace_msg ctxt (Pretty.string_of o
   146 fun trace_assms ctxt = C.trace_msg ctxt (Pretty.string_of o