From b1eef69751a05eebdbdc9d3091e1dae3386218d0 Mon Sep 17 00:00:00 2001
From: coq
Date: Fri, 16 Aug 2002 10:00:36 +0000
Subject: 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
---
 kernel/declarations.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'kernel/declarations.ml')

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;
 }
 
 
-- 
cgit v1.2.3