diff options
| author | ppedrot | 2012-11-26 15:52:30 +0000 |
|---|---|---|
| committer | ppedrot | 2012-11-26 15:52:30 +0000 |
| commit | 49c4c49a402c6ec826a506903fcfab1bbd96e080 (patch) | |
| tree | 1c93875b77cb03c51f9c0bb79ca13444e15d8b70 /pretyping/evd.ml | |
| parent | 187210bf8c6d4510b2228fbe4439cd23108c98a1 (diff) | |
Removed some FIXME related to equality on universes.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16007 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 1c9573ca31..8849f17699 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -514,15 +514,15 @@ let univ_of_sort = function | Prop Null -> Univ.type0m_univ let is_eq_sort s1 s2 = - if Pervasives.(=) s1 s2 then None (* FIXME *) + if Int.equal (sorts_ord s1 s2) 0 then None (* FIXME *) else let u1 = univ_of_sort s1 and u2 = univ_of_sort s2 in - if Pervasives.(=) u1 u2 then None (* FIXME *) + if Univ.Universe.equal u1 u2 then None else Some (u1, u2) let is_univ_var_or_set u = - Univ.is_univ_variable u || Pervasives.(=) u Univ.type0_univ (** FIXME *) + Univ.is_univ_variable u || Univ.is_type0_univ u let set_leq_sort ({evars = (sigma, (us, sm))} as d) s1 s2 = match is_eq_sort s1 s2 with |