diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-05 16:44:57 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-05 16:44:57 +0000 |
| commit | 03e2f7a1bf6ee15608aceb455e0c30a2780eff56 (patch) | |
| tree | 90ba261a7209cbcd0b259ca7108a8913cbbbd294 /theories/Logic/ClassicalChoice.v | |
| parent | c3dd8fdb256b6a9367ddf75862daf5e3e7bb6b07 (diff) | |
MAJ changements ChoiceFacts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6401 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Logic/ClassicalChoice.v')
| -rw-r--r-- | theories/Logic/ClassicalChoice.v | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/theories/Logic/ClassicalChoice.v b/theories/Logic/ClassicalChoice.v index 0bc491e20..69887a540 100644 --- a/theories/Logic/ClassicalChoice.v +++ b/theories/Logic/ClassicalChoice.v @@ -23,10 +23,11 @@ Require Import ChoiceFacts. Theorem choice : forall (A B:Type) (R:A -> B -> Prop), - (forall x:A, exists y : B, R x y) -> + (forall x:A, exists y : B, R x y) -> exists f : A -> B, (forall x:A, R x (f x)). Proof. +intros A B. apply description_rel_choice_imp_funct_choice. -exact description. -exact relational_choice. -Qed.
\ No newline at end of file +exact (description A B). +exact (relational_choice A B). +Qed. |