src/HOL/Tools/Function/partial_function.ML
changeset 62093 bd73a2279fcd
parent 61844 007d3b34080f
child 62969 9f394a16c557
equal deleted inserted replaced
62092:9ace5f5bae69 62093:bd73a2279fcd
   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),