diff options
| author | herbelin | 2000-10-12 16:24:54 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-12 16:24:54 +0000 |
| commit | 4267ff3c8365584620c47b2a31ff5060a129560f (patch) | |
| tree | 695964d7709668f48965eccb73c59c5f67b259ae | |
| parent | ca4aacadcb3df85db7847ec8f721f5feffde9d4d (diff) | |
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
| -rw-r--r-- | toplevel/discharge.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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)):: |