From 308e5a317c6d7dff25d04138619a101e32768d26 Mon Sep 17 00:00:00 2001 From: msozeau Date: Wed, 16 Feb 2011 20:01:26 +0000 Subject: Fix compilation issues. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13843 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Structures/OrderedType.v | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'theories/Structures') diff --git a/theories/Structures/OrderedType.v b/theories/Structures/OrderedType.v index c21d4fa0f..9efb68ab3 100644 --- a/theories/Structures/OrderedType.v +++ b/theories/Structures/OrderedType.v @@ -315,12 +315,14 @@ Module KeyOrderedType(O:OrderedType). Hint Resolve ltk_trans ltk_not_eqk ltk_not_eqke. Hint Immediate eqk_sym eqke_sym. - Global Instance eqk_equiv : Equivalence eqk. + Global Instance eqk_equiv : Equivalence eqk. + Proof. constructor; eauto. Qed. Global Instance eqke_equiv : Equivalence eqke. Proof. split; eauto. Qed. Global Instance ltk_strorder : StrictOrder ltk. + Proof. constructor; eauto. intros x; apply (irreflexivity (x:=fst x)). Qed. Global Instance ltk_compat : Proper (eqk==>eqk==>iff) ltk. Proof. -- cgit v1.2.3