diff options
| author | coq | 2002-08-16 10:00:36 +0000 |
|---|---|---|
| committer | coq | 2002-08-16 10:00:36 +0000 |
| commit | b1eef69751a05eebdbdc9d3091e1dae3386218d0 (patch) | |
| tree | e7c3c7b3657f1d15e6931e71f77d1da4114d2b2c /kernel/declarations.ml | |
| parent | a1858ecd34bd7946dab7e7fbf2413036f78f7109 (diff) | |
Strengthenning rules for modules + No modules in sections
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2969 85f007b7-540e-0410-9357-904b9bb8a0f7
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; } |