From 4267ff3c8365584620c47b2a31ff5060a129560f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 12 Oct 2000 16:24:54 +0000
Subject: Hypotheses des ind oubliees dans le discharge

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@702 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/discharge.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml
index 805e4ffc00..17ccac01d5 100644
--- a/toplevel/discharge.ml
+++ b/toplevel/discharge.ml
@@ -236,7 +236,8 @@ let process_inductive osecsp nsecsp oldenv (ids_to_discard,modlist) mib =
 	    (Array.map (expmod_type oldenv modlist) (mind_user_lc mip))))
       mib.mind_packets
   in
-  let (inds',modl) = abstract_inductive ids_to_discard mib.mind_hyps inds in
+  let hyps' = map_var_context (expmod_constr oldenv modlist) mib.mind_hyps in
+  let (inds',modl) = abstract_inductive ids_to_discard hyps' inds in
   let lmodif_one_mind i = 
     let nbc = Array.length (mind_nth_type_packet mib i).mind_consnames in 
     (IndRef (osecsp,i), DO_ABSTRACT (IndRef(nsecsp,i),modl))::
-- 
cgit v1.2.3