src/HOL/Library/refute.ML
changeset 58893 9e0ecb66d6a7
parent 58843 521cea5fa777
child 59352 63c02d051661
--- a/src/HOL/Library/refute.ML	Mon Nov 03 14:31:15 2014 +0100
+++ b/src/HOL/Library/refute.ML	Mon Nov 03 14:50:27 2014 +0100
@@ -2967,7 +2967,7 @@
 (* 'refute' command *)
 
 val _ =
-  Outer_Syntax.improper_command @{command_spec "refute"}
+  Outer_Syntax.command @{command_spec "refute"}
     "try to find a model that refutes a given subgoal"
     (scan_parms -- Scan.optional Parse.nat 1 >>
       (fn (parms, i) =>