From 0f365a09ce2cb8fc29f7177fe738ec1035d9ef0e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 4 Sep 2007 09:05:32 +0000
Subject: Utilisation d'un nouvel algorithme plus raffiné pour prendre en
 compte les alias de variables dans la fonction d'inversion des instance
 (real_clean): - détection des cas d'inversions distinctes incompatibles -
 nouvelle heuristique lorsque plusieurs inversions distinctes mais  
 compatibles existent

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10111 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml  | 8 ++++++++
 lib/util.mli | 1 +
 2 files changed, 9 insertions(+)

(limited to 'lib')

diff --git a/lib/util.ml b/lib/util.ml
index 7e59d1474c..1d1c5e060b 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -378,6 +378,14 @@ let rec list_split3 = function
   | (x,y,z)::l ->
       let (rx, ry, rz) = list_split3 l in (x::rx, y::ry, z::rz)
 
+let rec list_insert_in_class f a = function
+  | [] -> [[a]]
+  | (b::_ as l)::classes when f a b -> (a::l)::classes
+  | l::classes -> l :: list_insert_in_class f a classes
+
+let list_partition_by f l =
+  List.fold_right (list_insert_in_class f) l []
+
 let list_firstn n l =
   let rec aux acc = function
     | (0, l) -> List.rev acc
diff --git a/lib/util.mli b/lib/util.mli
index 986c8e31a0..6d6d9c2a85 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -125,6 +125,7 @@ val list_merge_uniq : ('a -> 'a -> int) -> 'a list -> 'a list -> 'a list
 val list_subset : 'a list -> 'a list -> bool
 val list_splitby : ('a -> bool) -> 'a list -> 'a list * 'a list
 val list_split3 : ('a * 'b * 'c) list -> 'a list * 'b list * 'c list
+val list_partition_by : ('a -> 'a -> bool) -> 'a list -> 'a list list
 val list_firstn : int -> 'a list -> 'a list
 val list_last : 'a list -> 'a
 val list_lastn : int -> 'a list -> 'a list
-- 
cgit v1.2.3