diff options
| author | Arnaud Spiwack | 2015-06-23 09:24:43 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-06-24 17:55:47 +0200 |
| commit | 9a1e80524e1650311b019fedbd7e774242d80ea4 (patch) | |
| tree | aaffe224a7426e16ca33f4066d4c382e2c54fa0a /toplevel/command.ml | |
| parent | 8589b9b487c1e9b996975bd5dc58f548d0d9280c (diff) | |
Add a corresponding field in `mutual_inductive_entry` (part 1).
The field in `mutual_inductive_entry` requires that a mutually inductive definition be checked or not, whereas the field in `mutual_inductive_body` asserts that it has or has not been.
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 1b396d57ba..49bd37c697 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -553,7 +553,8 @@ let interp_mutual_inductive (paramsl,indl) notations poly prv finite = mind_entry_inds = entries; mind_entry_polymorphic = poly; mind_entry_private = if prv then Some false else None; - mind_entry_universes = Evd.universe_context evd }, + mind_entry_universes = Evd.universe_context evd; + mind_entry_check_positivity = true; }, impls (* Very syntactical equality *) |