diff options
Diffstat (limited to 'checker/inductive.ml')
| -rw-r--r-- | checker/inductive.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/checker/inductive.ml b/checker/inductive.ml index 2dd76c4d3..e2c7f30ab 100644 --- a/checker/inductive.ml +++ b/checker/inductive.ml @@ -125,7 +125,9 @@ let sort_as_univ = function | Prop Pos -> type0_univ let cons_subst u su subst = - try (u, sup su (List.assoc u subst)) :: List.remove_assoc u subst + try + (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 = |