diff options
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Arith/Div2.v | 7 | ||||
| -rw-r--r-- | theories/Zarith/auxiliary.v | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/theories/Arith/Div2.v b/theories/Arith/Div2.v index a2187a89bc..202e7a97a8 100644 --- a/theories/Arith/Div2.v +++ b/theories/Arith/Div2.v @@ -113,11 +113,18 @@ Intros. Decompose [and] H. Unfold iff in H0 H1. Decompose [and] H0. Decompose [and] H1. Clear H H0 H1. Split; Split. Intro H. Inversion H. Inversion H1. +Simpl. Rewrite (double_S (div2 n0)). Auto with arith. +Simpl. Rewrite (double_S (div2 n0)). Intro H. Injection H. Auto with arith. +Intro H. Inversion H. Inversion H1. +Simpl. Rewrite (double_S (div2 n0)). Auto with arith. +Simpl. Rewrite (double_S (div2 n0)). Intro H. Injection H. Auto with arith. +(* Simpl. Rewrite <- plus_n_Sm. Auto with arith. Simpl. Rewrite <- plus_n_Sm. Intro H. Injection H. Auto with arith. Intro H. Inversion H. Inversion H1. Simpl. Rewrite <- plus_n_Sm. Auto with arith. Simpl. Rewrite <- plus_n_Sm. Intro H. Injection H. Auto with arith. +*) Qed. diff --git a/theories/Zarith/auxiliary.v b/theories/Zarith/auxiliary.v index 0f0fbc52b7..e7bcdcfabc 100644 --- a/theories/Zarith/auxiliary.v +++ b/theories/Zarith/auxiliary.v @@ -388,7 +388,7 @@ Save. Lemma add_x_x : (x:positive) (add x x) = (xO x). Intros p; Apply convert_intro; Simpl; Rewrite convert_add; -Rewrite ZL6; Trivial with arith. +Unfold 3 convert ; Simpl; Rewrite ZL6; Trivial with arith. Save. Theorem Zcompare_Zmult_compatible : |