MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mertenslem2 Structured version   Visualization version   GIF version

Theorem mertenslem2 14617
Description: Lemma for mertens 14618. (Contributed by Mario Carneiro, 28-Apr-2014.)
Hypotheses
Ref Expression
mertens.1 ((𝜑𝑗 ∈ ℕ0) → (𝐹𝑗) = 𝐴)
mertens.2 ((𝜑𝑗 ∈ ℕ0) → (𝐾𝑗) = (abs‘𝐴))
mertens.3 ((𝜑𝑗 ∈ ℕ0) → 𝐴 ∈ ℂ)
mertens.4 ((𝜑𝑘 ∈ ℕ0) → (𝐺𝑘) = 𝐵)
mertens.5 ((𝜑𝑘 ∈ ℕ0) → 𝐵 ∈ ℂ)
mertens.6 ((𝜑𝑘 ∈ ℕ0) → (𝐻𝑘) = Σ𝑗 ∈ (0...𝑘)(𝐴 · (𝐺‘(𝑘𝑗))))
mertens.7 (𝜑 → seq0( + , 𝐾) ∈ dom ⇝ )
mertens.8 (𝜑 → seq0( + , 𝐺) ∈ dom ⇝ )
mertens.9 (𝜑𝐸 ∈ ℝ+)
mertens.10 𝑇 = {𝑧 ∣ ∃𝑛 ∈ (0...(𝑠 − 1))𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))}
mertens.11 (𝜓 ↔ (𝑠 ∈ ℕ ∧ ∀𝑛 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
Assertion
Ref Expression
mertenslem2 (𝜑 → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸)
Distinct variable groups:   𝑗,𝑚,𝑛,𝑠,𝑦,𝑧,𝐵   𝑗,𝑘,𝐺,𝑚,𝑛,𝑠,𝑦,𝑧   𝜑,𝑗,𝑘,𝑚,𝑦,𝑧   𝐴,𝑘,𝑚,𝑛,𝑠,𝑦   𝑗,𝐸,𝑘,𝑚,𝑛,𝑠,𝑦,𝑧   𝑗,𝐾,𝑘,𝑚,𝑛,𝑠,𝑦,𝑧   𝑗,𝐹,𝑚,𝑛,𝑦   𝜓,𝑗,𝑘,𝑚,𝑛,𝑦,𝑧   𝑇,𝑗,𝑘,𝑚,𝑛,𝑦,𝑧   𝑘,𝐻,𝑚,𝑦   𝜑,𝑛,𝑠
Allowed substitution hints:   𝜓(𝑠)   𝐴(𝑧,𝑗)   𝐵(𝑘)   𝑇(𝑠)   𝐹(𝑧,𝑘,𝑠)   𝐻(𝑧,𝑗,𝑛,𝑠)

Proof of Theorem mertenslem2
Dummy variables 𝑡 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nnuz 11723 . . 3 ℕ = (ℤ‘1)
2 1zzd 11408 . . 3 (𝜑 → 1 ∈ ℤ)
3 mertens.9 . . . . 5 (𝜑𝐸 ∈ ℝ+)
43rphalfcld 11884 . . . 4 (𝜑 → (𝐸 / 2) ∈ ℝ+)
5 nn0uz 11722 . . . . . 6 0 = (ℤ‘0)
6 0zd 11389 . . . . . 6 (𝜑 → 0 ∈ ℤ)
7 eqidd 2623 . . . . . 6 ((𝜑𝑗 ∈ ℕ0) → (𝐾𝑗) = (𝐾𝑗))
8 mertens.2 . . . . . . 7 ((𝜑𝑗 ∈ ℕ0) → (𝐾𝑗) = (abs‘𝐴))
9 mertens.3 . . . . . . . 8 ((𝜑𝑗 ∈ ℕ0) → 𝐴 ∈ ℂ)
109abscld 14175 . . . . . . 7 ((𝜑𝑗 ∈ ℕ0) → (abs‘𝐴) ∈ ℝ)
118, 10eqeltrd 2701 . . . . . 6 ((𝜑𝑗 ∈ ℕ0) → (𝐾𝑗) ∈ ℝ)
12 mertens.7 . . . . . 6 (𝜑 → seq0( + , 𝐾) ∈ dom ⇝ )
135, 6, 7, 11, 12isumrecl 14496 . . . . 5 (𝜑 → Σ𝑗 ∈ ℕ0 (𝐾𝑗) ∈ ℝ)
149absge0d 14183 . . . . . . 7 ((𝜑𝑗 ∈ ℕ0) → 0 ≤ (abs‘𝐴))
1514, 8breqtrrd 4681 . . . . . 6 ((𝜑𝑗 ∈ ℕ0) → 0 ≤ (𝐾𝑗))
165, 6, 7, 11, 12, 15isumge0 14497 . . . . 5 (𝜑 → 0 ≤ Σ𝑗 ∈ ℕ0 (𝐾𝑗))
1713, 16ge0p1rpd 11902 . . . 4 (𝜑 → (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1) ∈ ℝ+)
184, 17rpdivcld 11889 . . 3 (𝜑 → ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ∈ ℝ+)
19 eqidd 2623 . . 3 ((𝜑𝑚 ∈ ℕ) → (seq0( + , 𝐺)‘𝑚) = (seq0( + , 𝐺)‘𝑚))
20 mertens.4 . . . 4 ((𝜑𝑘 ∈ ℕ0) → (𝐺𝑘) = 𝐵)
21 mertens.5 . . . 4 ((𝜑𝑘 ∈ ℕ0) → 𝐵 ∈ ℂ)
22 mertens.8 . . . 4 (𝜑 → seq0( + , 𝐺) ∈ dom ⇝ )
235, 6, 20, 21, 22isumclim2 14489 . . 3 (𝜑 → seq0( + , 𝐺) ⇝ Σ𝑘 ∈ ℕ0 𝐵)
241, 2, 18, 19, 23climi2 14242 . 2 (𝜑 → ∃𝑠 ∈ ℕ ∀𝑚 ∈ (ℤ𝑠)(abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)))
25 eluznn 11758 . . . . . . . 8 ((𝑠 ∈ ℕ ∧ 𝑚 ∈ (ℤ𝑠)) → 𝑚 ∈ ℕ)
2620, 21eqeltrd 2701 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ0) → (𝐺𝑘) ∈ ℂ)
275, 6, 26serf 12829 . . . . . . . . . . . 12 (𝜑 → seq0( + , 𝐺):ℕ0⟶ℂ)
28 nnnn0 11299 . . . . . . . . . . . 12 (𝑚 ∈ ℕ → 𝑚 ∈ ℕ0)
29 ffvelrn 6357 . . . . . . . . . . . 12 ((seq0( + , 𝐺):ℕ0⟶ℂ ∧ 𝑚 ∈ ℕ0) → (seq0( + , 𝐺)‘𝑚) ∈ ℂ)
3027, 28, 29syl2an 494 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (seq0( + , 𝐺)‘𝑚) ∈ ℂ)
315, 6, 20, 21, 22isumcl 14492 . . . . . . . . . . . 12 (𝜑 → Σ𝑘 ∈ ℕ0 𝐵 ∈ ℂ)
3231adantr 481 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ ℕ0 𝐵 ∈ ℂ)
3330, 32abssubd 14192 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → (abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) = (abs‘(Σ𝑘 ∈ ℕ0 𝐵 − (seq0( + , 𝐺)‘𝑚))))
34 eqid 2622 . . . . . . . . . . . . . 14 (ℤ‘(𝑚 + 1)) = (ℤ‘(𝑚 + 1))
3528adantl 482 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℕ0)
36 peano2nn0 11333 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℕ0)
3735, 36syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → (𝑚 + 1) ∈ ℕ0)
3837nn0zd 11480 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (𝑚 + 1) ∈ ℤ)
39 simpll 790 . . . . . . . . . . . . . . 15 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ (ℤ‘(𝑚 + 1))) → 𝜑)
40 eluznn0 11757 . . . . . . . . . . . . . . . 16 (((𝑚 + 1) ∈ ℕ0𝑘 ∈ (ℤ‘(𝑚 + 1))) → 𝑘 ∈ ℕ0)
4137, 40sylan 488 . . . . . . . . . . . . . . 15 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ (ℤ‘(𝑚 + 1))) → 𝑘 ∈ ℕ0)
4239, 41, 20syl2anc 693 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ (ℤ‘(𝑚 + 1))) → (𝐺𝑘) = 𝐵)
4339, 41, 21syl2anc 693 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ (ℤ‘(𝑚 + 1))) → 𝐵 ∈ ℂ)
4422adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → seq0( + , 𝐺) ∈ dom ⇝ )
4526adantlr 751 . . . . . . . . . . . . . . . 16 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ ℕ0) → (𝐺𝑘) ∈ ℂ)
465, 37, 45iserex 14387 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → (seq0( + , 𝐺) ∈ dom ⇝ ↔ seq(𝑚 + 1)( + , 𝐺) ∈ dom ⇝ ))
4744, 46mpbid 222 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → seq(𝑚 + 1)( + , 𝐺) ∈ dom ⇝ )
4834, 38, 42, 43, 47isumcl 14492 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵 ∈ ℂ)
4930, 48pncan2d 10394 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (((seq0( + , 𝐺)‘𝑚) + Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵) − (seq0( + , 𝐺)‘𝑚)) = Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵)
5020adantlr 751 . . . . . . . . . . . . . . 15 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ ℕ0) → (𝐺𝑘) = 𝐵)
5121adantlr 751 . . . . . . . . . . . . . . 15 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ ℕ0) → 𝐵 ∈ ℂ)
525, 34, 37, 50, 51, 44isumsplit 14572 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ ℕ0 𝐵 = (Σ𝑘 ∈ (0...((𝑚 + 1) − 1))𝐵 + Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵))
53 nncn 11028 . . . . . . . . . . . . . . . . . . . 20 (𝑚 ∈ ℕ → 𝑚 ∈ ℂ)
5453adantl 482 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℂ)
55 ax-1cn 9994 . . . . . . . . . . . . . . . . . . 19 1 ∈ ℂ
56 pncan 10287 . . . . . . . . . . . . . . . . . . 19 ((𝑚 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑚 + 1) − 1) = 𝑚)
5754, 55, 56sylancl 694 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑚 ∈ ℕ) → ((𝑚 + 1) − 1) = 𝑚)
5857oveq2d 6666 . . . . . . . . . . . . . . . . 17 ((𝜑𝑚 ∈ ℕ) → (0...((𝑚 + 1) − 1)) = (0...𝑚))
5958sumeq1d 14431 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ (0...((𝑚 + 1) − 1))𝐵 = Σ𝑘 ∈ (0...𝑚)𝐵)
60 simpl 473 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑚 ∈ ℕ) → 𝜑)
61 elfznn0 12433 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ (0...𝑚) → 𝑘 ∈ ℕ0)
6260, 61, 20syl2an 494 . . . . . . . . . . . . . . . . 17 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ (0...𝑚)) → (𝐺𝑘) = 𝐵)
6335, 5syl6eleq 2711 . . . . . . . . . . . . . . . . 17 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ (ℤ‘0))
6460, 61, 21syl2an 494 . . . . . . . . . . . . . . . . 17 (((𝜑𝑚 ∈ ℕ) ∧ 𝑘 ∈ (0...𝑚)) → 𝐵 ∈ ℂ)
6562, 63, 64fsumser 14461 . . . . . . . . . . . . . . . 16 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ (0...𝑚)𝐵 = (seq0( + , 𝐺)‘𝑚))
6659, 65eqtrd 2656 . . . . . . . . . . . . . . 15 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ (0...((𝑚 + 1) − 1))𝐵 = (seq0( + , 𝐺)‘𝑚))
6766oveq1d 6665 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → (Σ𝑘 ∈ (0...((𝑚 + 1) − 1))𝐵 + Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵) = ((seq0( + , 𝐺)‘𝑚) + Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵))
6852, 67eqtrd 2656 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ ℕ0 𝐵 = ((seq0( + , 𝐺)‘𝑚) + Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵))
6968oveq1d 6665 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (Σ𝑘 ∈ ℕ0 𝐵 − (seq0( + , 𝐺)‘𝑚)) = (((seq0( + , 𝐺)‘𝑚) + Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵) − (seq0( + , 𝐺)‘𝑚)))
7042sumeq2dv 14433 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘) = Σ𝑘 ∈ (ℤ‘(𝑚 + 1))𝐵)
7149, 69, 703eqtr4d 2666 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (Σ𝑘 ∈ ℕ0 𝐵 − (seq0( + , 𝐺)‘𝑚)) = Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘))
7271fveq2d 6195 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → (abs‘(Σ𝑘 ∈ ℕ0 𝐵 − (seq0( + , 𝐺)‘𝑚))) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)))
7333, 72eqtrd 2656 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)))
7473breq1d 4663 . . . . . . . 8 ((𝜑𝑚 ∈ ℕ) → ((abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ↔ (abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
7525, 74sylan2 491 . . . . . . 7 ((𝜑 ∧ (𝑠 ∈ ℕ ∧ 𝑚 ∈ (ℤ𝑠))) → ((abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ↔ (abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
7675anassrs 680 . . . . . 6 (((𝜑𝑠 ∈ ℕ) ∧ 𝑚 ∈ (ℤ𝑠)) → ((abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ↔ (abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
7776ralbidva 2985 . . . . 5 ((𝜑𝑠 ∈ ℕ) → (∀𝑚 ∈ (ℤ𝑠)(abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ↔ ∀𝑚 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
78 oveq1 6657 . . . . . . . . . 10 (𝑚 = 𝑛 → (𝑚 + 1) = (𝑛 + 1))
7978fveq2d 6195 . . . . . . . . 9 (𝑚 = 𝑛 → (ℤ‘(𝑚 + 1)) = (ℤ‘(𝑛 + 1)))
8079sumeq1d 14431 . . . . . . . 8 (𝑚 = 𝑛 → Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘) = Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))
8180fveq2d 6195 . . . . . . 7 (𝑚 = 𝑛 → (abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)))
8281breq1d 4663 . . . . . 6 (𝑚 = 𝑛 → ((abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ↔ (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
8382cbvralv 3171 . . . . 5 (∀𝑚 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑚 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ↔ ∀𝑛 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)))
8477, 83syl6bb 276 . . . 4 ((𝜑𝑠 ∈ ℕ) → (∀𝑚 ∈ (ℤ𝑠)(abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) ↔ ∀𝑛 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
85 mertens.11 . . . . . 6 (𝜓 ↔ (𝑠 ∈ ℕ ∧ ∀𝑛 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))))
86 0zd 11389 . . . . . . . . 9 ((𝜑𝜓) → 0 ∈ ℤ)
874adantr 481 . . . . . . . . . . 11 ((𝜑𝜓) → (𝐸 / 2) ∈ ℝ+)
8885simplbi 476 . . . . . . . . . . . . 13 (𝜓𝑠 ∈ ℕ)
8988adantl 482 . . . . . . . . . . . 12 ((𝜑𝜓) → 𝑠 ∈ ℕ)
9089nnrpd 11870 . . . . . . . . . . 11 ((𝜑𝜓) → 𝑠 ∈ ℝ+)
9187, 90rpdivcld 11889 . . . . . . . . . 10 ((𝜑𝜓) → ((𝐸 / 2) / 𝑠) ∈ ℝ+)
92 mertens.10 . . . . . . . . . . . . 13 𝑇 = {𝑧 ∣ ∃𝑛 ∈ (0...(𝑠 − 1))𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))}
93 eqid 2622 . . . . . . . . . . . . . . . . . 18 (ℤ‘(𝑛 + 1)) = (ℤ‘(𝑛 + 1))
94 elfznn0 12433 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 ∈ (0...(𝑠 − 1)) → 𝑛 ∈ ℕ0)
9594adantl 482 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → 𝑛 ∈ ℕ0)
96 peano2nn0 11333 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℕ0 → (𝑛 + 1) ∈ ℕ0)
9795, 96syl 17 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → (𝑛 + 1) ∈ ℕ0)
9897nn0zd 11480 . . . . . . . . . . . . . . . . . 18 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → (𝑛 + 1) ∈ ℤ)
99 eqidd 2623 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) ∧ 𝑘 ∈ (ℤ‘(𝑛 + 1))) → (𝐺𝑘) = (𝐺𝑘))
100 simplll 798 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) ∧ 𝑘 ∈ (ℤ‘(𝑛 + 1))) → 𝜑)
101 eluznn0 11757 . . . . . . . . . . . . . . . . . . . 20 (((𝑛 + 1) ∈ ℕ0𝑘 ∈ (ℤ‘(𝑛 + 1))) → 𝑘 ∈ ℕ0)
10297, 101sylan 488 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) ∧ 𝑘 ∈ (ℤ‘(𝑛 + 1))) → 𝑘 ∈ ℕ0)
103100, 102, 26syl2anc 693 . . . . . . . . . . . . . . . . . 18 ((((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) ∧ 𝑘 ∈ (ℤ‘(𝑛 + 1))) → (𝐺𝑘) ∈ ℂ)
10422ad2antrr 762 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → seq0( + , 𝐺) ∈ dom ⇝ )
105 simpll 790 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → 𝜑)
106105, 26sylan 488 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) ∧ 𝑘 ∈ ℕ0) → (𝐺𝑘) ∈ ℂ)
1075, 97, 106iserex 14387 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → (seq0( + , 𝐺) ∈ dom ⇝ ↔ seq(𝑛 + 1)( + , 𝐺) ∈ dom ⇝ ))
108104, 107mpbid 222 . . . . . . . . . . . . . . . . . 18 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → seq(𝑛 + 1)( + , 𝐺) ∈ dom ⇝ )
10993, 98, 99, 103, 108isumcl 14492 . . . . . . . . . . . . . . . . 17 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘) ∈ ℂ)
110109abscld 14175 . . . . . . . . . . . . . . . 16 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) ∈ ℝ)
111 eleq1a 2696 . . . . . . . . . . . . . . . 16 ((abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) ∈ ℝ → (𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) → 𝑧 ∈ ℝ))
112110, 111syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝜓) ∧ 𝑛 ∈ (0...(𝑠 − 1))) → (𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) → 𝑧 ∈ ℝ))
113112rexlimdva 3031 . . . . . . . . . . . . . 14 ((𝜑𝜓) → (∃𝑛 ∈ (0...(𝑠 − 1))𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) → 𝑧 ∈ ℝ))
114113abssdv 3676 . . . . . . . . . . . . 13 ((𝜑𝜓) → {𝑧 ∣ ∃𝑛 ∈ (0...(𝑠 − 1))𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))} ⊆ ℝ)
11592, 114syl5eqss 3649 . . . . . . . . . . . 12 ((𝜑𝜓) → 𝑇 ⊆ ℝ)
116 fzfid 12772 . . . . . . . . . . . . . . 15 ((𝜑𝜓) → (0...(𝑠 − 1)) ∈ Fin)
117 abrexfi 8266 . . . . . . . . . . . . . . 15 ((0...(𝑠 − 1)) ∈ Fin → {𝑧 ∣ ∃𝑛 ∈ (0...(𝑠 − 1))𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))} ∈ Fin)
118116, 117syl 17 . . . . . . . . . . . . . 14 ((𝜑𝜓) → {𝑧 ∣ ∃𝑛 ∈ (0...(𝑠 − 1))𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))} ∈ Fin)
11992, 118syl5eqel 2705 . . . . . . . . . . . . 13 ((𝜑𝜓) → 𝑇 ∈ Fin)
120 nnm1nn0 11334 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ℕ → (𝑠 − 1) ∈ ℕ0)
12189, 120syl 17 . . . . . . . . . . . . . . . . . 18 ((𝜑𝜓) → (𝑠 − 1) ∈ ℕ0)
122121, 5syl6eleq 2711 . . . . . . . . . . . . . . . . 17 ((𝜑𝜓) → (𝑠 − 1) ∈ (ℤ‘0))
123 eluzfz1 12348 . . . . . . . . . . . . . . . . 17 ((𝑠 − 1) ∈ (ℤ‘0) → 0 ∈ (0...(𝑠 − 1)))
124122, 123syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝜓) → 0 ∈ (0...(𝑠 − 1)))
125 nnnn0 11299 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 ∈ ℕ → 𝑘 ∈ ℕ0)
126125, 20sylan2 491 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ ℕ) → (𝐺𝑘) = 𝐵)
127126sumeq2dv 14433 . . . . . . . . . . . . . . . . . . 19 (𝜑 → Σ𝑘 ∈ ℕ (𝐺𝑘) = Σ𝑘 ∈ ℕ 𝐵)
128127adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝜓) → Σ𝑘 ∈ ℕ (𝐺𝑘) = Σ𝑘 ∈ ℕ 𝐵)
129128fveq2d 6195 . . . . . . . . . . . . . . . . 17 ((𝜑𝜓) → (abs‘Σ𝑘 ∈ ℕ (𝐺𝑘)) = (abs‘Σ𝑘 ∈ ℕ 𝐵))
130129eqcomd 2628 . . . . . . . . . . . . . . . 16 ((𝜑𝜓) → (abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ ℕ (𝐺𝑘)))
131 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = 0 → (𝑛 + 1) = (0 + 1))
132 0p1e1 11132 . . . . . . . . . . . . . . . . . . . . . . 23 (0 + 1) = 1
133131, 132syl6eq 2672 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = 0 → (𝑛 + 1) = 1)
134133fveq2d 6195 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 = 0 → (ℤ‘(𝑛 + 1)) = (ℤ‘1))
135134, 1syl6eqr 2674 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = 0 → (ℤ‘(𝑛 + 1)) = ℕ)
136135sumeq1d 14431 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 0 → Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘) = Σ𝑘 ∈ ℕ (𝐺𝑘))
137136fveq2d 6195 . . . . . . . . . . . . . . . . . 18 (𝑛 = 0 → (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) = (abs‘Σ𝑘 ∈ ℕ (𝐺𝑘)))
138137eqeq2d 2632 . . . . . . . . . . . . . . . . 17 (𝑛 = 0 → ((abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) ↔ (abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ ℕ (𝐺𝑘))))
139138rspcev 3309 . . . . . . . . . . . . . . . 16 ((0 ∈ (0...(𝑠 − 1)) ∧ (abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ ℕ (𝐺𝑘))) → ∃𝑛 ∈ (0...(𝑠 − 1))(abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)))
140124, 130, 139syl2anc 693 . . . . . . . . . . . . . . 15 ((𝜑𝜓) → ∃𝑛 ∈ (0...(𝑠 − 1))(abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)))
141 fvex 6201 . . . . . . . . . . . . . . . 16 (abs‘Σ𝑘 ∈ ℕ 𝐵) ∈ V
142 eqeq1 2626 . . . . . . . . . . . . . . . . 17 (𝑧 = (abs‘Σ𝑘 ∈ ℕ 𝐵) → (𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) ↔ (abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))))
143142rexbidv 3052 . . . . . . . . . . . . . . . 16 (𝑧 = (abs‘Σ𝑘 ∈ ℕ 𝐵) → (∃𝑛 ∈ (0...(𝑠 − 1))𝑧 = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) ↔ ∃𝑛 ∈ (0...(𝑠 − 1))(abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘))))
144141, 143, 92elab2 3354 . . . . . . . . . . . . . . 15 ((abs‘Σ𝑘 ∈ ℕ 𝐵) ∈ 𝑇 ↔ ∃𝑛 ∈ (0...(𝑠 − 1))(abs‘Σ𝑘 ∈ ℕ 𝐵) = (abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)))
145140, 144sylibr 224 . . . . . . . . . . . . . 14 ((𝜑𝜓) → (abs‘Σ𝑘 ∈ ℕ 𝐵) ∈ 𝑇)
146 ne0i 3921 . . . . . . . . . . . . . 14 ((abs‘Σ𝑘 ∈ ℕ 𝐵) ∈ 𝑇𝑇 ≠ ∅)
147145, 146syl 17 . . . . . . . . . . . . 13 ((𝜑𝜓) → 𝑇 ≠ ∅)
148 ltso 10118 . . . . . . . . . . . . . 14 < Or ℝ
149 fisupcl 8375 . . . . . . . . . . . . . 14 (( < Or ℝ ∧ (𝑇 ∈ Fin ∧ 𝑇 ≠ ∅ ∧ 𝑇 ⊆ ℝ)) → sup(𝑇, ℝ, < ) ∈ 𝑇)
150148, 149mpan 706 . . . . . . . . . . . . 13 ((𝑇 ∈ Fin ∧ 𝑇 ≠ ∅ ∧ 𝑇 ⊆ ℝ) → sup(𝑇, ℝ, < ) ∈ 𝑇)
151119, 147, 115, 150syl3anc 1326 . . . . . . . . . . . 12 ((𝜑𝜓) → sup(𝑇, ℝ, < ) ∈ 𝑇)
152115, 151sseldd 3604 . . . . . . . . . . 11 ((𝜑𝜓) → sup(𝑇, ℝ, < ) ∈ ℝ)
153 0red 10041 . . . . . . . . . . . 12 ((𝜑𝜓) → 0 ∈ ℝ)
154125, 21sylan2 491 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ ℕ) → 𝐵 ∈ ℂ)
155 1nn0 11308 . . . . . . . . . . . . . . . . . 18 1 ∈ ℕ0
156155a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → 1 ∈ ℕ0)
1575, 156, 26iserex 14387 . . . . . . . . . . . . . . . 16 (𝜑 → (seq0( + , 𝐺) ∈ dom ⇝ ↔ seq1( + , 𝐺) ∈ dom ⇝ ))
15822, 157mpbid 222 . . . . . . . . . . . . . . 15 (𝜑 → seq1( + , 𝐺) ∈ dom ⇝ )
1591, 2, 126, 154, 158isumcl 14492 . . . . . . . . . . . . . 14 (𝜑 → Σ𝑘 ∈ ℕ 𝐵 ∈ ℂ)
160159adantr 481 . . . . . . . . . . . . 13 ((𝜑𝜓) → Σ𝑘 ∈ ℕ 𝐵 ∈ ℂ)
161160abscld 14175 . . . . . . . . . . . 12 ((𝜑𝜓) → (abs‘Σ𝑘 ∈ ℕ 𝐵) ∈ ℝ)
162160absge0d 14183 . . . . . . . . . . . 12 ((𝜑𝜓) → 0 ≤ (abs‘Σ𝑘 ∈ ℕ 𝐵))
163 fimaxre2 10969 . . . . . . . . . . . . . . 15 ((𝑇 ⊆ ℝ ∧ 𝑇 ∈ Fin) → ∃𝑧 ∈ ℝ ∀𝑤𝑇 𝑤𝑧)
164115, 119, 163syl2anc 693 . . . . . . . . . . . . . 14 ((𝜑𝜓) → ∃𝑧 ∈ ℝ ∀𝑤𝑇 𝑤𝑧)
165115, 147, 1643jca 1242 . . . . . . . . . . . . 13 ((𝜑𝜓) → (𝑇 ⊆ ℝ ∧ 𝑇 ≠ ∅ ∧ ∃𝑧 ∈ ℝ ∀𝑤𝑇 𝑤𝑧))
166 suprub 10984 . . . . . . . . . . . . 13 (((𝑇 ⊆ ℝ ∧ 𝑇 ≠ ∅ ∧ ∃𝑧 ∈ ℝ ∀𝑤𝑇 𝑤𝑧) ∧ (abs‘Σ𝑘 ∈ ℕ 𝐵) ∈ 𝑇) → (abs‘Σ𝑘 ∈ ℕ 𝐵) ≤ sup(𝑇, ℝ, < ))
167165, 145, 166syl2anc 693 . . . . . . . . . . . 12 ((𝜑𝜓) → (abs‘Σ𝑘 ∈ ℕ 𝐵) ≤ sup(𝑇, ℝ, < ))
168153, 161, 152, 162, 167letrd 10194 . . . . . . . . . . 11 ((𝜑𝜓) → 0 ≤ sup(𝑇, ℝ, < ))
169152, 168ge0p1rpd 11902 . . . . . . . . . 10 ((𝜑𝜓) → (sup(𝑇, ℝ, < ) + 1) ∈ ℝ+)
17091, 169rpdivcld 11889 . . . . . . . . 9 ((𝜑𝜓) → (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) ∈ ℝ+)
171 fveq2 6191 . . . . . . . . . . 11 (𝑛 = 𝑚 → (𝐾𝑛) = (𝐾𝑚))
172 eqid 2622 . . . . . . . . . . 11 (𝑛 ∈ ℕ0 ↦ (𝐾𝑛)) = (𝑛 ∈ ℕ0 ↦ (𝐾𝑛))
173 fvex 6201 . . . . . . . . . . 11 (𝐾𝑚) ∈ V
174171, 172, 173fvmpt 6282 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑚) = (𝐾𝑚))
175174adantl 482 . . . . . . . . 9 (((𝜑𝜓) ∧ 𝑚 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑚) = (𝐾𝑚))
176 nn0ex 11298 . . . . . . . . . . . . 13 0 ∈ V
177176mptex 6486 . . . . . . . . . . . 12 (𝑛 ∈ ℕ0 ↦ (𝐾𝑛)) ∈ V
178177a1i 11 . . . . . . . . . . 11 (𝜑 → (𝑛 ∈ ℕ0 ↦ (𝐾𝑛)) ∈ V)
179 elnn0uz 11725 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ0𝑗 ∈ (ℤ‘0))
180 fveq2 6191 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑗 → (𝐾𝑛) = (𝐾𝑗))
181 fvex 6201 . . . . . . . . . . . . . . . 16 (𝐾𝑗) ∈ V
182180, 172, 181fvmpt 6282 . . . . . . . . . . . . . . 15 (𝑗 ∈ ℕ0 → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑗) = (𝐾𝑗))
183182adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑗) = (𝐾𝑗))
184179, 183sylan2br 493 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (ℤ‘0)) → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑗) = (𝐾𝑗))
1856, 184seqfeq 12826 . . . . . . . . . . . 12 (𝜑 → seq0( + , (𝑛 ∈ ℕ0 ↦ (𝐾𝑛))) = seq0( + , 𝐾))
186185, 12eqeltrd 2701 . . . . . . . . . . 11 (𝜑 → seq0( + , (𝑛 ∈ ℕ0 ↦ (𝐾𝑛))) ∈ dom ⇝ )
187183, 8eqtrd 2656 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑗) = (abs‘𝐴))
188187, 10eqeltrd 2701 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑗) ∈ ℝ)
189188recnd 10068 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (𝐾𝑛))‘𝑗) ∈ ℂ)
1905, 6, 178, 186, 189serf0 14411 . . . . . . . . . 10 (𝜑 → (𝑛 ∈ ℕ0 ↦ (𝐾𝑛)) ⇝ 0)
191190adantr 481 . . . . . . . . 9 ((𝜑𝜓) → (𝑛 ∈ ℕ0 ↦ (𝐾𝑛)) ⇝ 0)
1925, 86, 170, 175, 191climi0 14243 . . . . . . . 8 ((𝜑𝜓) → ∃𝑡 ∈ ℕ0𝑚 ∈ (ℤ𝑡)(abs‘(𝐾𝑚)) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))
193 simplll 798 . . . . . . . . . . . . . 14 ((((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) ∧ 𝑚 ∈ (ℤ𝑡)) → 𝜑)
194 eluznn0 11757 . . . . . . . . . . . . . . 15 ((𝑡 ∈ ℕ0𝑚 ∈ (ℤ𝑡)) → 𝑚 ∈ ℕ0)
195194adantll 750 . . . . . . . . . . . . . 14 ((((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) ∧ 𝑚 ∈ (ℤ𝑡)) → 𝑚 ∈ ℕ0)
19611, 15absidd 14161 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ ℕ0) → (abs‘(𝐾𝑗)) = (𝐾𝑗))
197196ralrimiva 2966 . . . . . . . . . . . . . . 15 (𝜑 → ∀𝑗 ∈ ℕ0 (abs‘(𝐾𝑗)) = (𝐾𝑗))
198 fveq2 6191 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝑚 → (𝐾𝑗) = (𝐾𝑚))
199198fveq2d 6195 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑚 → (abs‘(𝐾𝑗)) = (abs‘(𝐾𝑚)))
200199, 198eqeq12d 2637 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑚 → ((abs‘(𝐾𝑗)) = (𝐾𝑗) ↔ (abs‘(𝐾𝑚)) = (𝐾𝑚)))
201200rspccva 3308 . . . . . . . . . . . . . . 15 ((∀𝑗 ∈ ℕ0 (abs‘(𝐾𝑗)) = (𝐾𝑗) ∧ 𝑚 ∈ ℕ0) → (abs‘(𝐾𝑚)) = (𝐾𝑚))
202197, 201sylan 488 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ0) → (abs‘(𝐾𝑚)) = (𝐾𝑚))
203193, 195, 202syl2anc 693 . . . . . . . . . . . . 13 ((((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) ∧ 𝑚 ∈ (ℤ𝑡)) → (abs‘(𝐾𝑚)) = (𝐾𝑚))
204203breq1d 4663 . . . . . . . . . . . 12 ((((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) ∧ 𝑚 ∈ (ℤ𝑡)) → ((abs‘(𝐾𝑚)) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) ↔ (𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1))))
205204ralbidva 2985 . . . . . . . . . . 11 (((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) → (∀𝑚 ∈ (ℤ𝑡)(abs‘(𝐾𝑚)) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) ↔ ∀𝑚 ∈ (ℤ𝑡)(𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1))))
206171breq1d 4663 . . . . . . . . . . . 12 (𝑛 = 𝑚 → ((𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) ↔ (𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1))))
207206cbvralv 3171 . . . . . . . . . . 11 (∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) ↔ ∀𝑚 ∈ (ℤ𝑡)(𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))
208205, 207syl6bbr 278 . . . . . . . . . 10 (((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) → (∀𝑚 ∈ (ℤ𝑡)(abs‘(𝐾𝑚)) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) ↔ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1))))
209 simpll 790 . . . . . . . . . . . . 13 (((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → 𝜑)
210 mertens.1 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ℕ0) → (𝐹𝑗) = 𝐴)
211209, 210sylan 488 . . . . . . . . . . . 12 ((((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) ∧ 𝑗 ∈ ℕ0) → (𝐹𝑗) = 𝐴)
212209, 8sylan 488 . . . . . . . . . . . 12 ((((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) ∧ 𝑗 ∈ ℕ0) → (𝐾𝑗) = (abs‘𝐴))
213209, 9sylan 488 . . . . . . . . . . . 12 ((((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) ∧ 𝑗 ∈ ℕ0) → 𝐴 ∈ ℂ)
214209, 20sylan 488 . . . . . . . . . . . 12 ((((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) ∧ 𝑘 ∈ ℕ0) → (𝐺𝑘) = 𝐵)
215209, 21sylan 488 . . . . . . . . . . . 12 ((((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) ∧ 𝑘 ∈ ℕ0) → 𝐵 ∈ ℂ)
216 mertens.6 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ0) → (𝐻𝑘) = Σ𝑗 ∈ (0...𝑘)(𝐴 · (𝐺‘(𝑘𝑗))))
217209, 216sylan 488 . . . . . . . . . . . 12 ((((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) ∧ 𝑘 ∈ ℕ0) → (𝐻𝑘) = Σ𝑗 ∈ (0...𝑘)(𝐴 · (𝐺‘(𝑘𝑗))))
21812ad2antrr 762 . . . . . . . . . . . 12 (((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → seq0( + , 𝐾) ∈ dom ⇝ )
21922ad2antrr 762 . . . . . . . . . . . 12 (((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → seq0( + , 𝐺) ∈ dom ⇝ )
2203ad2antrr 762 . . . . . . . . . . . 12 (((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → 𝐸 ∈ ℝ+)
221207anbi2i 730 . . . . . . . . . . . . . . 15 ((𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1))) ↔ (𝑡 ∈ ℕ0 ∧ ∀𝑚 ∈ (ℤ𝑡)(𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1))))
222221anbi2i 730 . . . . . . . . . . . . . 14 ((𝜓 ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) ↔ (𝜓 ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑚 ∈ (ℤ𝑡)(𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))))
223222biimpi 206 . . . . . . . . . . . . 13 ((𝜓 ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → (𝜓 ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑚 ∈ (ℤ𝑡)(𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))))
224223adantll 750 . . . . . . . . . . . 12 (((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → (𝜓 ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑚 ∈ (ℤ𝑡)(𝐾𝑚) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))))
225168, 165jca 554 . . . . . . . . . . . . 13 ((𝜑𝜓) → (0 ≤ sup(𝑇, ℝ, < ) ∧ (𝑇 ⊆ ℝ ∧ 𝑇 ≠ ∅ ∧ ∃𝑧 ∈ ℝ ∀𝑤𝑇 𝑤𝑧)))
226225adantr 481 . . . . . . . . . . . 12 (((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → (0 ≤ sup(𝑇, ℝ, < ) ∧ (𝑇 ⊆ ℝ ∧ 𝑇 ≠ ∅ ∧ ∃𝑧 ∈ ℝ ∀𝑤𝑇 𝑤𝑧)))
227211, 212, 213, 214, 215, 217, 218, 219, 220, 92, 85, 224, 226mertenslem1 14616 . . . . . . . . . . 11 (((𝜑𝜓) ∧ (𝑡 ∈ ℕ0 ∧ ∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)))) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸)
228227expr 643 . . . . . . . . . 10 (((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) → (∀𝑛 ∈ (ℤ𝑡)(𝐾𝑛) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
229208, 228sylbid 230 . . . . . . . . 9 (((𝜑𝜓) ∧ 𝑡 ∈ ℕ0) → (∀𝑚 ∈ (ℤ𝑡)(abs‘(𝐾𝑚)) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
230229rexlimdva 3031 . . . . . . . 8 ((𝜑𝜓) → (∃𝑡 ∈ ℕ0𝑚 ∈ (ℤ𝑡)(abs‘(𝐾𝑚)) < (((𝐸 / 2) / 𝑠) / (sup(𝑇, ℝ, < ) + 1)) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
231192, 230mpd 15 . . . . . . 7 ((𝜑𝜓) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸)
232231ex 450 . . . . . 6 (𝜑 → (𝜓 → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
23385, 232syl5bir 233 . . . . 5 (𝜑 → ((𝑠 ∈ ℕ ∧ ∀𝑛 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1))) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
234233expdimp 453 . . . 4 ((𝜑𝑠 ∈ ℕ) → (∀𝑛 ∈ (ℤ𝑠)(abs‘Σ𝑘 ∈ (ℤ‘(𝑛 + 1))(𝐺𝑘)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
23584, 234sylbid 230 . . 3 ((𝜑𝑠 ∈ ℕ) → (∀𝑚 ∈ (ℤ𝑠)(abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
236235rexlimdva 3031 . 2 (𝜑 → (∃𝑠 ∈ ℕ ∀𝑚 ∈ (ℤ𝑠)(abs‘((seq0( + , 𝐺)‘𝑚) − Σ𝑘 ∈ ℕ0 𝐵)) < ((𝐸 / 2) / (Σ𝑗 ∈ ℕ0 (𝐾𝑗) + 1)) → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸))
23724, 236mpd 15 1 (𝜑 → ∃𝑦 ∈ ℕ0𝑚 ∈ (ℤ𝑦)(abs‘Σ𝑗 ∈ (0...𝑚)(𝐴 · Σ𝑘 ∈ (ℤ‘((𝑚𝑗) + 1))𝐵)) < 𝐸)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3a 1037   = wceq 1483  wcel 1990  {cab 2608  wne 2794  wral 2912  wrex 2913  Vcvv 3200  wss 3574  c0 3915   class class class wbr 4653  cmpt 4729   Or wor 5034  dom cdm 5114  wf 5884  cfv 5888  (class class class)co 6650  Fincfn 7955  supcsup 8346  cc 9934  cr 9935  0cc0 9936  1c1 9937   + caddc 9939   · cmul 9941   < clt 10074  cle 10075  cmin 10266   / cdiv 10684  cn 11020  2c2 11070  0cn0 11292  cuz 11687  +crp 11832  ...cfz 12326  seqcseq 12801  abscabs 13974  cli 14215  Σcsu 14416
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014  ax-addf 10015  ax-mulf 10016
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-oadd 7564  df-er 7742  df-pm 7860  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-sup 8348  df-inf 8349  df-oi 8415  df-card 8765  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-n0 11293  df-z 11378  df-uz 11688  df-rp 11833  df-ico 12181  df-fz 12327  df-fzo 12466  df-fl 12593  df-seq 12802  df-exp 12861  df-hash 13118  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-limsup 14202  df-clim 14219  df-rlim 14220  df-sum 14417
This theorem is referenced by:  mertens  14618
  Copyright terms: Public domain W3C validator