diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-29 17:28:49 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-29 17:28:49 +0000 |
commit | 9a6e3fe764dc2543dfa94de20fe5eec42d6be705 (patch) | |
tree | 77c0021911e3696a8c98e35a51840800db4be2a9 /theories/Logic/ClassicalChoice.v | |
parent | 9058fb97426307536f56c3e7447be2f70798e081 (diff) |
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
Diffstat (limited to 'theories/Logic/ClassicalChoice.v')
-rw-r--r-- | theories/Logic/ClassicalChoice.v | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/theories/Logic/ClassicalChoice.v b/theories/Logic/ClassicalChoice.v index 31f58a95e..80bbce461 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 |