Proof of Theorem aaliou3lem7
| Step | Hyp | Ref
| Expression |
| 1 | | peano2nn 12278 |
. . 3
⊢ (𝐴 ∈ ℕ → (𝐴 + 1) ∈
ℕ) |
| 2 | | eqid 2737 |
. . . 4
⊢ (𝑐 ∈
(ℤ≥‘(𝐴 + 1)) ↦ ((2↑-(!‘(𝐴 + 1))) · ((1 /
2)↑(𝑐 − (𝐴 + 1))))) = (𝑐 ∈ (ℤ≥‘(𝐴 + 1)) ↦
((2↑-(!‘(𝐴 +
1))) · ((1 / 2)↑(𝑐 − (𝐴 + 1))))) |
| 3 | | aaliou3lem.c |
. . . 4
⊢ 𝐹 = (𝑎 ∈ ℕ ↦
(2↑-(!‘𝑎))) |
| 4 | 2, 3 | aaliou3lem3 26386 |
. . 3
⊢ ((𝐴 + 1) ∈ ℕ →
(seq(𝐴 + 1)( + , 𝐹) ∈ dom ⇝ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) |
| 5 | | 3simpc 1151 |
. . 3
⊢
((seq(𝐴 + 1)( + ,
𝐹) ∈ dom ⇝ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1))))) → (Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) |
| 6 | 1, 4, 5 | 3syl 18 |
. 2
⊢ (𝐴 ∈ ℕ →
(Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) |
| 7 | | nncn 12274 |
. . . . . . . . . . . 12
⊢ (𝐴 ∈ ℕ → 𝐴 ∈
ℂ) |
| 8 | | ax-1cn 11213 |
. . . . . . . . . . . 12
⊢ 1 ∈
ℂ |
| 9 | | pncan 11514 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℂ ∧ 1 ∈
ℂ) → ((𝐴 + 1)
− 1) = 𝐴) |
| 10 | 7, 8, 9 | sylancl 586 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ ℕ → ((𝐴 + 1) − 1) = 𝐴) |
| 11 | 10 | oveq2d 7447 |
. . . . . . . . . 10
⊢ (𝐴 ∈ ℕ →
(1...((𝐴 + 1) − 1)) =
(1...𝐴)) |
| 12 | 11 | sumeq1d 15736 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℕ →
Σ𝑏 ∈
(1...((𝐴 + 1) −
1))(𝐹‘𝑏) = Σ𝑏 ∈ (1...𝐴)(𝐹‘𝑏)) |
| 13 | 12 | oveq1d 7446 |
. . . . . . . 8
⊢ (𝐴 ∈ ℕ →
(Σ𝑏 ∈
(1...((𝐴 + 1) −
1))(𝐹‘𝑏) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏)) = (Σ𝑏 ∈ (1...𝐴)(𝐹‘𝑏) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏))) |
| 14 | | nnuz 12921 |
. . . . . . . . 9
⊢ ℕ =
(ℤ≥‘1) |
| 15 | | eqid 2737 |
. . . . . . . . 9
⊢
(ℤ≥‘(𝐴 + 1)) =
(ℤ≥‘(𝐴 + 1)) |
| 16 | | eqidd 2738 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝑏 ∈ ℕ) → (𝐹‘𝑏) = (𝐹‘𝑏)) |
| 17 | | fveq2 6906 |
. . . . . . . . . . . . . 14
⊢ (𝑎 = 𝑏 → (!‘𝑎) = (!‘𝑏)) |
| 18 | 17 | negeqd 11502 |
. . . . . . . . . . . . 13
⊢ (𝑎 = 𝑏 → -(!‘𝑎) = -(!‘𝑏)) |
| 19 | 18 | oveq2d 7447 |
. . . . . . . . . . . 12
⊢ (𝑎 = 𝑏 → (2↑-(!‘𝑎)) = (2↑-(!‘𝑏))) |
| 20 | | ovex 7464 |
. . . . . . . . . . . 12
⊢
(2↑-(!‘𝑏)) ∈ V |
| 21 | 19, 3, 20 | fvmpt 7016 |
. . . . . . . . . . 11
⊢ (𝑏 ∈ ℕ → (𝐹‘𝑏) = (2↑-(!‘𝑏))) |
| 22 | | 2rp 13039 |
. . . . . . . . . . . . 13
⊢ 2 ∈
ℝ+ |
| 23 | | nnnn0 12533 |
. . . . . . . . . . . . . . . 16
⊢ (𝑏 ∈ ℕ → 𝑏 ∈
ℕ0) |
| 24 | | faccl 14322 |
. . . . . . . . . . . . . . . 16
⊢ (𝑏 ∈ ℕ0
→ (!‘𝑏) ∈
ℕ) |
| 25 | 23, 24 | syl 17 |
. . . . . . . . . . . . . . 15
⊢ (𝑏 ∈ ℕ →
(!‘𝑏) ∈
ℕ) |
| 26 | 25 | nnzd 12640 |
. . . . . . . . . . . . . 14
⊢ (𝑏 ∈ ℕ →
(!‘𝑏) ∈
ℤ) |
| 27 | 26 | znegcld 12724 |
. . . . . . . . . . . . 13
⊢ (𝑏 ∈ ℕ →
-(!‘𝑏) ∈
ℤ) |
| 28 | | rpexpcl 14121 |
. . . . . . . . . . . . 13
⊢ ((2
∈ ℝ+ ∧ -(!‘𝑏) ∈ ℤ) →
(2↑-(!‘𝑏))
∈ ℝ+) |
| 29 | 22, 27, 28 | sylancr 587 |
. . . . . . . . . . . 12
⊢ (𝑏 ∈ ℕ →
(2↑-(!‘𝑏))
∈ ℝ+) |
| 30 | 29 | rpcnd 13079 |
. . . . . . . . . . 11
⊢ (𝑏 ∈ ℕ →
(2↑-(!‘𝑏))
∈ ℂ) |
| 31 | 21, 30 | eqeltrd 2841 |
. . . . . . . . . 10
⊢ (𝑏 ∈ ℕ → (𝐹‘𝑏) ∈ ℂ) |
| 32 | 31 | adantl 481 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝑏 ∈ ℕ) → (𝐹‘𝑏) ∈ ℂ) |
| 33 | | 1nn 12277 |
. . . . . . . . . 10
⊢ 1 ∈
ℕ |
| 34 | | eqid 2737 |
. . . . . . . . . . . 12
⊢ (𝑐 ∈
(ℤ≥‘1) ↦ ((2↑-(!‘1)) · ((1 /
2)↑(𝑐 − 1)))) =
(𝑐 ∈
(ℤ≥‘1) ↦ ((2↑-(!‘1)) · ((1 /
2)↑(𝑐 −
1)))) |
| 35 | 34, 3 | aaliou3lem3 26386 |
. . . . . . . . . . 11
⊢ (1 ∈
ℕ → (seq1( + , 𝐹) ∈ dom ⇝ ∧ Σ𝑏 ∈
(ℤ≥‘1)(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘1)(𝐹‘𝑏) ≤ (2 ·
(2↑-(!‘1))))) |
| 36 | 35 | simp1d 1143 |
. . . . . . . . . 10
⊢ (1 ∈
ℕ → seq1( + , 𝐹)
∈ dom ⇝ ) |
| 37 | 33, 36 | mp1i 13 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℕ → seq1( + ,
𝐹) ∈ dom ⇝
) |
| 38 | 14, 15, 1, 16, 32, 37 | isumsplit 15876 |
. . . . . . . 8
⊢ (𝐴 ∈ ℕ →
Σ𝑏 ∈ ℕ
(𝐹‘𝑏) = (Σ𝑏 ∈ (1...((𝐴 + 1) − 1))(𝐹‘𝑏) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏))) |
| 39 | | oveq2 7439 |
. . . . . . . . . . 11
⊢ (𝑐 = 𝐴 → (1...𝑐) = (1...𝐴)) |
| 40 | 39 | sumeq1d 15736 |
. . . . . . . . . 10
⊢ (𝑐 = 𝐴 → Σ𝑏 ∈ (1...𝑐)(𝐹‘𝑏) = Σ𝑏 ∈ (1...𝐴)(𝐹‘𝑏)) |
| 41 | | aaliou3lem.e |
. . . . . . . . . 10
⊢ 𝐻 = (𝑐 ∈ ℕ ↦ Σ𝑏 ∈ (1...𝑐)(𝐹‘𝑏)) |
| 42 | | sumex 15724 |
. . . . . . . . . 10
⊢
Σ𝑏 ∈
(1...𝐴)(𝐹‘𝑏) ∈ V |
| 43 | 40, 41, 42 | fvmpt 7016 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℕ → (𝐻‘𝐴) = Σ𝑏 ∈ (1...𝐴)(𝐹‘𝑏)) |
| 44 | 43 | oveq1d 7446 |
. . . . . . . 8
⊢ (𝐴 ∈ ℕ → ((𝐻‘𝐴) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏)) = (Σ𝑏 ∈ (1...𝐴)(𝐹‘𝑏) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏))) |
| 45 | 13, 38, 44 | 3eqtr4rd 2788 |
. . . . . . 7
⊢ (𝐴 ∈ ℕ → ((𝐻‘𝐴) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏)) = Σ𝑏 ∈ ℕ (𝐹‘𝑏)) |
| 46 | | aaliou3lem.d |
. . . . . . 7
⊢ 𝐿 = Σ𝑏 ∈ ℕ (𝐹‘𝑏) |
| 47 | 45, 46 | eqtr4di 2795 |
. . . . . 6
⊢ (𝐴 ∈ ℕ → ((𝐻‘𝐴) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏)) = 𝐿) |
| 48 | 3, 46, 41 | aaliou3lem4 26388 |
. . . . . . . . 9
⊢ 𝐿 ∈ ℝ |
| 49 | 48 | recni 11275 |
. . . . . . . 8
⊢ 𝐿 ∈ ℂ |
| 50 | 49 | a1i 11 |
. . . . . . 7
⊢ (𝐴 ∈ ℕ → 𝐿 ∈
ℂ) |
| 51 | 3, 46, 41 | aaliou3lem5 26389 |
. . . . . . . 8
⊢ (𝐴 ∈ ℕ → (𝐻‘𝐴) ∈ ℝ) |
| 52 | 51 | recnd 11289 |
. . . . . . 7
⊢ (𝐴 ∈ ℕ → (𝐻‘𝐴) ∈ ℂ) |
| 53 | 4 | simp2d 1144 |
. . . . . . . . 9
⊢ ((𝐴 + 1) ∈ ℕ →
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈
ℝ+) |
| 54 | 1, 53 | syl 17 |
. . . . . . . 8
⊢ (𝐴 ∈ ℕ →
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈
ℝ+) |
| 55 | 54 | rpcnd 13079 |
. . . . . . 7
⊢ (𝐴 ∈ ℕ →
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℂ) |
| 56 | 50, 52, 55 | subaddd 11638 |
. . . . . 6
⊢ (𝐴 ∈ ℕ → ((𝐿 − (𝐻‘𝐴)) = Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ↔ ((𝐻‘𝐴) + Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏)) = 𝐿)) |
| 57 | 47, 56 | mpbird 257 |
. . . . 5
⊢ (𝐴 ∈ ℕ → (𝐿 − (𝐻‘𝐴)) = Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏)) |
| 58 | 57 | eqcomd 2743 |
. . . 4
⊢ (𝐴 ∈ ℕ →
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) = (𝐿 − (𝐻‘𝐴))) |
| 59 | | eleq1 2829 |
. . . . 5
⊢
(Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) = (𝐿 − (𝐻‘𝐴)) → (Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ↔ (𝐿 − (𝐻‘𝐴)) ∈
ℝ+)) |
| 60 | | breq1 5146 |
. . . . 5
⊢
(Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) = (𝐿 − (𝐻‘𝐴)) → (Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1)))) ↔ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) |
| 61 | 59, 60 | anbi12d 632 |
. . . 4
⊢
(Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) = (𝐿 − (𝐻‘𝐴)) → ((Σ𝑏 ∈ (ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1))))) ↔ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1))))))) |
| 62 | 58, 61 | syl 17 |
. . 3
⊢ (𝐴 ∈ ℕ →
((Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1))))) ↔ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1))))))) |
| 63 | 51 | adantr 480 |
. . . . . 6
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → (𝐻‘𝐴) ∈ ℝ) |
| 64 | | simprl 771 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → (𝐿 − (𝐻‘𝐴)) ∈
ℝ+) |
| 65 | | difrp 13073 |
. . . . . . . 8
⊢ (((𝐻‘𝐴) ∈ ℝ ∧ 𝐿 ∈ ℝ) → ((𝐻‘𝐴) < 𝐿 ↔ (𝐿 − (𝐻‘𝐴)) ∈
ℝ+)) |
| 66 | 63, 48, 65 | sylancl 586 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → ((𝐻‘𝐴) < 𝐿 ↔ (𝐿 − (𝐻‘𝐴)) ∈
ℝ+)) |
| 67 | 64, 66 | mpbird 257 |
. . . . . 6
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → (𝐻‘𝐴) < 𝐿) |
| 68 | 63, 67 | ltned 11397 |
. . . . 5
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → (𝐻‘𝐴) ≠ 𝐿) |
| 69 | | nnnn0 12533 |
. . . . . . . . . . . . . . 15
⊢ ((𝐴 + 1) ∈ ℕ →
(𝐴 + 1) ∈
ℕ0) |
| 70 | | faccl 14322 |
. . . . . . . . . . . . . . 15
⊢ ((𝐴 + 1) ∈ ℕ0
→ (!‘(𝐴 + 1))
∈ ℕ) |
| 71 | 1, 69, 70 | 3syl 18 |
. . . . . . . . . . . . . 14
⊢ (𝐴 ∈ ℕ →
(!‘(𝐴 + 1)) ∈
ℕ) |
| 72 | 71 | nnzd 12640 |
. . . . . . . . . . . . 13
⊢ (𝐴 ∈ ℕ →
(!‘(𝐴 + 1)) ∈
ℤ) |
| 73 | 72 | znegcld 12724 |
. . . . . . . . . . . 12
⊢ (𝐴 ∈ ℕ →
-(!‘(𝐴 + 1)) ∈
ℤ) |
| 74 | | rpexpcl 14121 |
. . . . . . . . . . . 12
⊢ ((2
∈ ℝ+ ∧ -(!‘(𝐴 + 1)) ∈ ℤ) →
(2↑-(!‘(𝐴 + 1)))
∈ ℝ+) |
| 75 | 22, 73, 74 | sylancr 587 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ ℕ →
(2↑-(!‘(𝐴 + 1)))
∈ ℝ+) |
| 76 | | rpmulcl 13058 |
. . . . . . . . . . 11
⊢ ((2
∈ ℝ+ ∧ (2↑-(!‘(𝐴 + 1))) ∈ ℝ+) →
(2 · (2↑-(!‘(𝐴 + 1)))) ∈
ℝ+) |
| 77 | 22, 75, 76 | sylancr 587 |
. . . . . . . . . 10
⊢ (𝐴 ∈ ℕ → (2
· (2↑-(!‘(𝐴 + 1)))) ∈
ℝ+) |
| 78 | 77 | adantr 480 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → (2 ·
(2↑-(!‘(𝐴 +
1)))) ∈ ℝ+) |
| 79 | 78 | rpred 13077 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → (2 ·
(2↑-(!‘(𝐴 +
1)))) ∈ ℝ) |
| 80 | 63, 79 | resubcld 11691 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → ((𝐻‘𝐴) − (2 ·
(2↑-(!‘(𝐴 +
1))))) ∈ ℝ) |
| 81 | 48 | a1i 11 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → 𝐿 ∈
ℝ) |
| 82 | 63, 78 | ltsubrpd 13109 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → ((𝐻‘𝐴) − (2 ·
(2↑-(!‘(𝐴 +
1))))) < (𝐻‘𝐴)) |
| 83 | 80, 63, 81, 82, 67 | lttrd 11422 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → ((𝐻‘𝐴) − (2 ·
(2↑-(!‘(𝐴 +
1))))) < 𝐿) |
| 84 | 80, 81, 83 | ltled 11409 |
. . . . . 6
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → ((𝐻‘𝐴) − (2 ·
(2↑-(!‘(𝐴 +
1))))) ≤ 𝐿) |
| 85 | | simprr 773 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1))))) |
| 86 | 81, 63, 79 | lesubadd2d 11862 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → ((𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))) ↔ 𝐿 ≤ ((𝐻‘𝐴) + (2 · (2↑-(!‘(𝐴 + 1))))))) |
| 87 | 85, 86 | mpbid 232 |
. . . . . 6
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → 𝐿 ≤ ((𝐻‘𝐴) + (2 · (2↑-(!‘(𝐴 + 1)))))) |
| 88 | 81, 63, 79 | absdifled 15473 |
. . . . . 6
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) →
((abs‘(𝐿 −
(𝐻‘𝐴))) ≤ (2 ·
(2↑-(!‘(𝐴 +
1)))) ↔ (((𝐻‘𝐴) − (2 ·
(2↑-(!‘(𝐴 +
1))))) ≤ 𝐿 ∧ 𝐿 ≤ ((𝐻‘𝐴) + (2 · (2↑-(!‘(𝐴 + 1)))))))) |
| 89 | 84, 87, 88 | mpbir2and 713 |
. . . . 5
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) →
(abs‘(𝐿 −
(𝐻‘𝐴))) ≤ (2 ·
(2↑-(!‘(𝐴 +
1))))) |
| 90 | 68, 89 | jca 511 |
. . . 4
⊢ ((𝐴 ∈ ℕ ∧ ((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1)))))) → ((𝐻‘𝐴) ≠ 𝐿 ∧ (abs‘(𝐿 − (𝐻‘𝐴))) ≤ (2 ·
(2↑-(!‘(𝐴 +
1)))))) |
| 91 | 90 | ex 412 |
. . 3
⊢ (𝐴 ∈ ℕ → (((𝐿 − (𝐻‘𝐴)) ∈ ℝ+ ∧ (𝐿 − (𝐻‘𝐴)) ≤ (2 · (2↑-(!‘(𝐴 + 1))))) → ((𝐻‘𝐴) ≠ 𝐿 ∧ (abs‘(𝐿 − (𝐻‘𝐴))) ≤ (2 ·
(2↑-(!‘(𝐴 +
1))))))) |
| 92 | 62, 91 | sylbid 240 |
. 2
⊢ (𝐴 ∈ ℕ →
((Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ∈ ℝ+ ∧
Σ𝑏 ∈
(ℤ≥‘(𝐴 + 1))(𝐹‘𝑏) ≤ (2 · (2↑-(!‘(𝐴 + 1))))) → ((𝐻‘𝐴) ≠ 𝐿 ∧ (abs‘(𝐿 − (𝐻‘𝐴))) ≤ (2 ·
(2↑-(!‘(𝐴 +
1))))))) |
| 93 | 6, 92 | mpd 15 |
1
⊢ (𝐴 ∈ ℕ → ((𝐻‘𝐴) ≠ 𝐿 ∧ (abs‘(𝐿 − (𝐻‘𝐴))) ≤ (2 ·
(2↑-(!‘(𝐴 +
1)))))) |