trilpolemlt1 - Mathbox for Jim Kingdon

	Mathbox for Jim Kingdon		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > Mathboxes > trilpolemlt1		GIF version

Theorem trilpolemlt1 16340

Description: Lemma for trilpo 16342. The 𝐴 < 1 case. We can use the distance between 𝐴 and one (that is, 1 − 𝐴) to find a position in the sequence 𝑛 where terms after that point will not add up to as much as 1 − 𝐴. By finomni 7295 we know the terms up to 𝑛 either contain a zero or are all one. But if they are all one that contradicts the way we constructed 𝑛, so we know that the sequence contains a zero. (Contributed by Jim Kingdon, 23-Aug-2023.)

**Hypotheses**
Ref	Expression
trilpolemgt1.f	⊢ (𝜑 → 𝐹:ℕ⟶{0, 1})
trilpolemgt1.a	⊢ 𝐴 = Σ𝑖 ∈ ℕ ((1 / (2↑𝑖)) · (𝐹‘𝑖))
trilpolemlt1.a	⊢ (𝜑 → 𝐴 < 1)

**Assertion**
Ref	Expression
trilpolemlt1	⊢ (𝜑 → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0)

Distinct variable groups: 𝐴,𝑖,𝑥 𝑥,𝐹,𝑖 𝜑,𝑖,𝑥

