diff options
| author | Matthieu Sozeau | 2014-09-05 16:52:38 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-09-05 16:53:56 +0200 |
| commit | 901ff5c7cb30165ccf5a8e8d62eb3e775d3e962c (patch) | |
| tree | d6a68322929e833aae615e4cefb698f42f81b7ad /kernel/closure.ml | |
| parent | 581cbe36191901f1dc234fe77d619abfe7b8de34 (diff) | |
Rename eta_expand_ind_stacks, fix the one from the checker and adapt
it to the new representation of projections and the new mind_finite
type.
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index d0a9ffd642..8851ea2b66 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -854,7 +854,7 @@ let rec get_parameters depth n argstk = (* strip_update_shift_app only produces Zapp and Zshift items *) -(** [eta_expand_ind_stacks env ind c s t] computes stacks correspoding +(** [eta_expand_ind_stack env ind c s t] computes stacks correspoding to the conversion of the eta expansion of t, considered as an inhabitant of ind, and the Constructor c of this inductive type applied to arguments s. @@ -863,7 +863,7 @@ let rec get_parameters depth n argstk = @raises Not_found if the inductive is not a primitive record, or if the constructor is partially applied. *) -let eta_expand_ind_stacks env ind m s (f, s') = +let eta_expand_ind_stack env ind m s (f, s') = let mib = lookup_mind (fst ind) env in match mib.Declarations.mind_record with | Some (projs,pbs) when Array.length projs > 0 |