From 6516f5d73233a15c85c2971853bcca0a1646088f Mon Sep 17 00:00:00 2001 From: msozeau Date: Thu, 28 Feb 2008 09:46:35 +0000 Subject: Fix compilation problem (hopefully). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10602 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Classes/Morphisms.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'theories') 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. *) -- cgit v1.2.3