equal
deleted
inserted
replaced
330 map_types (map_type_tvar (fn ((a, i), S) => |
330 map_types (map_type_tvar (fn ((a, i), S) => |
331 TFree (if i = 0 then a else a ^ "_" ^ string_of_int i, S))) |
331 TFree (if i = 0 then a else a ^ "_" ^ string_of_int i, S))) |
332 |
332 |
333 fun thms_of all thy = |
333 fun thms_of all thy = |
334 filter |
334 filter |
335 (fn th => (all orelse Context.theory_name (Thm.theory_of_thm th) = Context.theory_name thy) |
335 (fn th => (all orelse Thm.theory_name_of_thm th = Context.theory_name thy) |
336 (* andalso is_executable_thm thy th *)) |
336 (* andalso is_executable_thm thy th *)) |
337 (map snd (filter_out is_forbidden_theorem (Global_Theory.all_thms_of thy false))) |
337 (map snd (filter_out is_forbidden_theorem (Global_Theory.all_thms_of thy false))) |
338 |
338 |
339 fun elapsed_time description e = |
339 fun elapsed_time description e = |
340 let val ({elapsed, ...}, result) = Timing.timing e () |
340 let val ({elapsed, ...}, result) = Timing.timing e () |