diff options
| author | Maxime Dénès | 2018-11-27 11:06:18 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-11-27 11:06:18 +0100 |
| commit | 31a1fa82bfc747df0c71c93346f689def876794a (patch) | |
| tree | fac54469054681647ab0659bdfeddcdb74eda4f9 /kernel/indtypes.ml | |
| parent | 5fcf1b7dcd9b20ea7c5ad317ce2bfe4fbb5452d9 (diff) | |
| parent | ec209ea02cb8fa86f09aff88d0464c865ed7b8a5 (diff) | |
Merge PR #8986: Put -indices-matter in typing_flags
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 20c90bc05a..a4a02791b4 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -35,14 +35,6 @@ env_ar_par = env_ar + declaration of parameters nmr = ongoing computation of recursive parameters *) -(* Tell if indices (aka real arguments) contribute to size of inductive type *) -(* If yes, this is compatible with the univalent model *) - -let indices_matter = ref false - -let enforce_indices_matter () = indices_matter := true -let is_indices_matter () = !indices_matter - (* [weaker_noccur_between env n nvars t] (defined above), checks that no de Bruijn indices between [n] and [n+nvars] occur in [t]. If some such occurrences are found, then reduction is performed @@ -303,7 +295,7 @@ let typecheck_inductive env mie = let inflev = (* The level of the inductive includes levels of indices if in indices_matter mode *) - if !indices_matter + if indices_matter env then Some (cumulate_arity_large_levels env_params sign) else None in |