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 15173

Description: Lemma for trilpo 15175. 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 7155 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 7989	. . . 4 ⊢ (𝜑 → 1 ∈ ℝ)
2		trilpolemgt1.f	. . . . 5 ⊢ (𝜑 → 𝐹:ℕ⟶{0, 1})
3		trilpolemgt1.a	. . . . 5 ⊢ 𝐴 = Σ𝑖 ∈ ℕ ((1 / (2↑𝑖)) · (𝐹‘𝑖))
4	2, 3	trilpolemcl 15169	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ)
5	1, 4	resubcld 8355	. . 3 ⊢ (𝜑 → (1 − 𝐴) ∈ ℝ)
6		trilpolemlt1.a	. . . 4 ⊢ (𝜑 → 𝐴 < 1)
7	4, 1	posdifd 8506	. . . 4 ⊢ (𝜑 → (𝐴 < 1 ↔ 0 < (1 − 𝐴)))
8	6, 7	mpbid 147	. . 3 ⊢ (𝜑 → 0 < (1 − 𝐴))
9		nnrecl 9191	. . 3 ⊢ (((1 − 𝐴) ∈ ℝ ∧ 0 < (1 − 𝐴)) → ∃𝑛 ∈ ℕ (1 / 𝑛) < (1 − 𝐴))
10	5, 8, 9	syl2anc 411	. 2 ⊢ (𝜑 → ∃𝑛 ∈ ℕ (1 / 𝑛) < (1 − 𝐴))
11		elfznn 10071	. . . . . . 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 5554	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → ((𝐹 ↾ (1...𝑛))‘𝑥) = (𝐹‘𝑥))
15		simprr 531	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ (𝑥 ∈ (1...𝑛) ∧ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)) → ((𝐹 ↾ (1...𝑛))‘𝑥) = 0)
16	14, 15	eqtr3d 2223	. . . . . 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 2588	. . 3 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0 → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0))
20		2rp 9675	. . . . . . . . . 10 ⊢ 2 ∈ ℝ⁺
21	20	a1i 9	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 2 ∈ ℝ⁺)
22		simprl 529	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℕ)
23	22	nnzd 9391	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℤ)
24	21, 23	rpexpcld 10695	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (2↑𝑛) ∈ ℝ⁺)
25	24	rprecred 9725	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 / (2↑𝑛)) ∈ ℝ)
26	22	nnrecred 8983	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 / 𝑛) ∈ ℝ)
27	5	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1 − 𝐴) ∈ ℝ)
28		2z 9298	. . . . . . . . . 10 ⊢ 2 ∈ ℤ
29		uzid 9559	. . . . . . . . . 10 ⊢ (2 ∈ ℤ → 2 ∈ (ℤ_≥‘2))
30	28, 29	mp1i 10	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 2 ∈ (ℤ_≥‘2))
31	22	nnnn0d 9246	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℕ₀)
32		bernneq3 10660	. . . . . . . . 9 ⊢ ((2 ∈ (ℤ_≥‘2) ∧ 𝑛 ∈ ℕ₀) → 𝑛 < (2↑𝑛))
33	30, 31, 32	syl2anc 411	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 < (2↑𝑛))
34	22	nnrpd 9711	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 𝑛 ∈ ℝ⁺)
35	34, 24	ltrecd 9732	. . . . . . . 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 8100	. . . . . 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 7989	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 1 ∈ ℝ)
43	4	ad2antrr 488	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝐴 ∈ ℝ)
44		0red 7975	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 0 ∈ ℝ)
45		eqid 2188	. . . . . . . . . . 11 ⊢ (ℤ_≥‘(𝑛 + 1)) = (ℤ_≥‘(𝑛 + 1))
46	22	adantr 276	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝑛 ∈ ℕ)
47	46	peano2nnd 8951	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (𝑛 + 1) ∈ ℕ)
48	47	nnzd 9391	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (𝑛 + 1) ∈ ℤ)
49		eluznn 9617	. . . . . . . . . . . . 13 ⊢ (((𝑛 + 1) ∈ ℕ ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 𝑖 ∈ ℕ)
50	47, 49	sylan 283	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 𝑖 ∈ ℕ)
51		eqid 2188	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗))) = (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))
52		oveq2 5898	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑖 → (2↑𝑗) = (2↑𝑖))
53	52	oveq2d 5906	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑖 → (1 / (2↑𝑗)) = (1 / (2↑𝑖)))
54		fveq2 5529	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑖 → (𝐹‘𝑗) = (𝐹‘𝑖))
55	53, 54	oveq12d 5908	. . . . . . . . . . . . 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 9391	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℤ)
59	57, 58	rpexpcld 10695	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (2↑𝑖) ∈ ℝ⁺)
60	59	rprecred 9725	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (1 / (2↑𝑖)) ∈ ℝ)
61		0re 7974	. . . . . . . . . . . . . . . 16 ⊢ 0 ∈ ℝ
62		1re 7973	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℝ
63		prssi 3764	. . . . . . . . . . . . . . . 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 5667	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) ∈ {0, 1})
68	64, 67	sselid 3167	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) ∈ ℝ)
69	60, 68	remulcld 8005	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) ∈ ℝ)
70	51, 55, 56, 69	fvmptd3 5624	. . . . . . . . . . . 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 15168	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → seq1( + , (𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))) ∈ dom ⇝ )
75		nnuz 9580	. . . . . . . . . . . . 13 ⊢ ℕ = (ℤ_≥‘1)
76	69	recnd 8003	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) ∈ ℂ)
77	70, 76	eqeltrd 2265	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ ℕ) → ((𝑗 ∈ ℕ ↦ ((1 / (2↑𝑗)) · (𝐹‘𝑗)))‘𝑖) ∈ ℂ)
78	75, 47, 77	iserex 11364	. . . . . . . . . . . 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 11454	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) ∈ ℝ)
81		1zzd 9297	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 1 ∈ ℤ)
82	81, 23	fzfigd 10448	. . . . . . . . . . . 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 10042	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (1...𝑛) → 𝑖 ∈ ℤ)
86	85	adantl 277	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → 𝑖 ∈ ℤ)
87	84, 86	rpexpcld 10695	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (2↑𝑖) ∈ ℝ⁺)
88	87	rprecred 9725	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (1 / (2↑𝑖)) ∈ ℝ)
89	83, 88	fsumrecl 11426	. . . . . . . . . 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 9724	. . . . . . . . . . . . . 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 9717	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 0 ≤ (1 / (2↑𝑖)))
95		0le0 9025	. . . . . . . . . . . . . 14 ⊢ 0 ≤ 0
96		simpr 110	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) ∧ (𝐹‘𝑖) = 0) → (𝐹‘𝑖) = 0)
97	95, 96	breqtrrid 4055	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) ∧ (𝐹‘𝑖) = 0) → 0 ≤ (𝐹‘𝑖))
98		0le1 8455	. . . . . . . . . . . . . 14 ⊢ 0 ≤ 1
99		simpr 110	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) ∧ (𝐹‘𝑖) = 1) → (𝐹‘𝑖) = 1)
100	98, 99	breqtrrid 4055	. . . . . . . . . . . . 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 5667	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → (𝐹‘𝑖) ∈ {0, 1})
103		elpri 3629	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑖) ∈ {0, 1} → ((𝐹‘𝑖) = 0 ∨ (𝐹‘𝑖) = 1))
104	102, 103	syl 14	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → ((𝐹‘𝑖) = 0 ∨ (𝐹‘𝑖) = 1))
105	97, 100, 104	mpjaodan 799	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 0 ≤ (𝐹‘𝑖))
106	90, 91, 94, 105	mulge0d 8595	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (ℤ_≥‘(𝑛 + 1))) → 0 ≤ ((1 / (2↑𝑖)) · (𝐹‘𝑖)))
107	45, 48, 71, 72, 79, 106	isumge0 11455	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 0 ≤ Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)))
108	44, 80, 89, 107	leadd2dd 8534	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + 0) ≤ (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
109	89	recnd 8003	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) ∈ ℂ)
110	109	addid1d 8123	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + 0) = Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)))
111	110	eqcomd 2194	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) = (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + 0))
112	75, 45, 47, 70, 76, 74	isumsplit 11516	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ ℕ ((1 / (2↑𝑖)) · (𝐹‘𝑖)) = (Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
113	3, 112	eqtrid 2233	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝐴 = (Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
114	46	nncnd 8950	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝑛 ∈ ℂ)
115		1cnd 7990	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 1 ∈ ℂ)
116	114, 115	pncand 8286	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → ((𝑛 + 1) − 1) = 𝑛)
117	116	oveq2d 5906	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1...((𝑛 + 1) − 1)) = (1...𝑛))
118		simpr 110	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → 𝑖 ∈ (1...𝑛))
119	118	fvresd 5554	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((𝐹 ↾ (1...𝑛))‘𝑖) = (𝐹‘𝑖))
120		fveqeq2 5538	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑖 → (((𝐹 ↾ (1...𝑛))‘𝑥) = 1 ↔ ((𝐹 ↾ (1...𝑛))‘𝑖) = 1))
121		simplr 528	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1)
122	120, 121, 118	rspcdva 2860	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((𝐹 ↾ (1...𝑛))‘𝑖) = 1)
123	119, 122	eqtr3d 2223	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (𝐹‘𝑖) = 1)
124	123	oveq2d 5906	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) = ((1 / (2↑𝑖)) · 1))
125	87	rpreccld 9724	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (1 / (2↑𝑖)) ∈ ℝ⁺)
126	125	rpcnd 9715	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → (1 / (2↑𝑖)) ∈ ℂ)
127	126	mulridd 7991	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((1 / (2↑𝑖)) · 1) = (1 / (2↑𝑖)))
128	124, 127	eqtrd 2221	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) ∧ 𝑖 ∈ (1...𝑛)) → ((1 / (2↑𝑖)) · (𝐹‘𝑖)) = (1 / (2↑𝑖)))
129	117, 128	sumeq12rdv 11398	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) = Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)))
130	129	oveq1d 5905	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (Σ𝑖 ∈ (1...((𝑛 + 1) − 1))((1 / (2↑𝑖)) · (𝐹‘𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))) = (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
131	113, 130	eqtrd 2221	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → 𝐴 = (Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) + Σ𝑖 ∈ (ℤ_≥‘(𝑛 + 1))((1 / (2↑𝑖)) · (𝐹‘𝑖))))
132	108, 111, 131	3brtr4d 4049	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) ≤ 𝐴)
133		geo2sum 11539	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℕ ∧ 1 ∈ ℂ) → Σ𝑖 ∈ (1...𝑛)(1 / (2↑𝑖)) = (1 − (1 / (2↑𝑛))))
134	133	breq1d 4027	. . . . . . . . 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 8522	. . . . . 6 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → (1 − 𝐴) ≤ (1 / (2↑𝑛)))
138	40, 41, 137	lensymd 8096	. . . . 5 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → ¬ (1 / (2↑𝑛)) < (1 − 𝐴))
139	39, 138	pm2.21dd 621	. . . 4 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) ∧ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1) → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0)
140	139	ex 115	. . 3 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1 → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0))
141		fveq1 5528	. . . . . . 7 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → (𝑓‘𝑥) = ((𝐹 ↾ (1...𝑛))‘𝑥))
142	141	eqeq1d 2197	. . . . . 6 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → ((𝑓‘𝑥) = 0 ↔ ((𝐹 ↾ (1...𝑛))‘𝑥) = 0))
143	142	rexbidv 2490	. . . . 5 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → (∃𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 0 ↔ ∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0))
144	141	eqeq1d 2197	. . . . . 6 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → ((𝑓‘𝑥) = 1 ↔ ((𝐹 ↾ (1...𝑛))‘𝑥) = 1))
145	144	ralbidv 2489	. . . . 5 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → (∀𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 1 ↔ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1))
146	143, 145	orbi12d 794	. . . 4 ⊢ (𝑓 = (𝐹 ↾ (1...𝑛)) → ((∃𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)(𝑓‘𝑥) = 1) ↔ (∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1)))
147		finomni 7155	. . . . . 6 ⊢ ((1...𝑛) ∈ Fin → (1...𝑛) ∈ Omni)
148	82, 147	syl 14	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1...𝑛) ∈ Omni)
149		isomninn 15163	. . . . . 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 10073	. . . . . . 7 ⊢ (1...𝑛) ⊆ ℕ
153	152	a1i 9	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (1...𝑛) ⊆ ℕ)
154	65, 153	fssresd 5406	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (𝐹 ↾ (1...𝑛)):(1...𝑛)⟶{0, 1})
155		0red 7975	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 0 ∈ ℝ)
156		1red 7989	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → 1 ∈ ℝ)
157		prexg 4225	. . . . . . 7 ⊢ ((0 ∈ ℝ ∧ 1 ∈ ℝ) → {0, 1} ∈ V)
158	155, 156, 157	syl2anc 411	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → {0, 1} ∈ V)
159	158, 82	elmapd 6679	. . . . 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 2860	. . 3 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → (∃𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 0 ∨ ∀𝑥 ∈ (1...𝑛)((𝐹 ↾ (1...𝑛))‘𝑥) = 1))
162	19, 140, 161	mpjaod 719	. 2 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ (1 / 𝑛) < (1 − 𝐴))) → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0)
163	10, 162	rexlimddv 2611	1 ⊢ (𝜑 → ∃𝑥 ∈ ℕ (𝐹‘𝑥) = 0)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 709 = wceq 1363 ∈ wcel 2159 ∀wral 2467 ∃wrex 2468 Vcvv 2751 ⊆ wss 3143 {cpr 3607 class class class wbr 4017 ↦ cmpt 4078 dom cdm 4640 ↾ cres 4642 ⟶wf 5226 ‘cfv 5230 (class class class)co 5890 ↑_𝑚 cmap 6665 Fincfn 6757 Omnicomni 7149 ℂcc 7826 ℝcr 7827 0cc0 7828 1c1 7829 + caddc 7831 · cmul 7833 < clt 8009 ≤ cle 8010 − cmin 8145 / cdiv 8646 ℕcn 8936 2c2 8987 ℕ₀cn0 9193 ℤcz 9270 ℤ_≥cuz 9545 ℝ⁺crp 9670 ...cfz 10025 seqcseq 10462 ↑cexp 10536 ⇝ cli 11303 Σcsu 11378

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 615 ax-in2 616 ax-io 710 ax-5 1457 ax-7 1458 ax-gen 1459 ax-ie1 1503 ax-ie2 1504 ax-8 1514 ax-10 1515 ax-11 1516 ax-i12 1517 ax-bndl 1519 ax-4 1520 ax-17 1536 ax-i9 1540 ax-ial 1544 ax-i5r 1545 ax-13 2161 ax-14 2162 ax-ext 2170 ax-coll 4132 ax-sep 4135 ax-nul 4143 ax-pow 4188 ax-pr 4223 ax-un 4447 ax-setind 4550 ax-iinf 4601 ax-cnex 7919 ax-resscn 7920 ax-1cn 7921 ax-1re 7922 ax-icn 7923 ax-addcl 7924 ax-addrcl 7925 ax-mulcl 7926 ax-mulrcl 7927 ax-addcom 7928 ax-mulcom 7929 ax-addass 7930 ax-mulass 7931 ax-distr 7932 ax-i2m1 7933 ax-0lt1 7934 ax-1rid 7935 ax-0id 7936 ax-rnegex 7937 ax-precex 7938 ax-cnre 7939 ax-pre-ltirr 7940 ax-pre-ltwlin 7941 ax-pre-lttrn 7942 ax-pre-apti 7943 ax-pre-ltadd 7944 ax-pre-mulgt0 7945 ax-pre-mulext 7946 ax-arch 7947 ax-caucvg 7948

This theorem depends on definitions: df-bi 117 df-dc 836 df-3or 980 df-3an 981 df-tru 1366 df-fal 1369 df-nf 1471 df-sb 1773 df-eu 2040 df-mo 2041 df-clab 2175 df-cleq 2181 df-clel 2184 df-nfc 2320 df-ne 2360 df-nel 2455 df-ral 2472 df-rex 2473 df-reu 2474 df-rmo 2475 df-rab 2476 df-v 2753 df-sbc 2977 df-csb 3072 df-dif 3145 df-un 3147 df-in 3149 df-ss 3156 df-nul 3437 df-if 3549 df-pw 3591 df-sn 3612 df-pr 3613 df-op 3615 df-uni 3824 df-int 3859 df-iun 3902 df-br 4018 df-opab 4079 df-mpt 4080 df-tr 4116 df-id 4307 df-po 4310 df-iso 4311 df-iord 4380 df-on 4382 df-ilim 4383 df-suc 4385 df-iom 4604 df-xp 4646 df-rel 4647 df-cnv 4648 df-co 4649 df-dm 4650 df-rn 4651 df-res 4652 df-ima 4653 df-iota 5192 df-fun 5232 df-fn 5233 df-f 5234 df-f1 5235 df-fo 5236 df-f1o 5237 df-fv 5238 df-isom 5239 df-riota 5846 df-ov 5893 df-oprab 5894 df-mpo 5895 df-1st 6158 df-2nd 6159 df-recs 6323 df-irdg 6388 df-frec 6409 df-1o 6434 df-2o 6435 df-oadd 6438 df-er 6552 df-map 6667 df-en 6758 df-dom 6759 df-fin 6760 df-omni 7150 df-pnf 8011 df-mnf 8012 df-xr 8013 df-ltxr 8014 df-le 8015 df-sub 8147 df-neg 8148 df-reap 8549 df-ap 8556 df-div 8647 df-inn 8937 df-2 8995 df-3 8996 df-4 8997 df-n0 9194 df-z 9271 df-uz 9546 df-q 9637 df-rp 9671 df-ico 9911 df-fz 10026 df-fzo 10160 df-seqfrec 10463 df-exp 10537 df-ihash 10773 df-cj 10868 df-re 10869 df-im 10870 df-rsqrt 11024 df-abs 11025 df-clim 11304 df-sumdc 11379

This theorem is referenced by: trilpolemres 15174 neapmkvlem 15199

W3C validator