diff options
author | 2017-03-23 14:50:03 +0100 | |
---|---|---|
committer | 2017-03-23 14:50:03 +0100 | |
commit | b26fe2bc160e3b6362e97b8331a6d0831b9985f1 (patch) | |
tree | 6530e61c2dc8d51a84b13bcbab2e5e114b47e5ce /theories | |
parent | 595a6251c90d871f8928784c8f4375077c6c5878 (diff) | |
parent | 9f69250d5ba4116bad85662830460f1519edbe30 (diff) |
Merge branch 'v8.6' into trunk
Diffstat (limited to 'theories')
-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. |