diff options
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 64a6f1e17b..7cf5dd62dc 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -156,8 +156,8 @@ let sort_as_univ = function let cons_subst u su subst = try - (u, Universe.sup su (List.assoc_f Universe.eq u subst)) :: - List.remove_assoc_f Universe.eq u subst + (u, sup su (List.assoc_f Universe.equal u subst)) :: + List.remove_assoc_f Universe.equal u subst with Not_found -> (u, su) :: subst let actualize_decl_level env lev t = |