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 +++
 2 files changed, 6 insertions(+)
 create mode 100644 test-suite/failure/rewrite_in_goal.v
 create mode 100644 test-suite/failure/rewrite_in_hyp.v

(limited to 'test-suite/failure')

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.
-- 
cgit v1.2.3