Proof of Theorem trilpolemlt1 Dummy variables 𝑛 𝑓 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		1red 8149	. . . 4 ⊢ (𝜑 → 1 ∈ ℝ)
2		trilpolemgt1.f	. . . . 5 ⊢ (𝜑 → 𝐹:ℕ⟶{0, 1})
3		trilpolemgt1.a	. . . . 5 ⊢ 𝐴 = Σ𝑖 ∈ ℕ ((1 / (2↑𝑖)) · (𝐹‘𝑖))
4	2, 3	trilpolemcl 16336	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ)
5	1, 4	resubcld 8515	. . 3 ⊢ (𝜑 → (1 − 𝐴) ∈ ℝ)
6		trilpolemlt1.a	. . . 4 ⊢ (𝜑 → 𝐴 < 1)
7	4, 1	posdifd 8667	. . . 4 ⊢ (𝜑 → (𝐴 < 1 ↔ 0 < (1 − 𝐴)))
8	6, 7	mpbid 147	. . 3 ⊢ (𝜑 → 0 < (1 − 𝐴))
9		nnrecl 9355	. . 3 ⊢ (((1 − 𝐴) ∈ ℝ ∧ 0 < (1 − 𝐴)) → ∃𝑛 ∈ ℕ (1 / 𝑛) < (1 − 𝐴))
10	5, 8, 9	syl2anc 411	. 2 ⊢ (𝜑 → ∃𝑛 ∈ ℕ (1 / 𝑛) < (1 − 𝐴))
11		elfznn 10238	. . . . . . 7 ⊢ (𝑥 ∈ (1...𝑛) → 𝑥 ∈ ℕ)
12	11	ad2antrl 490	. . . . . 6 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → 𝑥 ∈ ℕ)
13		simprl 529	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → 𝑥 ∈ (1...𝑛))
14	13	fvresd 5648	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → ((𝐹 ↾ (1...𝑛))‘𝑥) = (𝐹‘𝑥))
15		simprr 531	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)
16	14, 15	eqtr3d 2264	. . . . . 6 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → (𝐹‘𝑥) = 0)
17	12, 16	jca 306	. . . . 5 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → (𝑥 ∈ ℕ ∧ (𝐹‘𝑥) = 0))
18	17	ex 115	. . . 4 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → ((𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0) → (𝑥 ∈ ℕ ∧ (𝐹‘𝑥) = 0)))
19	18	reximdv2 2629	. . 3 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0 → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0))
20		2rp 9842	. . . . . . . . . 10 ⊢ 2 ∈ ℝ⁺
21	20	a1i 9	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 2 ∈ ℝ⁺)
22		simprl 529	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℕ)
23	22	nnzd 9556	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℤ)
24	21, 23	rpexpcld 10906	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (2↑𝑛) ∈ ℝ⁺)
25	24	rprecred 9892	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 / (2↑𝑛)) ∈ ℝ)
26	22	nnrecred 9145	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 / 𝑛) ∈ ℝ)
27	5	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 − 𝐴) ∈ ℝ)
28		2z 9462	. . . . . . . . . 10 ⊢ 2 ∈ ℤ
29		uzid 9724	. . . . . . . . . 10 ⊢ (2 ∈ ℤ → 2 ∈ (ℤ_≥‘2))
30	28, 29	mp1i 10	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 2 ∈ (ℤ_≥‘2))
31	22	nnnn0d 9410	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℕ₀)
32		bernneq3 10871	. . . . . . . . 9 ⊢ ((2 ∈ (ℤ_≥‘2) ∧ 𝑛 ∈ ℕ₀) → 𝑛 < (2↑𝑛))
33	30, 31, 32	syl2anc 411	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 < (2↑𝑛))
34	22	nnrpd 9878	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℝ⁺)
35	34, 24	ltrecd 9899	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (𝑛 < (2↑𝑛) ↔ (1 / (2↑𝑛)) < (1 / 𝑛)))
36	33, 35	mpbid 147	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 / (2↑𝑛)) < (1 / 𝑛))
37		simprr 531	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 / 𝑛) < (1 − 𝐴))
38	25, 26, 27, 36, 37	lttrd 8260	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 / (2↑𝑛)) < (1 − 𝐴))
39	38	adantr 276	. . . . 5 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1 / (2↑𝑛)) < (1 − 𝐴))
40	27	adantr 276	. . . . . 6 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1 − 𝐴) ∈ ℝ)
41	25	adantr 276	. . . . . 6 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1 / (2↑𝑛)) ∈ ℝ)
42		1red 8149	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 1 ∈ ℝ)
43	4	ad2antrr 488	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝐴 ∈ ℝ)
44		0red 8135	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 0 ∈ ℝ)
45		eqid 2229	. . . . . . . . . . 11 ⊢ (ℤ_≥‘(𝑛 + 1)) = (ℤ_≥‘(𝑛 + 1))
46	22	adantr 276	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝑛 ∈ ℕ)
47	46	peano2nnd 9113	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (𝑛 + 1) ∈ ℕ)
48	47	nnzd 9556	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (𝑛 + 1) ∈ ℤ)
49		eluznn 9783	. . . . . . . . . . . . 13 ⊢ (((𝑛 + 1) ∈ ℕ ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 𝑖 ∈ ℕ)
50	47, 49	sylan 283	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 𝑖 ∈ ℕ)
51		eqid 2229	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗))) = (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))
52		oveq2 6002	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑖 → (2↑𝑗) = (2↑𝑖))
53	52	oveq2d 6010	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑖 → (1 / (2↑𝑗)) = (1 / (2↑𝑖)))
54		fveq2 5623	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑖 → (𝐹‘𝑗) = (𝐹‘𝑖))
55	53, 54	oveq12d 6012	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑖 → ((1 / (2↑𝑗)) · (𝐹‘𝑗)) = ((1 / (2↑𝑖)) · (𝐹‘𝑖)))
56		simpr 110	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℕ)
57	20	a1i 9	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → 2 ∈ ℝ⁺)
58	56	nnzd 9556	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℤ)
59	57, 58	rpexpcld 10906	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (2↑𝑖) ∈ ℝ⁺)
60	59	rprecred 9892	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (1 / (2↑𝑖)) ∈ ℝ)
61		0re 8134	. . . . . . . . . . . . . . . 16 ⊢ 0 ∈ ℝ
62		1re 8133	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℝ
63		prssi 3825	. . . . . . . . . . . . . . . 16 ⊢ ((0 ∈ ℝ ∧ 1 ∈ ℝ) → {0, 1} ⊆ ℝ)
64	61, 62, 63	mp2an 426	. . . . . . . . . . . . . . 15 ⊢ {0, 1} ⊆ ℝ
65	2	adantr 276	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝐹:ℕ⟶{0, 1})
66	65	ad2antrr 488	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → 𝐹:ℕ⟶{0, 1})
67	66, 56	ffvelcdmd 5764	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) ∈ {0, 1})
68	64, 67	sselid 3222	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) ∈ ℝ)
69	60, 68	remulcld 8165	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) ∈ ℝ)
70	51, 55, 56, 69	fvmptd3 5721	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → ((𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))‘𝑖) = ((1 / (2↑𝑖)) · (𝐹‘𝑖)))
71	50, 70	syldan 282	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → ((𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))‘𝑖) = ((1 / (2↑𝑖)) · (𝐹‘𝑖)))
72	50, 69	syldan 282	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) ∈ ℝ)
73	65	adantr 276	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝐹:ℕ⟶{0, 1})
74	73, 51	trilpolemclim 16335	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → seq1( + , (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))) ∈ dom ⇝ )
75		nnuz 9746	. . . . . . . . . . . . 13 ⊢ ℕ = (ℤ_≥‘1)
76	69	recnd 8163	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) ∈ ℂ)
77	70, 76	eqeltrd 2306	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → ((𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))‘𝑖) ∈ ℂ)
78	75, 47, 77	iserex 11836	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (seq1( + , (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))) ∈ dom ⇝ ↔ seq(𝑛 + 1)( + , (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))) ∈ dom ⇝ ))
79	74, 78	mpbid 147	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → seq(𝑛 + 1)( + , (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))) ∈ dom ⇝ )
80	45, 48, 71, 72, 79	isumrecl 11926	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) ∈ ℝ)
81		1zzd 9461	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 1 ∈ ℤ)
82	81, 23	fzfigd 10640	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1...𝑛) ∈ Fin)
83	82	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1...𝑛) ∈ Fin)
84	20	a1i 9	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → 2 ∈ ℝ⁺)
85		elfzelz 10209	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (1...𝑛) → 𝑖 ∈ ℤ)
86	85	adantl 277	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → 𝑖 ∈ ℤ)
87	84, 86	rpexpcld 10906	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (2↑𝑖) ∈ ℝ⁺)
88	87	rprecred 9892	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (1 / (2↑𝑖)) ∈ ℝ)
89	83, 88	fsumrecl 11898	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) ∈ ℝ)
90	50, 60	syldan 282	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → (1 / (2↑𝑖)) ∈ ℝ)
91	50, 68	syldan 282	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → (𝐹‘𝑖) ∈ ℝ)
92	59	rpreccld 9891	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (1 / (2↑𝑖)) ∈ ℝ⁺)
93	50, 92	syldan 282	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → (1 / (2↑𝑖)) ∈ ℝ⁺)
94	93	rpge0d 9884	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 0 ≤ (1 / (2↑𝑖)))
95		0le0 9187	. . . . . . . . . . . . . 14 ⊢ 0 ≤ 0
96		simpr 110	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) ∧ (𝐹‘𝑖) = 0) → (𝐹‘𝑖) = 0)
97	95, 96	breqtrrid 4120	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) ∧ (𝐹‘𝑖) = 0) → 0 ≤ (𝐹‘𝑖))
98		0le1 8616	. . . . . . . . . . . . . 14 ⊢ 0 ≤ 1
99		simpr 110	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) ∧ (𝐹‘𝑖) = 1) → (𝐹‘𝑖) = 1)
100	98, 99	breqtrrid 4120	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) ∧ (𝐹‘𝑖) = 1) → 0 ≤ (𝐹‘𝑖))
101	73	adantr 276	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 𝐹:ℕ⟶{0, 1})
102	101, 50	ffvelcdmd 5764	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → (𝐹‘𝑖) ∈ {0, 1})
103		elpri 3689	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑖) ∈ {0, 1} → ((𝐹‘𝑖) = 0 ∨ (𝐹‘𝑖) = 1))
104	102, 103	syl 14	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → ((𝐹‘𝑖) = 0 ∨ (𝐹‘𝑖) = 1))
105	97, 100, 104	mpjaodan 803	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 0 ≤ (𝐹‘𝑖))
106	90, 91, 94, 105	mulge0d 8756	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 0 ≤ ((1 / (2↑𝑖)) · (𝐹‘𝑖)))
107	45, 48, 71, 72, 79, 106	isumge0 11927	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 0 ≤ Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)))
108	44, 80, 89, 107	leadd2dd 8695	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + 0) ≤ (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
109	89	recnd 8163	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) ∈ ℂ)
110	109	addridd 8283	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + 0) = Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)))
111	110	eqcomd 2235	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) = (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + 0))
112	75, 45, 47, 70, 76, 74	isumsplit 11988	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ ℕ ((1 / (2↑𝑖)) · (𝐹‘𝑖)) = (Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
113	3, 112	eqtrid 2274	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝐴 = (Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
114	46	nncnd 9112	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝑛 ∈ ℂ)
115		1cnd 8150	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 1 ∈ ℂ)
116	114, 115	pncand 8446	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → ((𝑛 + 1) − 1) = 𝑛)
117	116	oveq2d 6010	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1...((𝑛 + 1) − 1)) = (1...𝑛))
118		simpr 110	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → 𝑖 ∈ (1...𝑛))
119	118	fvresd 5648	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((𝐹 ↾ (1...𝑛))‘𝑖) = (𝐹‘𝑖))
120		fveqeq2 5632	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑖 → (((𝐹 ↾ (1...𝑛))‘𝑥) = 1 ↔ ((𝐹 ↾ (1...𝑛))‘𝑖) = 1))
121		simplr 528	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1)
122	120, 121, 118	rspcdva 2912	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((𝐹 ↾ (1...𝑛))‘𝑖) = 1)
123	119, 122	eqtr3d 2264	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (𝐹‘𝑖) = 1)
124	123	oveq2d 6010	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) = ((1 / (2↑𝑖)) · 1))
125	87	rpreccld 9891	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (1 / (2↑𝑖)) ∈ ℝ⁺)
126	125	rpcnd 9882	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (1 / (2↑𝑖)) ∈ ℂ)
127	126	mulridd 8151	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((1 / (2↑𝑖)) · 1) = (1 / (2↑𝑖)))
128	124, 127	eqtrd 2262	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) = (1 / (2↑𝑖)))
129	117, 128	sumeq12rdv 11870	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) = Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)))
130	129	oveq1d 6009	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))) = (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
131	113, 130	eqtrd 2262	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝐴 = (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
132	108, 111, 131	3brtr4d 4114	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) ≤ 𝐴)
133		geo2sum 12011	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℕ ∧ 1 ∈ ℂ) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) = (1 − (1 / (2↑𝑛))))
134	133	breq1d 4092	. . . . . . . . 9 ⊢ ((𝑛 ∈ ℕ ∧ 1 ∈ ℂ) → (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) ≤ 𝐴 ↔ (1 − (1 / (2↑𝑛))) ≤ 𝐴))
135	46, 115, 134	syl2anc 411	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) ≤ 𝐴 ↔ (1 − (1 / (2↑𝑛))) ≤ 𝐴))
136	132, 135	mpbid 147	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1 − (1 / (2↑𝑛))) ≤ 𝐴)
137	42, 41, 43, 136	subled 8683	. . . . . 6 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1 − 𝐴) ≤ (1 / (2↑𝑛)))
138	40, 41, 137	lensymd 8256	. . . . 5 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → ¬ (1 / (2↑𝑛)) < (1 − 𝐴))
139	39, 138	pm2.21dd 623	. . . 4 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0)
140	139	ex 115	. . 3 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1 → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0))
141		fveq1 5622	. . . . . . 7 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → (𝑓‘𝑥) = ((𝐹 ↾ (1...𝑛))‘𝑥))
142	141	eqeq1d 2238	. . . . . 6 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → ((𝑓‘𝑥) = 0 ↔ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0))
143	142	rexbidv 2531	. . . . 5 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → (∃𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 0 ↔ ∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0))
144	141	eqeq1d 2238	. . . . . 6 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → ((𝑓‘𝑥) = 1 ↔ ((𝐹 ↾ (1...𝑛))‘𝑥) = 1))
145	144	ralbidv 2530	. . . . 5 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → (∀𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 1 ↔ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1))
146	143, 145	orbi12d 798	. . . 4 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → ((∃𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 1) ↔ (∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1)))
147		finomni 7295	. . . . . 6 ⊢ ((1...𝑛) ∈ Fin → (1...𝑛) ∈ Omni)
148	82, 147	syl 14	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1...𝑛) ∈ Omni)
149		isomninn 16330	. . . . . 6 ⊢ ((1...𝑛) ∈ Omni → ((1...𝑛) ∈ Omni ↔ ∀𝑓 ∈ ({0, 1} ↑_𝑚 (1...𝑛))(∃𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 1)))
150	148, 149	syl 14	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → ((1...𝑛) ∈ Omni ↔ ∀𝑓 ∈ ({0, 1} ↑_𝑚 (1...𝑛))(∃𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 1)))
151	148, 150	mpbid 147	. . . 4 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → ∀𝑓 ∈ ({0, 1} ↑_𝑚 (1...𝑛))(∃𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 1))
152		fz1ssnn 10240	. . . . . . 7 ⊢ (1...𝑛) ⊆ ℕ
153	152	a1i 9	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1...𝑛) ⊆ ℕ)
154	65, 153	fssresd 5498	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (𝐹 ↾ (1...𝑛)):(1...𝑛)⟶{0, 1})
155		0red 8135	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 0 ∈ ℝ)
156		1red 8149	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 1 ∈ ℝ)
157		prexg 4294	. . . . . . 7 ⊢ ((0 ∈ ℝ ∧ 1 ∈ ℝ) → {0, 1} ∈ V)
158	155, 156, 157	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → {0, 1} ∈ V)
159	158, 82	elmapd 6799	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → ((𝐹 ↾ (1...𝑛)) ∈ ({0, 1} ↑_𝑚 (1...𝑛)) ↔ (𝐹 ↾ (1...𝑛)):(1...𝑛)⟶{0, 1}))
160	154, 159	mpbird 167	. . . 4 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (𝐹 ↾ (1...𝑛)) ∈ ({0, 1} ↑_𝑚 (1...𝑛)))
161	146, 151, 160	rspcdva 2912	. . 3 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1))
162	19, 140, 161	mpjaod 723	. 2 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0)
163	10, 162	rexlimddv 2653	1 ⊢ (𝜑 → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 713 = wceq 1395 ∈ wcel 2200 ∀wral 2508 ∃wrex 2509 Vcvv 2799 ⊆ wss 3197 {cpr 3667 class class class wbr 4082 ↦ cmpt 4144 dom cdm 4716 ↾ cres 4718 ⟶wf 5310 ‘cfv 5314 (class class class)co 5994 ↑_𝑚 cmap 6785 Fincfn 6877 Omnicomni 7289 ℂcc 7985 ℝcr 7986 0cc0 7987 1c1 7988 + caddc 7990 · cmul 7992 < clt 8169 ≤ cle 8170 − cmin 8305 / cdiv 8807 ℕcn 9098 2c2 9149 ℕ₀cn0 9357 ℤcz 9434 ℤ_≥cuz 9710 ℝ⁺crp 9837 ...cfz 10192 seqcseq 10656 ↑cexp 10747 ⇝ cli 11775 Σcsu 11850

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4198 ax-sep 4201 ax-nul 4209 ax-pow 4257 ax-pr 4292 ax-un 4521 ax-setind 4626 ax-iinf 4677 ax-cnex 8078 ax-resscn 8079 ax-1cn 8080 ax-1re 8081 ax-icn 8082 ax-addcl 8083 ax-addrcl 8084 ax-mulcl 8085 ax-mulrcl 8086 ax-addcom 8087 ax-mulcom 8088 ax-addass 8089 ax-mulass 8090 ax-distr 8091 ax-i2m1 8092 ax-0lt1 8093 ax-1rid 8094 ax-0id 8095 ax-rnegex 8096 ax-precex 8097 ax-cnre 8098 ax-pre-ltirr 8099 ax-pre-ltwlin 8100 ax-pre-lttrn 8101 ax-pre-apti 8102 ax-pre-ltadd 8103 ax-pre-mulgt0 8104 ax-pre-mulext 8105 ax-arch 8106 ax-caucvg 8107

This theorem depends on definitions: df-bi 117 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-nel 2496 df-ral 2513 df-rex 2514 df-reu 2515 df-rmo 2516 df-rab 2517 df-v 2801 df-sbc 3029 df-csb 3125 df-dif 3199 df-un 3201 df-in 3203 df-ss 3210 df-nul 3492 df-if 3603 df-pw 3651 df-sn 3672 df-pr 3673 df-op 3675 df-uni 3888 df-int 3923 df-iun 3966 df-br 4083 df-opab 4145 df-mpt 4146 df-tr 4182 df-id 4381 df-po 4384 df-iso 4385 df-iord 4454 df-on 4456 df-ilim 4457 df-suc 4459 df-iom 4680 df-xp 4722 df-rel 4723 df-cnv 4724 df-co 4725 df-dm 4726 df-rn 4727 df-res 4728 df-ima 4729 df-iota 5274 df-fun 5316 df-fn 5317 df-f 5318 df-f1 5319 df-fo 5320 df-f1o 5321 df-fv 5322 df-isom 5323 df-riota 5947 df-ov 5997 df-oprab 5998 df-mpo 5999 df-1st 6276 df-2nd 6277 df-recs 6441 df-irdg 6506 df-frec 6527 df-1o 6552 df-2o 6553 df-oadd 6556 df-er 6670 df-map 6787 df-en 6878 df-dom 6879 df-fin 6880 df-omni 7290 df-pnf 8171 df-mnf 8172 df-xr 8173 df-ltxr 8174 df-le 8175 df-sub 8307 df-neg 8308 df-reap 8710 df-ap 8717 df-div 8808 df-inn 9099 df-2 9157 df-3 9158 df-4 9159 df-n0 9358 df-z 9435 df-uz 9711 df-q 9803 df-rp 9838 df-ico 10078 df-fz 10193 df-fzo 10327 df-seqfrec 10657 df-exp 10748 df-ihash 10985 df-cj 11339 df-re 11340 df-im 11341 df-rsqrt 11495 df-abs 11496 df-clim 11776 df-sumdc 11851

This theorem is referenced by: trilpolemres 16341 neapmkvlem 16366

W3C validator