diff options
| author | Pierre Letouzey | 2015-05-12 17:22:09 +0200 |
|---|---|---|
| committer | Pierre Letouzey | 2015-05-12 17:28:34 +0200 |
| commit | f480f07c232b4bcc4ea67bf0577e267d0fdc35f4 (patch) | |
| tree | 5a2fee3425393875a3f836119126661d5c1d10e2 /kernel/inductive.ml | |
| parent | e0a245daa30a3204ee487fe6f8d20a0674a2398c (diff) | |
Fix my previous commit on ~polyprop
Oups, sorry, I should have compiled the stdlib in full. Not only
the ~polyprop wasn't propagated properly, but Matthieu made it be
false by default somewhere instead of true. Argl...
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 088b99b9e0..4c1614bac1 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -213,7 +213,7 @@ let constrained_type_of_inductive_knowing_parameters env ((mib,mip),u as pind) a let cst = instantiate_inductive_constraints mib u in (ty, cst) -let type_of_inductive_knowing_parameters env ?(polyprop=false) mip args = +let type_of_inductive_knowing_parameters env ?(polyprop=true) mip args = type_of_inductive_gen ~polyprop env mip args (* The max of an array of universes *) |