src/Tools/induct.ML

     pretty_rules ctxt "cases pred:" casesP]
     |> Pretty.writeln_chunks
   end;
 
 val _ =
-  Outer_Syntax.improper_command @{command_spec "print_induct_rules"}
+  Outer_Syntax.command @{command_spec "print_induct_rules"}
     "print induction and cases rules"
     (Scan.succeed (Toplevel.unknown_context o
       Toplevel.keep (print_rules o Toplevel.context_of)));