From 8e10f3e0c08c01d67e7eaf77d1c649cc677e4bc2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 2 Jan 2009 20:03:32 +0000
Subject: Regression test for bug #1967

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11740 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/output/Existentials.out |  1 +
 test-suite/output/Existentials.v   | 14 ++++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 test-suite/output/Existentials.out
 create mode 100644 test-suite/output/Existentials.v

diff --git a/test-suite/output/Existentials.out b/test-suite/output/Existentials.out
new file mode 100644
index 0000000000..d23dd2c203
--- /dev/null
+++ b/test-suite/output/Existentials.out
@@ -0,0 +1 @@
+Existential 1 = ?3 : [n : nat  m : nat |- nat] 
diff --git a/test-suite/output/Existentials.v b/test-suite/output/Existentials.v
new file mode 100644
index 0000000000..7388468399
--- /dev/null
+++ b/test-suite/output/Existentials.v
@@ -0,0 +1,14 @@
+(* Test propagation of clear/clearbody in existential variables *)
+
+Section Test.
+
+Variable p:nat.
+Let q := S p.
+
+Goal forall n m:nat, n = m.
+intros.
+eapply eq_trans.
+clearbody q.
+clear p. (* Error ... *)
+
+Show Existentials.
-- 
cgit v1.2.3