diff options
| author | Pierre Letouzey | 2015-05-12 16:48:01 +0200 |
|---|---|---|
| committer | Pierre Letouzey | 2015-05-12 17:08:25 +0200 |
| commit | 95b4a54ec6a9aacffe8c11df1b443d36b9f6dda7 (patch) | |
| tree | 5413999a61ff5eb635a581fc1d2ae41ebe74d54a /kernel/inductive.ml | |
| parent | 20fd4f91c5096d2f9c06f2bdca23127be4d81aad (diff) | |
Extraction: fix the detection of the "polyprop" situation
The ~polyprop argument wasn't propagated properly anymore,
leading the extraction to try to operate on situations it cannot
handle (yet). Cf Table.error_singleton_become_prop for more details.
Regression test added.
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index ca814f497c..088b99b9e0 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -214,7 +214,7 @@ let constrained_type_of_inductive_knowing_parameters env ((mib,mip),u as pind) a (ty, cst) let type_of_inductive_knowing_parameters env ?(polyprop=false) mip args = - type_of_inductive_gen env mip args + type_of_inductive_gen ~polyprop env mip args (* The max of an array of universes *) |