src/HOL/Tools/SMT/smt_solver.ML
changeset 47152 446cfc760ccf
parent 46743 8e365bc843e9
child 47701 157e6108a342
equal deleted inserted replaced
47151:eaf0ffea11aa 47152:446cfc760ccf
    77           val out_path = Path.ext "smt_out" base_path
    77           val out_path = Path.ext "smt_out" base_path
    78         in Cache_IO.raw_run mk_cmd input in_path out_path end
    78         in Cache_IO.raw_run mk_cmd input in_path out_path end
    79   | SOME certs =>
    79   | SOME certs =>
    80       (case Cache_IO.lookup certs input of
    80       (case Cache_IO.lookup certs input of
    81         (NONE, key) =>
    81         (NONE, key) =>
    82           if Config.get ctxt SMT_Config.fixed then
    82           if Config.get ctxt SMT_Config.read_only_certificates then
    83             error ("Bad certificates cache: missing certificate")
    83             error ("Bad certificate cache: missing certificate")
    84           else
    84           else
    85             Cache_IO.run_and_cache certs key mk_cmd input
    85             Cache_IO.run_and_cache certs key mk_cmd input
    86       | (SOME output, _) =>
    86       | (SOME output, _) =>
    87           trace_and ctxt ("Using cached certificate from " ^
    87           trace_and ctxt ("Using cached certificate from " ^
    88             File.shell_path (Cache_IO.cache_path_of certs) ^ " ...")
    88             File.shell_path (Cache_IO.cache_path_of certs) ^ " ...")