diff options
author | Arnaud Spiwack <arnaud@spiwack.net> | 2015-06-22 13:42:13 +0200 |
---|---|---|
committer | Arnaud Spiwack <arnaud@spiwack.net> | 2015-06-24 17:55:47 +0200 |
commit | 8589b9b487c1e9b996975bd5dc58f548d0d9280c (patch) | |
tree | f3a8ed36341e62d02f2c526df53e214ef6e23fee /kernel/declareops.ml | |
parent | 9420069e4d0bf3bf377c950bbc41ea762fbcfce8 (diff) |
Add a field in `mutual_inductive_body` to represent mutual inductive whose positivity is assumed.
Diffstat (limited to 'kernel/declareops.ml')
-rw-r--r-- | kernel/declareops.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/declareops.ml b/kernel/declareops.ml index a7051d5c1..870aef1d2 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -258,7 +258,9 @@ let subst_mind_body sub mib = mind_packets = Array.smartmap (subst_mind_packet sub) mib.mind_packets ; mind_polymorphic = mib.mind_polymorphic; mind_universes = mib.mind_universes; - mind_private = mib.mind_private } + mind_private = mib.mind_private; + mind_checked_positive = mib.mind_checked_positive; + } let inductive_instance mib = if mib.mind_polymorphic then |