diff options
Diffstat (limited to 'kernel/declarations.ml')
| -rw-r--r-- | kernel/declarations.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kernel/declarations.ml b/kernel/declarations.ml index 67c0cb998f..8b11705970 100644 --- a/kernel/declarations.ml +++ b/kernel/declarations.ml @@ -84,7 +84,9 @@ type mutual_inductive_body = { mind_hyps : section_context; mind_packets : one_inductive_body array; mind_constraints : constraints; - mind_singl : constr option } + mind_singl : constr option; + mind_equiv : kernel_name option + } (* TODO: should be changed to non-coping after Term.subst_mps *) let subst_const_body sub cb = @@ -119,6 +121,7 @@ let subst_mind sub mib = mind_packets = array_smartmap (subst_mind_packet sub) mib.mind_packets ; mind_constraints = mib.mind_constraints ; mind_singl = option_app (Term.subst_mps sub) mib.mind_singl; + mind_equiv = option_app (subst_kn sub) mib.mind_equiv; } |