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 /kernel/indtypes.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 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index ada7c2c512..1aa6e8cda1 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -245,8 +245,7 @@ let typecheck_inductive env mie = begin match kind_of_term c with | Sort (Type u) -> if List.mem (Some u) l then - (** FIXME *) - None :: List.map (function Some v when Pervasives.(=) u v -> None | x -> x) l + None :: List.map (function Some v when Universe.equal u v -> None | x -> x) l else Some u :: l | _ -> |