diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-05 15:38:50 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-05 15:38:50 +0000 |
| commit | 82b65b9c0296b20cca44c7c05865bf9750084ab8 (patch) | |
| tree | 4c92bb422145327f655bf3d89f4bcea9039a4859 /kernel/univ.ml | |
| parent | 38ac6e0eff49662636e8db6ceb5f4badbdc7795a (diff) | |
More monomorphization.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16260 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/univ.ml')
| -rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index f1d44a9a5..f0501358b 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -510,7 +510,7 @@ let merge g arcu arcv = let merge_disc g arc1 arc2 = let arcu, arcv = if arc1.rank < arc2.rank then arc2, arc1 else arc1, arc2 in let arcu, g = - if arc1.rank <> arc2.rank then arcu, g + if not (Int.equal arc1.rank arc2.rank) then arcu, g else let arcu = {arcu with rank = succ arcu.rank} in arcu, enter_arc arcu g |