From 4f0b038d2d4da7320b9814ac14130c94b0212a1b Mon Sep 17 00:00:00 2001
From: notin
Date: Thu, 1 Feb 2007 16:39:06 +0000
Subject: Report de la révision 9577 dans le trunk

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9578 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/clear.v      | 6 ++++++
 test-suite/success/rewrite_in.v | 8 ++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 test-suite/success/clear.v
 create mode 100644 test-suite/success/rewrite_in.v

diff --git a/test-suite/success/clear.v b/test-suite/success/clear.v
new file mode 100644
index 0000000000..444146f7f9
--- /dev/null
+++ b/test-suite/success/clear.v
@@ -0,0 +1,6 @@
+Goal forall x:nat, (forall x, x=0 -> True)->True.
+  intros; eapply H.
+  instantiate (1:=(fun y => _) (S x)).
+  simpl.
+  clear x || trivial.
+Qed.
diff --git a/test-suite/success/rewrite_in.v b/test-suite/success/rewrite_in.v
new file mode 100644
index 0000000000..29fe915ff4
--- /dev/null
+++ b/test-suite/success/rewrite_in.v
@@ -0,0 +1,8 @@
+Require Import Setoid.
+
+Goal forall (P Q : Prop) (f:P->Prop) (p:P), (P<->Q) -> f p -> True.
+  intros P Q f p H.
+  rewrite H in p || trivial.
+Qed.
+
+
-- 
cgit v1.2.3