From a252a5d44a7793ae8ed9accf582a27dcdbd1721d Mon Sep 17 00:00:00 2001
From: notin
Date: Mon, 11 Feb 2008 15:14:10 +0000
Subject: Correction d'un bug de clear

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10552 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/clear.v | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'test-suite')

diff --git a/test-suite/success/clear.v b/test-suite/success/clear.v
index 444146f7f9..8169361c4b 100644
--- a/test-suite/success/clear.v
+++ b/test-suite/success/clear.v
@@ -1,6 +1,15 @@
 Goal forall x:nat, (forall x, x=0 -> True)->True.
   intros; eapply H.
   instantiate (1:=(fun y => _) (S x)).
-  simpl.
-  clear x || trivial.
+  simpl. 
+  clear x. trivial.
 Qed.
+
+Goal forall y z, (forall x:nat, x=y -> True) -> y=z -> True.
+  intros; eapply H.
+  rename z into z'.
+  clear H0.
+  clear z'.
+  reflexivity.
+Qed.
+
-- 
cgit v1.2.3