diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-22 13:22:09 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-22 13:22:09 +0000 |
commit | f4c935fffa04b2007d8d8bf7b9eafc3a72ac8cf4 (patch) | |
tree | 78e67bff2ae35c7007a489767ba82b532812ea72 /checker/indtypes.ml | |
parent | 8ab3816d1a4302b576e7d9d144c70524d5528376 (diff) |
Univ: enforce_leq instead of enforce_geq for more uniformity
Same for check_leq instead of check_geq
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15081 85f007b7-540e-0410-9357-904b9bb8a0f7
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 e48fdb6ef..c12c54cfd 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, _ -> |