diff options
| author | Hugo Herbelin | 2020-04-23 21:53:05 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-04-23 21:53:05 +0200 |
| commit | a50cb07b1e7d161491e2c1d48fd3525b29397524 (patch) | |
| tree | 55dbcf1d102a2200c235e401d642f08917812a5e /theories/Sorting/Permutation.v | |
| parent | 5861c6d5944961d4c78f5ad7dc85adfa47397730 (diff) | |
| parent | 160ac52f520c5d77cde8fc5734839de54995e165 (diff) | |
Merge PR #12120: Fixing #12119 : remove useless hypothesis in NoDup_Permutation_bis
Reviewed-by: herbelin
Diffstat (limited to 'theories/Sorting/Permutation.v')
| -rw-r--r-- | theories/Sorting/Permutation.v | 6 |
1 files changed, 4 insertions, 2 deletions
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'. |