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/termops.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/termops.ml')
| -rw-r--r-- | pretyping/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index c9a6d0b5b6..973f85818c 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -161,7 +161,7 @@ let new_Type_sort () = Type (new_univ ()) let refresh_universes_gen strict t = let modified = ref false in let rec refresh t = match kind_of_term t with - | Sort (Type u) when strict || Pervasives.(<>) u Univ.type0m_univ -> (** FIXME *) + | Sort (Type u) when strict || not (Univ.is_type0m_univ u) -> modified := true; new_Type () | Prod (na,u,v) -> mkProd (na,u,refresh v) | _ -> t in |