diff options
| author |  Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-03-14 16:22:48 +0100 |
|---|---|---|
| committer | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-03-14 16:22:48 +0100 |
| commit | 88c02e02a7b6067c78608e9ea526f81fd122edab (patch) | |
| tree | 305a35044440f6d338165f4f512f31f115f97556 /theories/Lists | |
| parent | 43524c6689f372b32770c20d19866f2f4edb4cc6 (diff) | |
Fix 3 unused-intro-pattern warnings in stdlib.
Diffstat (limited to 'theories/Lists')
| -rw-r--r-- | theories/Lists/List.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Lists/List.v b/theories/Lists/List.v index 30f1dec22..1aece3f60 100644 --- a/theories/Lists/List.v +++ b/theories/Lists/List.v @@ -419,7 +419,7 @@ Section Elts. Proof. unfold lt; induction n as [| n hn]; simpl. - destruct l; simpl; [ inversion 2 | auto ]. - - destruct l as [| a l hl]; simpl. + - destruct l; simpl. * inversion 2. * intros d ie; right; apply hn; auto with arith. Qed. @@ -1280,7 +1280,7 @@ End Fold_Right_Recursor. partition l = ([], []) <-> l = []. Proof. split. - - destruct l as [|a l' _]. + - destruct l as [|a l']. * intuition. * simpl. destruct (f a), (partition l'); now intros [= -> ->]. - now intros ->. |