equal
deleted
inserted
replaced
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 = |