diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2015-10-05 17:22:31 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2015-10-05 17:24:50 +0200 |
| commit | efce61af32ff1b09a21dcf88bca7d6609a0bfd27 (patch) | |
| tree | 8f6f527345f59b755da18bd87c524415999691fd /kernel | |
| parent | 92ee78086f1ca89646ac69a00256ff45fcaee22c (diff) | |
Univs: fix bug #4288, Print Sorted generated backward < constraints.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 73d323426..34eb283d7 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -1582,8 +1582,8 @@ let sort_universes orig = let sorted = LMap.fold fold compact UMap.empty in (** Add all [Type.n] nodes *) let fold i accu u = - if 0 < i then - let pred = types.(i - 1) in + if i < max then + let pred = types.(i + 1) in let arc = {univ = u; lt = [pred]; le = []; rank = 0; status = Unset; } in UMap.add u (Canonical arc) accu else accu |