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 *)