From fe26f76e49aabecefde48508a08c8750c77ec021 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 13 Dec 2009 18:27:14 +0000
Subject: Completion of r12580 (better rendering of dependent rewrite and
 inversion).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12583 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/equality.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tactics/equality.ml b/tactics/equality.ml
index b0570215ac..86bb078296 100644
--- a/tactics/equality.ml
+++ b/tactics/equality.ml
@@ -1160,7 +1160,9 @@ let subst_tuple_term env sigma dep_pair1 dep_pair2 b =
   (* ... and use dep_pair2 to compute the expected goal *)
   let e2_list,_ = decomp_tuple_term env dep_pair2 typ in
   let pred_body = beta_applist(abst_B,proj_list) in
-  let expected_goal =  beta_applist(abst_B,List.map fst e2_list) in
+  let expected_goal = beta_applist (abst_B,List.map fst e2_list) in
+  (* Simulate now the normalisation treatment made by Logic.mk_refgoals *)
+  let expected_goal = nf_betaiota sigma expected_goal in
   pred_body,expected_goal
 
 (* Like "replace" but decompose dependent equalities *)
-- 
cgit v1.2.3