diff options
| author | Matthieu Sozeau | 2014-06-25 13:06:14 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-25 13:06:14 +0200 |
| commit | 41b3d9d0432ae3522ed14e69b38dcf405a31df8c (patch) | |
| tree | b3dec747d94bf2ae8032944d4f48e1af7ba5b0ae /kernel | |
| 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')
| -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 7c9a5ca322..1e7d2c83cb 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 |