From 9a6e3fe764dc2543dfa94de20fe5eec42d6be705 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 29 Nov 2003 17:28:49 +0000
Subject: Remplacement des fichiers .v ancienne syntaxe de theories, contrib et
 states par les fichiers nouvelle syntaxe

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5027 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Logic/ClassicalChoice.v | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'theories/Logic/ClassicalChoice.v')

diff --git a/theories/Logic/ClassicalChoice.v b/theories/Logic/ClassicalChoice.v
index 31f58a95e8..80bbce461c 100644
--- a/theories/Logic/ClassicalChoice.v
+++ b/theories/Logic/ClassicalChoice.v
@@ -19,13 +19,14 @@
 
 Require Export ClassicalDescription.
 Require Export RelationalChoice.
-Require ChoiceFacts.
+Require Import ChoiceFacts.
 
-Theorem choice : 
- (A:Type;B:Type;R: A->B->Prop)
-  ((x:A)(EX y:B|(R x y))) -> (EX f:A->B | (x:A)(R x (f x))).
+Theorem choice :
+ forall (A B:Type) (R:A -> B -> Prop),
+   (forall x:A,  exists y : B | R x y) ->
+    exists f : A -> B | (forall x:A, R x (f x)).
 Proof.
-Apply description_rel_choice_imp_funct_choice.
-Exact description.
-Exact relational_choice.
-Qed.
+apply description_rel_choice_imp_funct_choice.
+exact description.
+exact relational_choice.
+Qed.
\ No newline at end of file
-- 
cgit v1.2.3