diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2017-07-26 17:21:34 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2017-07-26 17:21:34 +0200 |
| commit | 6849cac7fe278c5b4238970160f754505f42773a (patch) | |
| tree | 16c0d277b0220a5a474fb5331a9fac49ef7dcd1c /kernel/inductive.ml | |
| parent | bd1a0abf49fe67e7f02dc562d4b81d27ed6f606c (diff) | |
kernel: bugfix in filter_stack_domain.
It did not consider that the argument might be higher-order, e.g. [nat -> I].
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 1eaba49aa..a39307368 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -860,6 +860,8 @@ let filter_stack_domain env ci p stack = match stack, kind_of_term t with | elt :: stack', Prod (n,a,c0) -> let d = LocalAssum (n,a) in + let ctx, a = dest_prod_assum env a in + let env = push_rel_context ctx env in let ty, args = decompose_app (whd_all env a) in let elt = match kind_of_term ty with | Ind ind -> |