diff options
Diffstat (limited to 'checker/indtypes.ml')
| -rw-r--r-- | checker/indtypes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/indtypes.ml b/checker/indtypes.ml index e48fdb6ef0..c12c54cfd9 100644 --- a/checker/indtypes.ml +++ b/checker/indtypes.ml @@ -177,9 +177,9 @@ let check_predicativity env s small level = Type u, _ -> let u' = fresh_local_univ () in let cst = - merge_constraints (enforce_geq u' u empty_constraint) + merge_constraints (enforce_leq u u' empty_constraint) (universes env) in - if not (check_geq cst u' level) then + if not (check_leq cst level u') then failwith "impredicative Type inductive type" | Prop Pos, Some ImpredicativeSet -> () | Prop Pos, _ -> |