From 2c18da20b260c55d8da49b1bb4f53e72dbc75a87 Mon Sep 17 00:00:00 2001
From: Vincent Laporte
Date: Wed, 24 Apr 2019 11:37:42 +0000
Subject: Revert #9249

---
 lib/util.ml | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index 0389336258..38d73d3453 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -20,12 +20,6 @@ let on_pi1 f (a,b,c) = (f a,b,c)
 let on_pi2 f (a,b,c) = (a,f b,c)
 let on_pi3 f (a,b,c) = (a,b,f c)
 
-(* Comparing pairs *)
-
-let pair_compare cmpx cmpy (x1,y1 as p1) (x2,y2 as p2) =
-  if p1 == p2 then 0 else
-  let c = cmpx x1 x2 in if c == 0 then cmpy y1 y2 else c
-
 (* Projections from triplets *)
 
 let pi1 (a,_,_) = a
-- 
cgit v1.2.3