From f9170392e616dd9ced38d9dec8af2e2ef3a1b25a Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 5 Dec 2012 01:52:43 +0000 Subject: 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 --- theories/Logic/ProofIrrelevanceFacts.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/theories/Logic/ProofIrrelevanceFacts.v b/theories/Logic/ProofIrrelevanceFacts.v index 2e9f0c19af..d33c68e09d 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. -- cgit v1.2.3