From f4c935fffa04b2007d8d8bf7b9eafc3a72ac8cf4 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 22 Mar 2012 13:22:09 +0000
Subject: 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
---
 checker/typeops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'checker/typeops.ml')

diff --git a/checker/typeops.ml b/checker/typeops.ml
index b904e0b68..98f071fa0 100644
--- a/checker/typeops.ml
+++ b/checker/typeops.ml
@@ -256,7 +256,7 @@ let refresh_arity env ar =
   match hd with
       Sort (Type u) when not (is_univ_variable u) ->
         let u' = fresh_local_univ() in
-        let env' = add_constraints (enforce_geq u' u empty_constraint) env in
+        let env' = add_constraints (enforce_leq u u' empty_constraint) env in
         env', mkArity (ctxt,Type u')
     | _ -> env, ar
 
-- 
cgit v1.2.3