From 2fb41f7561ead2abcff2ca31ccd3b1c88603c370 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 13 Dec 2009 15:02:23 +0000
Subject: Revision 12557 continued (better rendering of dependent rewrite)
 (expected goal was not correct for rewriting in hypotheses)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12580 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/rewrite.v | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'test-suite')

diff --git a/test-suite/success/rewrite.v b/test-suite/success/rewrite.v
index b06718251e..9bc6800724 100644
--- a/test-suite/success/rewrite.v
+++ b/test-suite/success/rewrite.v
@@ -39,7 +39,7 @@ intros n H.
 rewrite plus_0_l in H.
 Abort.
 
-(* Dependent rewrite from left-to-right *)
+(* Rewrite dependent proofs from left-to-right *)
 
 Lemma l1 :
   forall x y (H:x = y:>nat) (P:forall x y, x=y -> Type), P x y H -> P x y H.
@@ -49,7 +49,7 @@ rewrite H in H0.
 assumption.
 Qed.
 
-(* Dependent rewrite from right-to-left *)
+(* Rewrite dependent proofs from right-to-left *)
 
 Lemma l2 :
   forall x y (H:x = y:>nat) (P:forall x y, x=y -> Type), P x y H -> P x y H.
@@ -59,7 +59,7 @@ rewrite <- H in H0.
 assumption.
 Qed.
 
-(* Check dependent rewriting with non-symmetric equalities *)
+(* Check rewriting dependent proofs with non-symmetric equalities *)
 
 Lemma l3:forall x (H:eq_true x) (P:forall x, eq_true x -> Type), P x H -> P x H.
 intros x H P H0.
@@ -68,3 +68,15 @@ rewrite H in H0.
 assumption.
 Qed.
 
+(* Dependent rewrite *)
+
+Require Import JMeq.
+
+Goal forall A B (a:A) (b:B), JMeq a b -> JMeq b a -> True.  
+inversion 1; (* Goal is now [JMeq a a -> True] *) dependent rewrite H3.
+Undo.
+intros; inversion H; dependent rewrite H4 in H0.
+Undo.
+intros; inversion H; dependent rewrite <- H4 in H0.
+Abort.
+
-- 
cgit v1.2.3