From d55921dbacdc21a640b80482fb32188fa99febe7 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 4 Sep 2014 21:11:25 +0200
Subject: Only using filtered hyps in Goal.enter.

This was probably a bug. A user-side code should never be able to observe
the difference between filtered and unfiltered hypotheses.
---
 proofs/goal.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/proofs/goal.ml b/proofs/goal.ml
index fe8096db1d..dc55c8179a 100644
--- a/proofs/goal.ml
+++ b/proofs/goal.ml
@@ -141,7 +141,7 @@ type 'a sensitive =
    as an optimisation (it shouldn't change during the evaluation). *)
 let eval t env defs gl =
   let info = content defs gl in
-  let env = Environ.reset_with_named_context (Evd.evar_hyps info) env in
+  let env = Environ.reset_with_named_context (Evd.evar_filtered_hyps info) env in
   let rdefs = ref defs in
   let r = t env rdefs gl info in
   ( r , !rdefs )
@@ -255,7 +255,7 @@ let nf_enter f = (); fun env rdefs gl info ->
     let sigma = Evd.add sigma gl.content info in
     let gl = { gl with cache = sigma } in
     let () = rdefs := sigma in
-    let hyps = Evd.evar_hyps info in
+    let hyps = Evd.evar_filtered_hyps info in
     let env = Environ.reset_with_named_context hyps env in
     f env sigma (Evd.evar_concl info) gl
 
-- 
cgit v1.2.3