diff options
| author | Matthieu Sozeau | 2013-10-30 19:28:55 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:58:54 +0200 |
| commit | 1c1accf7186438228be9c426db9071aa95a7e992 (patch) | |
| tree | 67fae89d05072db6249fdf59325d3691a09dbea6 /kernel/inductive.ml | |
| parent | 001ff72b2c17fb7b2fcaefa2555c115f0d909a03 (diff) | |
Properly reinstate old-style polymorphism in the kernel and pretyping/retyping.
TODO fix interface on knowing_parameters to avoid useless array allocations.
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 9862ffd3eb..64a6f1e17b 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -237,6 +237,11 @@ let constrained_type_of_inductive env ((mib,mip),u as pind) = let cst = instantiate_inductive_constraints mib subst in (ty, cst) +let constrained_type_of_inductive_knowing_parameters env ((mib,mip),u as pind) args = + let ty, subst = type_of_inductive_gen env pind args in + let cst = instantiate_inductive_constraints mib subst in + (ty, cst) + let type_of_inductive_knowing_parameters env ?(polyprop=false) mip args = fst (type_of_inductive_gen env mip args) |