src/Pure/Isar/isar_cmd.ML
changeset 33369 470a7b233ee5
parent 33290 6dcb0a970783
child 33388 d64545e6cba5
equal deleted inserted replaced
33368:b1cf34f1855c 33369:470a7b233ee5
   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