From cbe658b0bdc3cdfcf768b0e8b84638c1df9bf8dc Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 6 Nov 2002 09:20:30 +0000
Subject: Test de la correction d'un bug soumis par Dachuan Yu

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

diff --git a/test-suite/success/Inversion.v b/test-suite/success/Inversion.v
new file mode 100644
index 0000000000..96ac86830b
--- /dev/null
+++ b/test-suite/success/Inversion.v
@@ -0,0 +1,15 @@
+(* Submitted by Dachuan Yu (bug #220) *)
+Fixpoint T[n:nat] : Type := 
+ Cases n of 
+ | O => (nat -> Prop) 
+ | (S n') => (T n') 
+ end. 
+Inductive R : (n:nat)(T n) -> nat -> Prop := 
+  | RO : (Psi:(T O); l:nat) 
+          (Psi l) -> (R O Psi l) 
+  | RS : (n:nat; Psi:(T (S n)); l:nat) 
+          (R n Psi l) -> (R (S n) Psi l). 
+Definition Psi00 : (nat -> Prop) := [n:nat] False. 
+Definition Psi0 : (T O) := Psi00. 
+Lemma Inversion_RO : (l:nat)(R O Psi0 l) -> (Psi00 l).
+Inversion 1.
-- 
cgit v1.2.3