equal
deleted
inserted
replaced
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); |