This commit is contained in:
Thomas Baruchel 2022-12-29 10:39:52 +01:00
parent 8604cc2d27
commit 0e43274f90

View File

@ -662,10 +662,7 @@ Proof.
rewrite <- Nat.mul_lt_mono_pos_l in I.
assert (J := I). apply IHm in J.
assert (M: 0 < 2^m). destruct m. simpl. apply Nat.lt_0_1.
replace (0) with (0 ^ (S m)) at 1.
apply Nat.pow_lt_mono_l. apply Nat.neq_succ_0. apply Nat.lt_0_2.
apply Nat.pow_0_l. apply Nat.neq_succ_0.
assert (M: 0 < 2^m). rewrite <- Nat.neq_0_lt_0. apply Nat.pow_nonzero. easy.
assert (L: S (2 * k) * 2 ^ m - 1 < S (2 * k) * 2 ^ m).
replace (S (2 * k) * 2 ^ m) with (S (S (2 * k) * 2 ^ m - 1)) at 2.