diff options
| author | Maxime Dénès | 2018-10-09 16:45:34 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-10-26 13:31:29 +0200 |
| commit | 8361be1d785f8588d2d3c2a0df7a1d9239bae5a1 (patch) | |
| tree | b44c6f8bed7e8f4ea09807b1239ab6ee3676aeeb /pretyping | |
| parent | e2096b9e6048bbab5c6da279bab3c3a719dc237f (diff) | |
Remove a few circumvolutions around parameters of inductive entries
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/inferCumulativity.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/inferCumulativity.ml b/pretyping/inferCumulativity.ml index a56a8314e6..422a05c19a 100644 --- a/pretyping/inferCumulativity.ml +++ b/pretyping/inferCumulativity.ml @@ -196,7 +196,7 @@ let infer_inductive env mie = Array.fold_left (fun variances u -> LMap.add u Variance.Irrelevant variances) LMap.empty uarray in - let env, _ = Typeops.infer_local_decls env params in + let env = Typeops.check_context env params in let variances = List.fold_left (fun variances entry -> let variances = infer_arity_constructor true env variances entry.mind_entry_arity |