diff options
| author | herbelin | 2000-10-27 15:35:44 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-27 15:35:44 +0000 |
| commit | 871b4e63f52d1b9ccf8404862d0377109ebc8927 (patch) | |
| tree | c1e9fe5933262c874c25a93b0d0ef9bd10f99c1e | |
| parent | e1933dac58fc125f23c05ae88b8b57a54008dab6 (diff) | |
Intro choue si le nom d'hypothse existe au lieu de mettre un avertissement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@775 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |