352 | _ => ProofDisplay.print_theorems)); |
352 | _ => ProofDisplay.print_theorems)); |
353 |
353 |
354 val print_theorems = Toplevel.unknown_context o print_theorems_theory o print_theorems_proof; |
354 val print_theorems = Toplevel.unknown_context o print_theorems_theory o print_theorems_proof; |
355 |
355 |
356 val print_locales = Toplevel.unknown_theory o |
356 val print_locales = Toplevel.unknown_theory o |
357 Toplevel.keep (NewLocale.print_locales o Toplevel.theory_of); |
357 Toplevel.keep (Locale.print_locales o Toplevel.theory_of); |
358 |
358 |
359 fun print_locale (show_facts, name) = Toplevel.unknown_theory o |
359 fun print_locale (show_facts, name) = Toplevel.unknown_theory o |
360 Toplevel.keep (fn state => |
360 Toplevel.keep (fn state => |
361 NewLocale.print_locale (Toplevel.theory_of state) show_facts name); |
361 Locale.print_locale (Toplevel.theory_of state) show_facts name); |
362 |
362 |
363 fun print_registrations show_wits name = Toplevel.unknown_context o |
363 fun print_registrations show_wits name = Toplevel.unknown_context o |
364 Toplevel.keep (Toplevel.node_case |
364 Toplevel.keep (Toplevel.node_case |
365 (Context.cases (Locale.print_registrations show_wits name o ProofContext.init) |
365 (Context.cases (Old_Locale.print_registrations show_wits name o ProofContext.init) |
366 (Locale.print_registrations show_wits name)) |
366 (Old_Locale.print_registrations show_wits name)) |
367 (Locale.print_registrations show_wits name o Proof.context_of)); |
367 (Old_Locale.print_registrations show_wits name o Proof.context_of)); |
368 |
368 |
369 val print_attributes = Toplevel.unknown_theory o |
369 val print_attributes = Toplevel.unknown_theory o |
370 Toplevel.keep (Attrib.print_attributes o Toplevel.theory_of); |
370 Toplevel.keep (Attrib.print_attributes o Toplevel.theory_of); |
371 |
371 |
372 val print_simpset = Toplevel.unknown_context o |
372 val print_simpset = Toplevel.unknown_context o |