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