changeset 51658 | 21c10672633b |
parent 51584 | 98029ceda8ce |
child 51717 | 9e7d1c139569 |
--- a/src/Tools/induct.ML Tue Apr 09 13:55:28 2013 +0200 +++ b/src/Tools/induct.ML Tue Apr 09 15:29:25 2013 +0200 @@ -261,7 +261,7 @@ val _ = Outer_Syntax.improper_command @{command_spec "print_induct_rules"} "print induction and cases rules" - (Scan.succeed (Toplevel.no_timing o Toplevel.unknown_context o + (Scan.succeed (Toplevel.unknown_context o Toplevel.keep (print_rules o Toplevel.context_of)));