From 03871e9fcd3e5dfa66a25484755f6544be3354ba Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 5 Oct 2001 14:27:01 +0000
Subject: Test de dépendances de ClearBody

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2102 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/failure/ClearBody.v | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 test-suite/failure/ClearBody.v

diff --git a/test-suite/failure/ClearBody.v b/test-suite/failure/ClearBody.v
new file mode 100644
index 0000000000..ca8e3c6824
--- /dev/null
+++ b/test-suite/failure/ClearBody.v
@@ -0,0 +1,8 @@
+(* ClearBody must check that removing the body of definition does not
+   invalidate the well-typabilility of the visible goal *)
+
+Goal True.
+LetTac n:=O.
+LetTac I:=(refl_equal nat O).
+Change (n=O) in (Type of I).
+ClearBody n.
-- 
cgit v1.2.3