diff options
Diffstat (limited to 'theories/Logic/Diaconescu.v')
| -rw-r--r-- | theories/Logic/Diaconescu.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/theories/Logic/Diaconescu.v b/theories/Logic/Diaconescu.v index d815b9dda7..5f7112fd7d 100644 --- a/theories/Logic/Diaconescu.v +++ b/theories/Logic/Diaconescu.v @@ -59,18 +59,18 @@ Qed. Require Import ChoiceFacts. -Variable rel_choice : RelationalChoice. +Variable rel_choice : forall A B:Type, RelationalChoice A B. Lemma guarded_rel_choice : forall (A B:Type) (P:A -> Prop) (R:A -> B -> Prop), (forall x:A, P x -> exists y : B, R x y) -> - exists R' : A -> B -> Prop, + exists R' : A -> B -> Prop, (forall x:A, P x -> exists y : B, R x y /\ R' x y /\ (forall y':B, R' x y' -> y = y')). Proof. - exact - (rel_choice_and_proof_irrel_imp_guarded_rel_choice rel_choice proof_irrel). + apply + (rel_choice_and_proof_irrel_imp_guarded_rel_choice rel_choice proof_irrel). Qed. (** The form of choice we need: there is a functional relation which chooses |