diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-28 09:46:35 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-28 09:46:35 +0000 |
| commit | 6516f5d73233a15c85c2971853bcca0a1646088f (patch) | |
| tree | cb22d8a41dbe037bb992a64ee7d205e839fa6be9 /theories | |
| parent | 9b98b7ba5470edfbe5255fbe4e32e13c50fa64c1 (diff) | |
Fix compilation problem (hopefully).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10602 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Classes/Morphisms.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Classes/Morphisms.v b/theories/Classes/Morphisms.v index 18dc3190f..5d679d2c9 100644 --- a/theories/Classes/Morphisms.v +++ b/theories/Classes/Morphisms.v @@ -136,8 +136,8 @@ Program Instance iff_iff_iff_impl_morphism : ? Morphism (iff ++> iff ++> iff) im Lemma reflexive_impl_iff [ Symmetric A R, ? Morphism (R ++> impl) m ] : Morphism (R ==> iff) m. Proof. intros. - constructor ; simpl_relation. - split ; clapply respect ; [ idtac | sym ] ; auto. + constructor. red ; intros. + split ; apply respect ; [ idtac | sym ] ; auto. Qed. (** The complement of a relation conserves its morphisms. *) |