From 0fa88cff5bea25e13594567f2ac4a28bf07268b8 Mon Sep 17 00:00:00 2001
From: jforest
Date: Fri, 14 Apr 2006 08:13:02 +0000
Subject: replacing whd_betaiotaevar_preserving_vm_cast by
 nf_betaiotaevar_preserving_vm_cast.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8708 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/refiner.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/refiner.ml b/proofs/refiner.ml
index f4ed6694e5..0bb4a9735f 100644
--- a/proofs/refiner.ml
+++ b/proofs/refiner.ml
@@ -768,7 +768,7 @@ let extract_pftreestate pts =
       else
         str "Attempt to save a proof with existential variables still non-instantiated");
   let env = Global.env_of_context pts.tpf.goal.evar_hyps in
-  strong whd_betaiotaevar_preserving_vm_cast env pts.tpfsigma pfterm
+  nf_betaiotaevar_preserving_vm_cast env pts.tpfsigma pfterm
   (* strong whd_betaiotaevar env pts.tpfsigma pfterm *)
   (***
   local_strong (Evarutil.whd_ise (ts_it pts.tpfsigma)) pfterm
-- 
cgit v1.2.3