diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2014-06-25 13:06:14 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-06-25 13:06:14 +0200 |
commit | 41b3d9d0432ae3522ed14e69b38dcf405a31df8c (patch) | |
tree | b3dec747d94bf2ae8032944d4f48e1af7ba5b0ae /kernel/univ.ml | |
parent | b8b6970da464ebd222f05992f77da641bf98591d (diff) |
Fix type_of_inductive_knowing_conclusion, relying on an actually broken univ_depends.
Also add a missing constraint when generating a fresh universe for a template polymorphic
inductive in that case.
Diffstat (limited to 'kernel/univ.ml')
-rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 7c9a5ca32..1e7d2c83c 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -223,7 +223,7 @@ module HList = struct let rec mem e l = match l.Hcons.node with | Nil -> false - | Cons (x, ll) -> x == e || mem e ll + | Cons (x, ll) -> H.equal x e || mem e ll let rec compare cmp l1 l2 = if l1 == l2 then 0 |