From a3b12cf58806d6908d3cac7b9133a6d1ff49b29c Mon Sep 17 00:00:00 2001
From: letouzey
Date: Sun, 16 Nov 2008 15:30:07 +0000
Subject: Univ: two < instead of a Pervasives.compare on int (as suggested by
 X. Leroy)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11595 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/univ.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index 58266a50f2..65fc78203b 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -51,8 +51,9 @@ let cmp_univ_level u v = match u,v with
   | Set, _ -> -1
   | _, Set -> 1
   | Level (dp1,i1), Level (dp2,i2) ->
-      let c = compare i1 i2 in
-      if c = 0 then compare dp1 dp2 else c
+      if i1 < i2 then -1
+      else if i1 > i2 then 1
+      else compare dp1 dp2
 
 type universe =
   | Atom of universe_level
-- 
cgit v1.2.3