diff options
| author | herbelin | 2009-12-13 18:27:14 +0000 |
|---|---|---|
| committer | herbelin | 2009-12-13 18:27:14 +0000 |
| commit | fe26f76e49aabecefde48508a08c8750c77ec021 (patch) | |
| tree | 3ebf2c27d4698253734c26e6428e9a8738a7aba5 /tactics | |
| parent | 2b0344289bc317d973c8f384e539923da0551150 (diff) | |
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
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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 *) |