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 | |
parent | cda7b80182b03c7b04baf5cc2cc6aa33984e054a (diff) |
Avoid using a deprecated lemma in the standard library.
Diffstat (limited to 'theories/MSets')
-rw-r--r-- | theories/MSets/MSetGenTree.v | 4 | ||||
-rw-r--r-- | theories/MSets/MSetRBT.v | 2 |
2 files changed, 3 insertions, 3 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. diff --git a/theories/MSets/MSetRBT.v b/theories/MSets/MSetRBT.v index ed09030cb..b79afc616 100644 --- a/theories/MSets/MSetRBT.v +++ b/theories/MSets/MSetRBT.v @@ -979,7 +979,7 @@ Proof. { transitivity size; trivial. subst. auto with arith. } destruct acc1 as [|x acc1]. { exfalso. revert LE. apply Nat.lt_nge. subst. - rewrite <- app_nil_end, <- elements_cardinal; auto with arith. } + rewrite app_nil_r, <- elements_cardinal; auto with arith. } specialize (Hg acc1). destruct (g acc1) as (t2,acc2). destruct Hg as (Hg1,Hg2). |