From 160ac52f520c5d77cde8fc5734839de54995e165 Mon Sep 17 00:00:00 2001
From: Olivier Laurent
Date: Sun, 19 Apr 2020 10:53:28 +0200
Subject: remove useless hypothesis in NoDup_Permutation_bis (thanks to new
 NoDup_incl_NoDup)

---
 theories/Sorting/Permutation.v | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'theories/Sorting/Permutation.v')

diff --git a/theories/Sorting/Permutation.v b/theories/Sorting/Permutation.v
index 86eebc6b4f..ffef8a216d 100644
--- a/theories/Sorting/Permutation.v
+++ b/theories/Sorting/Permutation.v
@@ -499,11 +499,13 @@ Proof.
        rewrite (NoDup_Add AD) in Hl'. tauto.
 Qed.
 
-Lemma NoDup_Permutation_bis l l' : NoDup l -> NoDup l' ->
+Lemma NoDup_Permutation_bis l l' : NoDup l ->
   length l' <= length l -> incl l l' -> Permutation l l'.
 Proof.
  intros. apply NoDup_Permutation; auto.
- split; auto. apply NoDup_length_incl; trivial.
+ - now apply NoDup_incl_NoDup with l.
+ - split; auto.
+   apply NoDup_length_incl; trivial.
 Qed.
 
 Lemma Permutation_NoDup l l' : Permutation l l' -> NoDup l -> NoDup l'.
-- 
cgit v1.2.3