3 files changed, 3 insertions, 6 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml
index bdddf310dc..823082aced 100644
--- a/proofs/proofview.ml
+++ b/proofs/proofview.ml
@@ -686,7 +686,7 @@ module Goal = struct
 
   let env { env=env } = env
   let sigma { sigma=sigma } = sigma
-  let hyps { hyps=hyps } = hyps
+  let hyps { hyps=hyps } = Environ.named_context_of_val hyps
   let concl { concl=concl } = concl
 
   let lift s =
diff --git a/proofs/proofview.mli b/proofs/proofview.mli
index c9296e694f..0504efea57 100644
--- a/proofs/proofview.mli
+++ b/proofs/proofview.mli
@@ -288,7 +288,7 @@ module Goal : sig
   type t
 
   val concl : t -> Term.constr
-  val hyps : t -> Environ.named_context_val
+  val hyps : t -> Context.named_context
   val env : t -> Environ.env
   val sigma : t -> Evd.evar_map
 
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml
index 4928ffcfe8..ae0d1039b6 100644
--- a/proofs/tacmach.ml
+++ b/proofs/tacmach.ml
@@ -215,7 +215,6 @@ module New = struct
 
   let pf_global id gl =
     let hyps = Proofview.Goal.hyps gl in
-    let hyps = Environ.named_context_of_val hyps in
     Constrintern.construct_reference hyps id
 
 
@@ -225,7 +224,6 @@ module New = struct
 
   let pf_ids_of_hyps gl =
     let hyps = Proofview.Goal.hyps gl in
-    let hyps = Environ.named_context_of_val hyps in
     ids_of_named_context hyps
 
   let pf_get_new_id id gl =
@@ -234,7 +232,6 @@ module New = struct
 
   let pf_get_hyp id gl =
     let hyps = Proofview.Goal.hyps gl in
-    let hyps = Environ.named_context_of_val hyps in
     let sign =
       try Context.lookup_named id hyps
       with Not_found -> Errors.error ("No such hypothesis: " ^ (string_of_id id))
@@ -252,6 +249,6 @@ module New = struct
 
   let pf_last_hyp gl =
     let hyps = Proofview.Goal.hyps gl in
-    List.hd (Environ.named_context_of_val hyps)
+    List.hd hyps
 
 end