les variables existentielles contiennent maintenant un environnement (type

unsafe_env) et non pas seulement une signature. Le module Evd vient donc apres
le module Environ.


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@108 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 2 deletions

diff --git a/kernel/instantiate.ml b/kernel/instantiate.ml
index acc48bcb0..0cdc50c56 100644
--- a/kernel/instantiate.ml
+++ b/kernel/instantiate.ml
@@ -71,13 +71,13 @@ let name_of_existential n = id_of_string ("?" ^ string_of_int n)
 let existential_type sigma c =
   let (n,args) = destEvar c in
   let info = Evd.map sigma n in
-  let hyps = info.evar_hyps in
+  let hyps = evar_hyps info in
   instantiate_constr (ids_of_sign hyps) info.evar_concl (Array.to_list args)
 
 let existential_value sigma c =
   let (n,args) = destEvar c in
   let info = Evd.map sigma n in
-  let hyps = info.evar_hyps in
+  let hyps = evar_hyps info in
   match info.evar_body with
     | Evar_defined c ->
 	instantiate_constr (ids_of_sign hyps) c (Array.to_list args)