diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-06 11:47:12 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-06 11:47:12 +0000 |
| commit | c0fd6794e39fb068c8180126568a33d0d670c7df (patch) | |
| tree | 30e0ebfb7845c47b0f84820b828f169d4f041a65 /tactics | |
| parent | 6728cd866c614f3d3cea373b8972eedbfc82b968 (diff) | |
message d'erreur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1070 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 28e53c058..b54fd0a63 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -693,7 +693,7 @@ let letin_tac with_eq name c occs gl = let id = if name = Anonymous then next_global_ident_away x used_ids else if not (mem_named_context x (named_context env)) then x else - error ("Variable "^(string_of_id x)^" is already declared") in + error ("The variable "^(string_of_id x)^" is already declared") in let (depdecls,marks,ccl)= letin_abstract id c occs gl in let t = pf_type_of gl c in let heq = next_global_ident_away (id_of_string "Heq") used_ids in |