diff options
| author | letouzey | 2008-11-16 15:30:07 +0000 |
|---|---|---|
| committer | letouzey | 2008-11-16 15:30:07 +0000 |
| commit | a3b12cf58806d6908d3cac7b9133a6d1ff49b29c (patch) | |
| tree | a4391d24b009863648e8d1546d545ad1fbe1d705 /kernel | |
| parent | c2008aff6f227d9a84e45faa7ab8e421290c96d6 (diff) | |
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
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 5 |
1 files changed, 3 insertions, 2 deletions
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 |