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) =>