From b24dc058d2d28261308d0d4af8c380780419ecf5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 15 Jan 2002 17:13:42 +0000
Subject: Test le filtrage dépendant vers l'avant

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

diff --git a/test-suite/success/CasesDep.v b/test-suite/success/CasesDep.v
index 5cb447f9fb..84f58ba741 100644
--- a/test-suite/success/CasesDep.v
+++ b/test-suite/success/CasesDep.v
@@ -1,3 +1,10 @@
+(* Check forward dependencies *)
+
+Check [P:nat->Prop][Q][A:(P O)->Q][B:(n:nat)(P (S n))->Q][x]
+  <[_]Q>Cases x of 
+  | (exist O H) => (A H)
+  | (exist (S n) H) => (B n H)
+  end.
 
 (* -------------------------------------------------------------------- *)
 (*   Example to test patterns matching on dependent families            *)     (* This exemple extracted from the developement done by Nacira Chabane  *)
-- 
cgit v1.2.3