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 | |
parent | 43524c6689f372b32770c20d19866f2f4edb4cc6 (diff) |
Fix 3 unused-intro-pattern warnings in stdlib.
-rw-r--r-- | theories/Lists/List.v | 4 | ||||
-rw-r--r-- | theories/QArith/Qround.v | 2 |
2 files changed, 3 insertions, 3 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 ->. diff --git a/theories/QArith/Qround.v b/theories/QArith/Qround.v index 0ed6d557c..e94ef408d 100644 --- a/theories/QArith/Qround.v +++ b/theories/QArith/Qround.v @@ -141,7 +141,7 @@ Qed. Lemma Zdiv_Qdiv (n m: Z): (n / m)%Z = Qfloor (n / m). Proof. unfold Qfloor. intros. simpl. - destruct m as [?|?|p]; simpl. + destruct m as [ | | p]; simpl. now rewrite Zdiv_0_r, Z.mul_0_r. now rewrite Z.mul_1_r. rewrite <- Z.opp_eq_mul_m1. |