From 23a51bab686dd0ceaa9a87b09beb49d0ee0575c4 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 14 May 2013 18:38:07 +0000
Subject: "change ... in ..." and "simpl ... in ..." now consider nested
 occurrences (possible source of incompatibilities since this alters the
 numbering of occurrences).

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

(limited to 'pretyping')

diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml
index 08d2c7cdf4..31cf52eace 100644
--- a/pretyping/tacred.ml
+++ b/pretyping/tacred.ml
@@ -897,7 +897,8 @@ let contextually byhead (occs,c) f env sigma t =
 	else not (List.mem !pos locs) in
       incr pos;
       if ok then
-	f subst env sigma t
+        let subst' = List.map (on_snd (traverse envc)) subst in
+	f subst' env sigma t
       else if byhead then
 	(* find other occurrences of c in t; TODO: ensure left-to-right *)
         let (f,l) = destApp t in
-- 
cgit v1.2.3