From deb5eb5575efa9dc4b50e3ea798466428d0eeda2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 14 Apr 2004 15:42:57 +0000
Subject: Ajout exemple Bruno

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

diff --git a/test-suite/success/CasesDep.v b/test-suite/success/CasesDep.v
index 07c9dbf242..0256280cea 100644
--- a/test-suite/success/CasesDep.v
+++ b/test-suite/success/CasesDep.v
@@ -391,3 +391,15 @@ end.
 (* ------------------------------------------------------------------ *)
 
 End Sig.
+
+(* Exemple soumis par Bruno *)
+
+Definition bProp [b:bool] : Prop :=
+  if b then True else False.
+
+Definition f0 [F:False;ty:bool]: (bProp ty) :=
+  <[_:bool][ty:bool](bProp ty)>Cases ty ty of
+    true true => I
+  | _ false => F
+  | _ true => I
+  end.
-- 
cgit v1.2.3