diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/inductiveops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 5bd8b44f98..15fd226f1a 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -402,7 +402,7 @@ let is_constrained is u = let _ = merge_constraints (enforce_geq u (super u') - (enforce_geq u' is Constraint.empty)) + (enforce_geq u' is empty_constraint)) initial_universes in false with UniverseInconsistency _ -> true |