From 45734a4e2d0515006ef71927ca5e7a2e20b08381 Mon Sep 17 00:00:00 2001
From: notin
Date: Fri, 13 Oct 2006 17:20:47 +0000
Subject: Adaptation des tests suite à la modification de Rewrite .. in (r9201)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9239 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/failure/rewrite_in_goal.v |  3 +++
 test-suite/failure/rewrite_in_hyp.v  |  3 +++
 test-suite/success/autorewritein.v   | 12 +++---------
 3 files changed, 9 insertions(+), 9 deletions(-)
 create mode 100644 test-suite/failure/rewrite_in_goal.v
 create mode 100644 test-suite/failure/rewrite_in_hyp.v

diff --git a/test-suite/failure/rewrite_in_goal.v b/test-suite/failure/rewrite_in_goal.v
new file mode 100644
index 0000000000..c11a6237c5
--- /dev/null
+++ b/test-suite/failure/rewrite_in_goal.v
@@ -0,0 +1,3 @@
+Goal forall T1 T2 (H:T1=T2) (f:T1->Prop) (x:T1) , f x -> Type.
+  intros until x.
+  rewrite H in x.
diff --git a/test-suite/failure/rewrite_in_hyp.v b/test-suite/failure/rewrite_in_hyp.v
new file mode 100644
index 0000000000..613d707c6c
--- /dev/null
+++ b/test-suite/failure/rewrite_in_hyp.v
@@ -0,0 +1,3 @@
+Goal forall (T1 T2 : Type) (f:T1 -> Prop) (x:T1) (H:T1=T2), f x -> 0=1.
+  intros T1 T2 f x H fx.
+  rewrite H in x.
diff --git a/test-suite/success/autorewritein.v b/test-suite/success/autorewritein.v
index 2f7d86dae1..68f2f7ce73 100644
--- a/test-suite/success/autorewritein.v
+++ b/test-suite/success/autorewritein.v
@@ -12,17 +12,11 @@ Proof.
   autorewrite with base0 in H using try (apply H; reflexivity).
 Qed.
 
-Lemma ResAck1 : forall H:(Ack 2 2 = 7 -> False), H=H -> False.
+Lemma ResAck1 : forall H:(Ack 2 2 = 7 -> False), True -> False.
 Proof.
   intros.
-  autorewrite with base0 in H using try (apply H1; reflexivity).
-Qed.
-
-Lemma ResAck2 : forall H:(Ack 2 2 = 7 -> False), H=H  -> False.
-Proof.
-  intros.
-  autorewrite with base0 in *;
-    apply H1;reflexivity.
+  autorewrite with base0 in *.
+    apply H;reflexivity.
 Qed.
 
 
-- 
cgit v1.2.3