--- a/src/HOL/Tools/Lifting/lifting_info.ML Mon Nov 03 14:31:15 2014 +0100
+++ b/src/HOL/Tools/Lifting/lifting_info.ML Mon Nov 03 14:50:27 2014 +0100
@@ -532,11 +532,11 @@
(* outer syntax commands *)
val _ =
- Outer_Syntax.improper_command @{command_spec "print_quot_maps"} "print quotient map functions"
+ Outer_Syntax.command @{command_spec "print_quot_maps"} "print quotient map functions"
(Scan.succeed (Toplevel.keep (print_quot_maps o Toplevel.context_of)))
val _ =
- Outer_Syntax.improper_command @{command_spec "print_quotients"} "print quotients"
+ Outer_Syntax.command @{command_spec "print_quotients"} "print quotients"
(Scan.succeed (Toplevel.keep (print_quotients o Toplevel.context_of)))
end