diff options
| author | filliatr | 1999-10-22 10:00:54 +0000 |
|---|---|---|
| committer | filliatr | 1999-10-22 10:00:54 +0000 |
| commit | f4475577124d04b106c50bbbb8e1c3319e8c1631 (patch) | |
| tree | 5f8aa7d3558e0357bed9fe09bc68bcc3edc51963 /lib/util.ml | |
| parent | d18d82c9e58567384ea632c77a5c1531f6d534cb (diff) | |
- module Redinfo dans library/ pour les constantes d'élimination
- module Tacred : fonctions de reductions utilisees dans les tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@114 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 0206bf887d..30f1cbeb65 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -150,6 +150,9 @@ let rec list_uniquize = function | [] -> [] | h::t -> if List.mem h t then list_uniquize t else h::(list_uniquize t) +let rec list_distinct = function + | h::t -> (not (List.mem h t)) && list_distinct t + | _ -> true (* Arrays *) |