diff options
| author | Arnaud Spiwack | 2015-06-22 13:42:13 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-06-24 17:55:47 +0200 |
| commit | 8589b9b487c1e9b996975bd5dc58f548d0d9280c (patch) | |
| tree | f3a8ed36341e62d02f2c526df53e214ef6e23fee /kernel/indtypes.ml | |
| parent | 9420069e4d0bf3bf377c950bbc41ea762fbcfce8 (diff) | |
Add a field in `mutual_inductive_body` to represent mutual inductive whose positivity is assumed.
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 92e121402a..72b615cc89 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -857,6 +857,7 @@ let build_inductive env p prv ctx env_ar params kn isrecord isfinite inds nmr re mind_polymorphic = p; mind_universes = ctx; mind_private = prv; + mind_checked_positive = true; } (************************************************************************) |