diff options
| author | msozeau | 2009-11-24 23:05:14 +0000 |
|---|---|---|
| committer | msozeau | 2009-11-24 23:05:14 +0000 |
| commit | 8f4a6940a523c116343f345733901e57bb2649a8 (patch) | |
| tree | 19d05094f4a42e6cd7398c62b2f0e560d2bcdade /theories/Structures | |
| parent | 6f91dbd3218761e3ecc2ef634121ab643cefff57 (diff) | |
Minor fixes in typeclasses, avoiding repeated evar normalizations.
Improve generalization by equalities tactic, now allowing to
generalize an arbitrary application, e.g. in preparation for applying an
elimination principle for a function. This adds a flag to generalize_dep
so that it doesn't abstract the variable if it is defined, just
introducing a let-in.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12541 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Structures')
| -rw-r--r-- | theories/Structures/OrderedType2Facts.v | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/theories/Structures/OrderedType2Facts.v b/theories/Structures/OrderedType2Facts.v index a7bb661ea7..e35c7c651c 100644 --- a/theories/Structures/OrderedType2Facts.v +++ b/theories/Structures/OrderedType2Facts.v @@ -23,7 +23,10 @@ Module OTF_to_OrderSig (O : OrderedTypeFull) : OrderSig with Definition t := O.t with Definition eq := O.eq with Definition lt := O.lt - with Definition le := O.le. + with Definition le := O.le + with Definition eq_equiv := O.eq_equiv + with Definition lt_strorder := O.lt_strorder + with Definition lt_compat := O.lt_compat. Include O. Lemma lt_total : forall x y, O.lt x y \/ O.eq x y \/ O.lt y x. Proof. intros; destruct (O.compare_spec x y); auto. Qed. @@ -156,7 +159,7 @@ Module OrderedTypeFacts (Import O: OrderedType). Lemma compare_antisym : forall x y, (y ?= x) = CompOpp (x ?= y). Proof. - intros; elim_compare x y; autorewrite with order; order. + intros; elim_compare x y; simpl; autorewrite with order; order. Qed. (** For compatibility reasons *) |