src/HOL/Tools/SMT/smt_config.ML
changeset 56208 06cc31dff138
parent 54041 227908156cd2
child 56294 85911b8a6868
equal deleted inserted replaced
56207:52d5067ca06a 56208:06cc31dff138
   196 
   196 
   197 fun select_certificates name context = context |> Certificates.put (
   197 fun select_certificates name context = context |> Certificates.put (
   198   if name = "" then NONE
   198   if name = "" then NONE
   199   else
   199   else
   200     Path.explode name
   200     Path.explode name
   201     |> Path.append (Thy_Load.master_directory (Context.theory_of context))
   201     |> Path.append (Resources.master_directory (Context.theory_of context))
   202     |> SOME o Cache_IO.unsynchronized_init)
   202     |> SOME o Cache_IO.unsynchronized_init)
   203 
   203 
   204 val certificates_of = Certificates.get o Context.Proof
   204 val certificates_of = Certificates.get o Context.Proof
   205 
   205 
   206 val setup_certificates =
   206 val setup_certificates =