equal
deleted
inserted
replaced
369 Toplevel.keep (fn state => |
369 Toplevel.keep (fn state => |
370 let val ctxt = Toplevel.context_of state |
370 let val ctxt = Toplevel.context_of state |
371 in Pretty.writeln (Simplifier.pretty_ss ctxt (simpset_of ctxt)) end); |
371 in Pretty.writeln (Simplifier.pretty_ss ctxt (simpset_of ctxt)) end); |
372 |
372 |
373 val print_rules = Toplevel.unknown_context o |
373 val print_rules = Toplevel.unknown_context o |
374 Toplevel.keep (ContextRules.print_rules o Toplevel.context_of); |
374 Toplevel.keep (Context_Rules.print_rules o Toplevel.context_of); |
375 |
375 |
376 val print_trans_rules = Toplevel.unknown_context o |
376 val print_trans_rules = Toplevel.unknown_context o |
377 Toplevel.keep (Calculation.print_rules o Toplevel.context_of); |
377 Toplevel.keep (Calculation.print_rules o Toplevel.context_of); |
378 |
378 |
379 val print_methods = Toplevel.unknown_theory o |
379 val print_methods = Toplevel.unknown_theory o |