From 3aa6b093a6494cc1ee3cf741a6aa4427e79761e2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 8 Aug 2001 15:15:16 +0000
Subject: Ajout nf_betaiota dans le cut interne

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

diff --git a/proofs/logic.ml b/proofs/logic.ml
index 36c928094d..40dce23495 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -381,7 +381,7 @@ let prim_refiner r sigma goal =
 	
     | { name = Cut b; terms = [t]; newids = [id] } ->
         if occur_meta t then error_use_instantiate();
-        let sg1 = mk_goal info sign t in
+        let sg1 = mk_goal info sign (nf_betaiota t) in
         let sg2 = mk_goal info (add_named_decl (id,None,t) sign) cl in
         if b then [sg1;sg2] else [sg2;sg1]  
 
-- 
cgit v1.2.3