diff options
| -rw-r--r-- | tactics/tactics.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 8264af76d2..3efb6393b5 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -285,10 +285,7 @@ let rec intro_gen name_flag move_flag force_flag gl = | IBasedOn (id,idl) -> fresh_id idl id gl | IMustBe id -> let id' = fresh_id [] id gl in - if id' <> id then warning - ((string_of_id id)^ - " is already used; changed to "^(string_of_id id')); - id' + if id' <> id then error ((string_of_id id)^" is already used") in begin match move_flag with | None -> introduction id gl |