diff options
| author |  notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-03-08 11:24:39 +0000 |
|---|---|---|
| committer | notin <notin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-03-08 11:24:39 +0000 |
| commit | 82a54351ce3103c090839bc63139b52f07328df7 (patch) | |
| tree | 2348ac71d6164782af99c0641776639f8354bbf9 /theories | |
| parent | c1937208862a3c65a9667c745ac97fff65cf5c9d (diff) | |
Transparence de eq_dec et lt_dec daans OrderedTypeFacts
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9690 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/FSets/OrderedType.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/FSets/OrderedType.v b/theories/FSets/OrderedType.v index d989d8937..69bcf436e 100644 --- a/theories/FSets/OrderedType.v +++ b/theories/FSets/OrderedType.v @@ -296,12 +296,12 @@ Ltac false_order := elimtype False; order. Lemma eq_dec : forall x y : t, {eq x y} + {~ eq x y}. Proof. intros; elim (compare x y); [ right | left | right ]; auto. - Qed. + Defined. Lemma lt_dec : forall x y : t, {lt x y} + {~ lt x y}. Proof. intros; elim (compare x y); [ left | right | right ]; auto. - Qed. + Defined. Definition eqb x y : bool := if eq_dec x y then true else false. |