diff options
| author | Vincent Laporte | 2019-04-24 11:37:42 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2019-04-29 09:51:05 +0000 |
| commit | 2c18da20b260c55d8da49b1bb4f53e72dbc75a87 (patch) | |
| tree | 0621fa3e706a676053c076f90c73f8e042226e6d /lib/util.ml | |
| parent | 4e25d51b89b66d4b9c982e85a5de9645e7e537ad (diff) | |
Revert #9249
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 6 |
1 files changed, 0 insertions, 6 deletions
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 |