src/HOL/Tools/Old_Datatype/old_datatype_data.ML
changeset 69593 3dda49e08b9d
parent 59582 0fbed69ff081
child 74561 8e6c973003c8
equal deleted inserted replaced
69592:a80d8ec6c998 69593:3dda49e08b9d
   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 =>