equal
deleted
inserted
replaced
240 |
240 |
241 (** abstract theory extensions relative to a datatype characterisation **) |
241 (** abstract theory extensions relative to a datatype characterisation **) |
242 |
242 |
243 structure Old_Datatype_Plugin = Plugin(type T = Old_Datatype_Aux.config * string list); |
243 structure Old_Datatype_Plugin = Plugin(type T = Old_Datatype_Aux.config * string list); |
244 |
244 |
245 val old_datatype_plugin = Plugin_Name.declare_setup @{binding old_datatype}; |
245 val old_datatype_plugin = Plugin_Name.declare_setup \<^binding>\<open>old_datatype\<close>; |
246 |
246 |
247 fun interpretation f = |
247 fun interpretation f = |
248 Old_Datatype_Plugin.interpretation old_datatype_plugin |
248 Old_Datatype_Plugin.interpretation old_datatype_plugin |
249 (fn (config, type_names as name :: _) => |
249 (fn (config, type_names as name :: _) => |
250 Local_Theory.background_theory (fn thy => |
250 Local_Theory.background_theory (fn thy => |