--- a/src/HOL/Tools/Lifting/lifting_info.ML Mon Apr 06 16:30:44 2015 +0200
+++ b/src/HOL/Tools/Lifting/lifting_info.ML Mon Apr 06 17:06:48 2015 +0200
@@ -533,11 +533,11 @@
(* outer syntax commands *)
val _ =
- Outer_Syntax.command @{command_spec "print_quot_maps"} "print quotient map functions"
+ Outer_Syntax.command @{command_keyword print_quot_maps} "print quotient map functions"
(Scan.succeed (Toplevel.keep (print_quot_maps o Toplevel.context_of)))
val _ =
- Outer_Syntax.command @{command_spec "print_quotients"} "print quotients"
+ Outer_Syntax.command @{command_keyword print_quotients} "print quotients"
(Scan.succeed (Toplevel.keep (print_quotients o Toplevel.context_of)))
end