diff options
| author | herbelin | 2008-06-14 15:41:18 +0000 |
|---|---|---|
| committer | herbelin | 2008-06-14 15:41:18 +0000 |
| commit | 4c5baa34e6fd790197c7bd6297b98ff63031d1fa (patch) | |
| tree | 7343660c93ef611da00ad10fc838bd8be6c86c40 /pretyping/termops.ml | |
| parent | 092872618ffbeb3d6dbcae6770cbb3c7b53fa7a2 (diff) | |
Correction bug 1878 (utilisation de extend_evar déplacée là où une
restriction du contexte était attendue) + suppression warning +
amélioration affichage en cas de clause "at" incorrecte + report
commit 11121 (correction bug 1367) de la 8.2 vers le trunk.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11128 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/termops.ml')
| -rw-r--r-- | pretyping/termops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 44c63ba0e6..73c03097af 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -631,6 +631,7 @@ let all_occurrences = (false,[]) let no_occurrences_in_set = (true,[]) let error_invalid_occurrence l = + let l = list_uniquize (List.sort Pervasives.compare l) in errorlabstrm "" (str ("Invalid occurrence " ^ plural (List.length l) "number" ^": ") ++ prlist_with_sep spc int l) |