aboutsummaryrefslogtreecommitdiff
path: root/checker/checkInductive.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2019-10-29 13:50:47 +0100
committerGaëtan Gilbert2019-12-16 11:52:46 +0100
commit4f1d657f42957d0c2d115424564eedf599584cbc (patch)
tree7ff261e020f8c5e09720e1a7a5015fd4f1723da2 /checker/checkInductive.ml
parentb621bc02657bd1effcca371b56260b0a7a327ed9 (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 'checker/checkInductive.ml')
-rw-r--r--checker/checkInductive.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/checkInductive.ml b/checker/checkInductive.ml
index d20eea7874..06ee4fcc7a 100644
--- a/checker/checkInductive.ml
+++ b/checker/checkInductive.ml
@@ -61,7 +61,7 @@ let to_entry (mb:mutual_inductive_body) : Entries.mutual_inductive_entry =
mind_entry_params = mb.mind_params_ctxt;
mind_entry_inds;
mind_entry_universes;
- mind_entry_variance = mb.mind_variance;
+ mind_entry_cumulative= Option.has_some mb.mind_variance;
mind_entry_private = mb.mind_private;
}