equal
deleted
inserted
replaced
255 (K (mono_tac lthy 1)) |
255 (K (mono_tac lthy 1)) |
256 val inst_mono_thm = Thm.forall_elim (Thm.cterm_of lthy x_uc) mono_thm |
256 val inst_mono_thm = Thm.forall_elim (Thm.cterm_of lthy x_uc) mono_thm |
257 |
257 |
258 val f_def_rhs = curry_n arity (apply_inst lthy fixp F_uc); |
258 val f_def_rhs = curry_n arity (apply_inst lthy fixp F_uc); |
259 val f_def_binding = |
259 val f_def_binding = |
260 if Config.get lthy Function_Lib.function_defs then (Binding.name (Thm.def_name fname), []) |
260 if Config.get lthy Function_Lib.function_internals |
|
261 then (Binding.name (Thm.def_name fname), []) |
261 else Attrib.empty_binding; |
262 else Attrib.empty_binding; |
262 val ((f, (_, f_def)), lthy') = Local_Theory.define |
263 val ((f, (_, f_def)), lthy') = Local_Theory.define |
263 ((f_binding, mixfix), (f_def_binding, f_def_rhs)) lthy; |
264 ((f_binding, mixfix), (f_def_binding, f_def_rhs)) lthy; |
264 |
265 |
265 val eqn = HOLogic.mk_eq (list_comb (f, args), |
266 val eqn = HOLogic.mk_eq (list_comb (f, args), |