src/HOL/Tools/recdef_package.ML
changeset 12043 8c86683597a8
parent 12004 1703de633aaf
child 12109 bd6eb9194a5d
equal deleted inserted replaced
12042:1e5c01d5fe04 12043:8c86683597a8
   308     val i = if_none opt_i 1;
   308     val i = if_none opt_i 1;
   309     val tc = Library.nth_elem (i - 1, tcs) handle Library.LIST _ =>
   309     val tc = Library.nth_elem (i - 1, tcs) handle Library.LIST _ =>
   310       error ("No termination condition #" ^ string_of_int i ^
   310       error ("No termination condition #" ^ string_of_int i ^
   311         " in recdef definition of " ^ quote name);
   311         " in recdef definition of " ^ quote name);
   312   in
   312   in
   313     thy |> IsarThy.theorem_i Drule.internalK None
   313     thy |> IsarThy.theorem_i Drule.internalK (None, [])
   314       (((bname, atts), (HOLogic.mk_Trueprop tc, ([], []))), Comment.none) int
   314       (((bname, atts), (HOLogic.mk_Trueprop tc, ([], []))), Comment.none) int
   315   end;
   315   end;
   316 
   316 
   317 val recdef_tc = gen_recdef_tc Attrib.global_attribute Sign.intern_const;
   317 val recdef_tc = gen_recdef_tc Attrib.global_attribute Sign.intern_const;
   318 val recdef_tc_i = gen_recdef_tc (K I) (K I);
   318 val recdef_tc_i = gen_recdef_tc (K I) (K I);