diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-05 01:52:43 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-05 01:52:43 +0000 |
commit | f9170392e616dd9ced38d9dec8af2e2ef3a1b25a (patch) | |
tree | c8678ad531408101a6608e43f49426b1716a67b1 /theories/Logic | |
parent | 33d8b9d956e6e0a9f079751e670873e9c68d6683 (diff) |
Making subset_eq_compat applying over more general domain "Type" (see #2938).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16025 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Logic')
-rw-r--r-- | theories/Logic/ProofIrrelevanceFacts.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Logic/ProofIrrelevanceFacts.v b/theories/Logic/ProofIrrelevanceFacts.v index 2e9f0c19a..d33c68e09 100644 --- a/theories/Logic/ProofIrrelevanceFacts.v +++ b/theories/Logic/ProofIrrelevanceFacts.v @@ -40,7 +40,7 @@ Module ProofIrrelevanceTheory (M:ProofIrrelevance). (** We derive the irrelevance of the membership property for subsets *) Lemma subset_eq_compat : - forall (U:Set) (P:U->Prop) (x y:U) (p:P x) (q:P y), + forall (U:Type) (P:U->Prop) (x y:U) (p:P x) (q:P y), x = y -> exist P x p = exist P y q. Proof. intros. |