diff options
| author | Gaëtan Gilbert | 2019-10-29 13:50:47 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-12-16 11:52:46 +0100 |
| commit | 4f1d657f42957d0c2d115424564eedf599584cbc (patch) | |
| tree | 7ff261e020f8c5e09720e1a7a5015fd4f1723da2 /kernel/safe_typing.ml | |
| parent | b621bc02657bd1effcca371b56260b0a7a327ed9 (diff) | |
Remove variance info from inductive entries, infer in indtyping
It gets thrown away if the inductive is declared in a section anyway,
and there is no user syntax to specify it.
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 759feda9ab..d04f43f5bd 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -1015,7 +1015,6 @@ let close_section senv = | `Inductive (ind, mib) -> let info = cooking_info (Section.segment_of_inductive env0 ind sections0) in let mie = Cooking.cook_inductive info mib in - let mie = InferCumulativity.infer_inductive senv.env mie in let _, senv = add_mind (MutInd.label ind) mie senv in senv in |