diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-06-26 17:38:23 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-06-26 17:38:23 +0200 |
| commit | f25ebf0a2d163df5191cf20650c82955b17972f7 (patch) | |
| tree | 7069e7b333355163268b7aeeabd0b5d0fe3ea23d /theories/MSets/MSetGenTree.v | |
| parent | cda7b80182b03c7b04baf5cc2cc6aa33984e054a (diff) | |
Avoid using a deprecated lemma in the standard library.
Diffstat (limited to 'theories/MSets/MSetGenTree.v')
| -rw-r--r-- | theories/MSets/MSetGenTree.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/MSets/MSetGenTree.v b/theories/MSets/MSetGenTree.v index 2ec125427..320ced06c 100644 --- a/theories/MSets/MSetGenTree.v +++ b/theories/MSets/MSetGenTree.v @@ -1063,9 +1063,9 @@ Lemma compare_Cmp : forall s1 s2, Cmp (compare s1 s2) (elements s1) (elements s2). Proof. intros; unfold compare. - rewrite (app_nil_end (elements s1)). + rewrite <- (app_nil_r (elements s1)). replace (elements s2) with (flatten_e (cons s2 End)) by - (rewrite cons_1; simpl; rewrite <- app_nil_end; auto). + (rewrite cons_1; simpl; rewrite app_nil_r; auto). apply compare_cont_Cmp; auto. intros. apply compare_end_Cmp; auto. |