bposlem5 - Metamath Proof Explorer

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

Theorem bposlem5 27505

Description: Lemma for bpos 27510. Bound the product of all small primes in the binomial coefficient. (Contributed by Mario Carneiro, 15-Mar-2014.) (Proof shortened by AV, 15-Sep-2021.)

**Hypotheses**
Ref	Expression
bpos.1	⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘5))
bpos.2	⊢ (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
bpos.3	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1))
bpos.4	⊢ 𝐾 = (⌊‘((2 · 𝑁) / 3))
bpos.5	⊢ 𝑀 = (⌊‘(√‘(2 · 𝑁)))

**Assertion**
Ref	Expression
bposlem5	⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))

Distinct variable groups: 𝐹,𝑝 𝑛,𝑝,𝐾 𝑀,𝑝 𝑛,𝑁,𝑝 𝜑,𝑛,𝑝 Allowed substitution hints: 𝐹(𝑛) 𝑀(𝑛)

Proof of Theorem bposlem5 Dummy variables 𝑘 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		bpos.3	. . . . . 6 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1))
2		id 23	. . . . . . . 8 ⊢ (𝑛 ∈ ℙ → 𝑛 ∈ ℙ)
3		5nn 12344	. . . . . . . . . . 11 ⊢ 5 ∈ ℕ
4		bpos.1	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘5))
5		eluznn 12960	. . . . . . . . . . 11 ⊢ ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘5)) → 𝑁 ∈ ℕ)
6	3, 4, 5	sylancr 599	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7	6	nnnn0d 12582	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
8		fzctr 13687	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ (0...(2 · 𝑁)))
9		bccl2 14379	. . . . . . . . 9 ⊢ (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
10	7, 8, 9	3syl 19	. . . . . . . 8 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11		pccl 16933	. . . . . . . 8 ⊢ ((𝑛 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
12	2, 10, 11	syl2anr 609	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
13	12	ralrimiva 3159	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
14	1, 13	pcmptcl 16975	. . . . 5 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
15	14	simprd 501	. . . 4 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
16		3nn 12337	. . . . 5 ⊢ 3 ∈ ℕ
17		bpos.5	. . . . . 6 ⊢ 𝑀 = (⌊‘(√‘(2 · 𝑁)))
18		2z 12643	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
19	6	nnzd 12634	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℤ)
20		zmulcl 12660	. . . . . . . . . . 11 ⊢ ((2 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (2 · 𝑁) ∈ ℤ)
21	18, 19, 20	sylancr 599	. . . . . . . . . 10 ⊢ (𝜑 → (2 · 𝑁) ∈ ℤ)
22	21	zred 12718	. . . . . . . . 9 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
23		2nn 12331	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ
24		nnmulcl 12274	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
25	23, 6, 24	sylancr 599	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ)
26	25	nnrpd 13076	. . . . . . . . . 10 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ⁺)
27	26	rpge0d 13082	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (2 · 𝑁))
28	22, 27	resqrtcld 15495	. . . . . . . 8 ⊢ (𝜑 → (√‘(2 · 𝑁)) ∈ ℝ)
29	28	flcld 13851	. . . . . . 7 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ ℤ)
30		sqrt9 15350	. . . . . . . . 9 ⊢ (√‘9) = 3
31		9re 12357	. . . . . . . . . . . 12 ⊢ 9 ∈ ℝ
32	31	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 9 ∈ ℝ)
33		10re 12752	. . . . . . . . . . . 12 ⊢ ;10 ∈ ℝ
34	33	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → ;10 ∈ ℝ)
35		lep1 12073	. . . . . . . . . . . . . 14 ⊢ (9 ∈ ℝ → 9 ≤ (9 + 1))
36	31, 35	ax-mp 5	. . . . . . . . . . . . 13 ⊢ 9 ≤ (9 + 1)
37		9p1e10 12731	. . . . . . . . . . . . 13 ⊢ (9 + 1) = ;10
38	36, 37	breqtri 5138	. . . . . . . . . . . 12 ⊢ 9 ≤ ;10
39	38	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 9 ≤ ;10)
40		5cn 12346	. . . . . . . . . . . . 13 ⊢ 5 ∈ ℂ
41		2cn 12333	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℂ
42		5t2e10 12834	. . . . . . . . . . . . 13 ⊢ (5 · 2) = ;10
43	40, 41, 42	mulcomli 11235	. . . . . . . . . . . 12 ⊢ (2 · 5) = ;10
44		eluzle 12893	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘5) → 5 ≤ 𝑁)
45	4, 44	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ≤ 𝑁)
46	6	nnred 12265	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℝ)
47		5re 12345	. . . . . . . . . . . . . . 15 ⊢ 5 ∈ ℝ
48		2re 12332	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ
49		2pos 12362	. . . . . . . . . . . . . . . 16 ⊢ 0 < 2
50	48, 49	pm3.2i 476	. . . . . . . . . . . . . . 15 ⊢ (2 ∈ ℝ ∧ 0 < 2)
51		lemul2 12085	. . . . . . . . . . . . . . 15 ⊢ ((5 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
52	47, 50, 51	mp3an13 1481	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℝ → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
53	46, 52	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
54	45, 53	mpbid 235	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · 5) ≤ (2 · 𝑁))
55	43, 54	eqbrtrrid 5149	. . . . . . . . . . 11 ⊢ (𝜑 → ;10 ≤ (2 · 𝑁))
56	32, 34, 22, 39, 55	letrd 11384	. . . . . . . . . 10 ⊢ (𝜑 → 9 ≤ (2 · 𝑁))
57		0re 11227	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℝ
58		9pos 12374	. . . . . . . . . . . . 13 ⊢ 0 < 9
59	57, 31, 58	ltleii 11350	. . . . . . . . . . . 12 ⊢ 0 ≤ 9
60	31, 59	pm3.2i 476	. . . . . . . . . . 11 ⊢ (9 ∈ ℝ ∧ 0 ≤ 9)
61	22, 27	jca 521	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 𝑁) ∈ ℝ ∧ 0 ≤ (2 · 𝑁)))
62		sqrtle 15337	. . . . . . . . . . 11 ⊢ (((9 ∈ ℝ ∧ 0 ≤ 9) ∧ ((2 · 𝑁) ∈ ℝ ∧ 0 ≤ (2 · 𝑁))) → (9 ≤ (2 · 𝑁) ↔ (√‘9) ≤ (√‘(2 · 𝑁))))
63	60, 61, 62	sylancr 599	. . . . . . . . . 10 ⊢ (𝜑 → (9 ≤ (2 · 𝑁) ↔ (√‘9) ≤ (√‘(2 · 𝑁))))
64	56, 63	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → (√‘9) ≤ (√‘(2 · 𝑁)))
65	30, 64	eqbrtrrid 5149	. . . . . . . 8 ⊢ (𝜑 → 3 ≤ (√‘(2 · 𝑁)))
66		3z 12644	. . . . . . . . 9 ⊢ 3 ∈ ℤ
67		flge 13858	. . . . . . . . 9 ⊢ (((√‘(2 · 𝑁)) ∈ ℝ ∧ 3 ∈ ℤ) → (3 ≤ (√‘(2 · 𝑁)) ↔ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
68	28, 66, 67	sylancl 598	. . . . . . . 8 ⊢ (𝜑 → (3 ≤ (√‘(2 · 𝑁)) ↔ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
69	65, 68	mpbid 235	. . . . . . 7 ⊢ (𝜑 → 3 ≤ (⌊‘(√‘(2 · 𝑁))))
70	66	eluz1i 12888	. . . . . . 7 ⊢ ((⌊‘(√‘(2 · 𝑁))) ∈ (ℤ_≥‘3) ↔ ((⌊‘(√‘(2 · 𝑁))) ∈ ℤ ∧ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
71	29, 69, 70	sylanbrc 595	. . . . . 6 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ (ℤ_≥‘3))
72	17, 71	eqeltrid 2869	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘3))
73		eluznn 12960	. . . . 5 ⊢ ((3 ∈ ℕ ∧ 𝑀 ∈ (ℤ_≥‘3)) → 𝑀 ∈ ℕ)
74	16, 72, 73	sylancr 599	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℕ)
75	15, 74	ffvelcdmd 7084	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℕ)
76	75	nnred 12265	. 2 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℝ)
77	74	nnred 12265	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℝ)
78		ppicl 27348	. . . . 5 ⊢ (𝑀 ∈ ℝ → (π‘𝑀) ∈ ℕ₀)
79	77, 78	syl 18	. . . 4 ⊢ (𝜑 → (π‘𝑀) ∈ ℕ₀)
80	25, 79	nnexpcld 14301	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ∈ ℕ)
81	80	nnred 12265	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ∈ ℝ)
82		nndivre 12294	. . . . 5 ⊢ (((√‘(2 · 𝑁)) ∈ ℝ ∧ 3 ∈ ℕ) → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
83	28, 16, 82	sylancl 598	. . . 4 ⊢ (𝜑 → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
84		readdcl 11200	. . . 4 ⊢ ((((√‘(2 · 𝑁)) / 3) ∈ ℝ ∧ 2 ∈ ℝ) → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
85	83, 48, 84	sylancl 598	. . 3 ⊢ (𝜑 → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
86	22, 27, 85	recxpcld 26941	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)) ∈ ℝ)
87		fveq2 6885	. . . . . 6 ⊢ (𝑥 = 1 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘1))
88		fveq2 6885	. . . . . . . 8 ⊢ (𝑥 = 1 → (π‘𝑥) = (π‘1))
89		ppi1 27381	. . . . . . . 8 ⊢ (π‘1) = 0
90	88, 89	eqtrdi 2816	. . . . . . 7 ⊢ (𝑥 = 1 → (π‘𝑥) = 0)
91	90	oveq2d 7435	. . . . . 6 ⊢ (𝑥 = 1 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑0))
92	87, 91	breq12d 5124	. . . . 5 ⊢ (𝑥 = 1 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0)))
93	92	imbi2d 343	. . . 4 ⊢ (𝑥 = 1 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))))
94		fveq2 6885	. . . . . 6 ⊢ (𝑥 = 𝑘 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑘))
95		fveq2 6885	. . . . . . 7 ⊢ (𝑥 = 𝑘 → (π‘𝑥) = (π‘𝑘))
96	95	oveq2d 7435	. . . . . 6 ⊢ (𝑥 = 𝑘 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘𝑘)))
97	94, 96	breq12d 5124	. . . . 5 ⊢ (𝑥 = 𝑘 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘))))
98	97	imbi2d 343	. . . 4 ⊢ (𝑥 = 𝑘 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)))))
99		fveq2 6885	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘(𝑘 + 1)))
100		fveq2 6885	. . . . . . 7 ⊢ (𝑥 = (𝑘 + 1) → (π‘𝑥) = (π‘(𝑘 + 1)))
101	100	oveq2d 7435	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘(𝑘 + 1))))
102	99, 101	breq12d 5124	. . . . 5 ⊢ (𝑥 = (𝑘 + 1) → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
103	102	imbi2d 343	. . . 4 ⊢ (𝑥 = (𝑘 + 1) → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
104		fveq2 6885	. . . . . 6 ⊢ (𝑥 = 𝑀 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑀))
105		fveq2 6885	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (π‘𝑥) = (π‘𝑀))
106	105	oveq2d 7435	. . . . . 6 ⊢ (𝑥 = 𝑀 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘𝑀)))
107	104, 106	breq12d 5124	. . . . 5 ⊢ (𝑥 = 𝑀 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀))))
108	107	imbi2d 343	. . . 4 ⊢ (𝑥 = 𝑀 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀)))))
109		1z 12641	. . . . . . . 8 ⊢ 1 ∈ ℤ
110		seq1 14070	. . . . . . . 8 ⊢ (1 ∈ ℤ → (seq1( · , 𝐹)‘1) = (𝐹‘1))
111	109, 110	ax-mp 5	. . . . . . 7 ⊢ (seq1( · , 𝐹)‘1) = (𝐹‘1)
112		1nn 12261	. . . . . . . 8 ⊢ 1 ∈ ℕ
113		1nprm 16761	. . . . . . . . . . 11 ⊢ ¬ 1 ∈ ℙ
114		eleq1 2853	. . . . . . . . . . 11 ⊢ (𝑛 = 1 → (𝑛 ∈ ℙ ↔ 1 ∈ ℙ))
115	113, 114	mtbiri 330	. . . . . . . . . 10 ⊢ (𝑛 = 1 → ¬ 𝑛 ∈ ℙ)
116	115	iffalsed 4500	. . . . . . . . 9 ⊢ (𝑛 = 1 → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
117		1ex 11220	. . . . . . . . 9 ⊢ 1 ∈ V
118	116, 1, 117	fvmpt 6993	. . . . . . . 8 ⊢ (1 ∈ ℕ → (𝐹‘1) = 1)
119	112, 118	ax-mp 5	. . . . . . 7 ⊢ (𝐹‘1) = 1
120	111, 119	eqtri 2788	. . . . . 6 ⊢ (seq1( · , 𝐹)‘1) = 1
121		1le1 11859	. . . . . 6 ⊢ 1 ≤ 1
122	120, 121	eqbrtri 5134	. . . . 5 ⊢ (seq1( · , 𝐹)‘1) ≤ 1
123	21	zcnd 12719	. . . . . 6 ⊢ (𝜑 → (2 · 𝑁) ∈ ℂ)
124	123	exp0d 14196	. . . . 5 ⊢ (𝜑 → ((2 · 𝑁)↑0) = 1)
125	122, 124	breqtrrid 5151	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))
126	15	ffvelcdmda 7083	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
127	126	nnred 12265	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
128	127	adantr 486	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
129	25	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℕ)
130		nnre 12257	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
131	130	ad2antlr 740	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → 𝑘 ∈ ℝ)
132		ppicl 27348	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℝ → (π‘𝑘) ∈ ℕ₀)
133	131, 132	syl 18	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π‘𝑘) ∈ ℕ₀)
134	129, 133	nnexpcld 14301	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘𝑘)) ∈ ℕ)
135	134	nnred 12265	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘𝑘)) ∈ ℝ)
136		nnre 12257	. . . . . . . . . . . . 13 ⊢ ((2 · 𝑁) ∈ ℕ → (2 · 𝑁) ∈ ℝ)
137		nngt0 12284	. . . . . . . . . . . . 13 ⊢ ((2 · 𝑁) ∈ ℕ → 0 < (2 · 𝑁))
138	136, 137	jca 521	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℕ → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
139	25, 138	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
140	139	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
141		lemul1 12084	. . . . . . . . . 10 ⊢ (((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ ((2 · 𝑁)↑(π‘𝑘)) ∈ ℝ ∧ ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁))) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁))))
142	128, 135, 140, 141	syl3anc 1398	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁))))
143		nnz 12629	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
144	143	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
145		ppiprm 27368	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ ℤ ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π‘𝑘) + 1))
146	144, 145	sylan 592	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π‘𝑘) + 1))
147	146	oveq2d 7435	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑((π‘𝑘) + 1)))
148	123	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℂ)
149	148, 133	expp1d 14203	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑((π‘𝑘) + 1)) = (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁)))
150	147, 149	eqtrd 2800	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁)))
151	150	breq2d 5123	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁))))
152	142, 151	bitr4d 285	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
153		simpr 490	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
154		nnuz 12919	. . . . . . . . . . . . 13 ⊢ ℕ = (ℤ_≥‘1)
155	153, 154	eleqtrdi 2875	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ_≥‘1))
156		seqp1 14072	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (ℤ_≥‘1) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
157	155, 156	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
158	157	adantr 486	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
159		peano2nn 12262	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
160	159	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
161		eleq1 2853	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 ∈ ℙ ↔ (𝑘 + 1) ∈ ℙ))
162		id 23	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → 𝑛 = (𝑘 + 1))
163		oveq1 7426	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = ((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁)))
164	162, 163	oveq12d 7437	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
165	161, 164	ifbieq1d 4514	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑘 + 1) → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
166		ovex 7452	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ∈ V
167	166, 117	ifex 4540	. . . . . . . . . . . . . . 15 ⊢ if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) ∈ V
168	165, 1, 167	fvmpt 6993	. . . . . . . . . . . . . 14 ⊢ ((𝑘 + 1) ∈ ℕ → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
169	160, 168	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
170		iftrue 4495	. . . . . . . . . . . . 13 ⊢ ((𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
171	169, 170	sylan9eq 2820	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
172	6	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑁 ∈ ℕ)
173		bposlem1 27501	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℕ ∧ (𝑘 + 1) ∈ ℙ) → ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ≤ (2 · 𝑁))
174	172, 173	sylan 592	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ≤ (2 · 𝑁))
175	171, 174	eqbrtrd 5135	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁))
176	14	simpld 500	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:ℕ⟶ℕ)
177		ffvelcdm 7080	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
178	176, 159, 177	syl2an 608	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
179	178	nnred 12265	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
180	179	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
181	22	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℝ)
182		nnre 12257	. . . . . . . . . . . . . . 15 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
183		nngt0 12284	. . . . . . . . . . . . . . 15 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → 0 < (seq1( · , 𝐹)‘𝑘))
184	182, 183	jca 521	. . . . . . . . . . . . . 14 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
185	126, 184	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
186	185	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
187		lemul2 12085	. . . . . . . . . . . 12 ⊢ (((𝐹‘(𝑘 + 1)) ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘))) → ((𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁) ↔ ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁))))
188	180, 181, 186, 187	syl3anc 1398	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁) ↔ ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁))))
189	175, 188	mpbid 235	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)))
190	158, 189	eqbrtrd 5135	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)))
191		ffvelcdm 7080	. . . . . . . . . . . . 13 ⊢ ((seq1( · , 𝐹):ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
192	15, 159, 191	syl2an 608	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
193	192	nnred 12265	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℝ)
194	25	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
195	126, 194	nnmulcld 12306	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℕ)
196	195	nnred 12265	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℝ)
197	160	nnred 12265	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℝ)
198		ppicl 27348	. . . . . . . . . . . . . 14 ⊢ ((𝑘 + 1) ∈ ℝ → (π‘(𝑘 + 1)) ∈ ℕ₀)
199	197, 198	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (π‘(𝑘 + 1)) ∈ ℕ₀)
200	194, 199	nnexpcld 14301	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℕ)
201	200	nnred 12265	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℝ)
202		letr 11321	. . . . . . . . . . 11 ⊢ (((seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℝ ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℝ ∧ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℝ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
203	193, 196, 201, 202	syl3anc 1398	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
204	203	adantr 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
205	190, 204	mpand 708	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
206	152, 205	sylbid 243	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
207	157	adantr 486	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
208		iffalse 4498	. . . . . . . . . . . 12 ⊢ (¬ (𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
209	169, 208	sylan9eq 2820	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = 1)
210	209	oveq2d 7435	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) = ((seq1( · , 𝐹)‘𝑘) · 1))
211	126	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
212	211	nncnd 12266	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℂ)
213	212	mulridd 11243	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · 1) = (seq1( · , 𝐹)‘𝑘))
214	207, 210, 213	3eqtrd 2804	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = (seq1( · , 𝐹)‘𝑘))
215		ppinprm 27369	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π‘𝑘))
216	144, 215	sylan 592	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π‘𝑘))
217	216	oveq2d 7435	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑(π‘𝑘)))
218	214, 217	breq12d 5124	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ↔ (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘))))
219	218	biimprd 251	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
220	206, 219	pm2.61dan 825	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
221	220	expcom 419	. . . . 5 ⊢ (𝑘 ∈ ℕ → (𝜑 → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
222	221	a2d 30	. . . 4 ⊢ (𝑘 ∈ ℕ → ((𝜑 → (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘))) → (𝜑 → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
223	93, 98, 103, 108, 125, 222	nnind 12268	. . 3 ⊢ (𝑀 ∈ ℕ → (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀))))
224	74, 223	mpcom 39	. 2 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀)))
225		cxpexp 26886	. . . 4 ⊢ (((2 · 𝑁) ∈ ℂ ∧ (π‘𝑀) ∈ ℕ₀) → ((2 · 𝑁)↑_𝑐(π‘𝑀)) = ((2 · 𝑁)↑(π‘𝑀)))
226	123, 79, 225	syl2anc 596	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(π‘𝑀)) = ((2 · 𝑁)↑(π‘𝑀)))
227	79	nn0red 12583	. . . . 5 ⊢ (𝜑 → (π‘𝑀) ∈ ℝ)
228		nndivre 12294	. . . . . . 7 ⊢ ((𝑀 ∈ ℝ ∧ 3 ∈ ℕ) → (𝑀 / 3) ∈ ℝ)
229	77, 16, 228	sylancl 598	. . . . . 6 ⊢ (𝜑 → (𝑀 / 3) ∈ ℝ)
230		readdcl 11200	. . . . . 6 ⊢ (((𝑀 / 3) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝑀 / 3) + 2) ∈ ℝ)
231	229, 48, 230	sylancl 598	. . . . 5 ⊢ (𝜑 → ((𝑀 / 3) + 2) ∈ ℝ)
232	74	nnnn0d 12582	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
233	232	nn0ge0d 12585	. . . . . 6 ⊢ (𝜑 → 0 ≤ 𝑀)
234		ppiub 27421	. . . . . 6 ⊢ ((𝑀 ∈ ℝ ∧ 0 ≤ 𝑀) → (π‘𝑀) ≤ ((𝑀 / 3) + 2))
235	77, 233, 234	syl2anc 596	. . . . 5 ⊢ (𝜑 → (π‘𝑀) ≤ ((𝑀 / 3) + 2))
236	48	a1i 11	. . . . . 6 ⊢ (𝜑 → 2 ∈ ℝ)
237		flle 13852	. . . . . . . . 9 ⊢ ((√‘(2 · 𝑁)) ∈ ℝ → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
238	28, 237	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
239	17, 238	eqbrtrid 5148	. . . . . . 7 ⊢ (𝜑 → 𝑀 ≤ (√‘(2 · 𝑁)))
240		3re 12338	. . . . . . . . . 10 ⊢ 3 ∈ ℝ
241		3pos 12366	. . . . . . . . . 10 ⊢ 0 < 3
242	240, 241	pm3.2i 476	. . . . . . . . 9 ⊢ (3 ∈ ℝ ∧ 0 < 3)
243	242	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (3 ∈ ℝ ∧ 0 < 3))
244		lediv1 12097	. . . . . . . 8 ⊢ ((𝑀 ∈ ℝ ∧ (√‘(2 · 𝑁)) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → (𝑀 ≤ (√‘(2 · 𝑁)) ↔ (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3)))
245	77, 28, 243, 244	syl3anc 1398	. . . . . . 7 ⊢ (𝜑 → (𝑀 ≤ (√‘(2 · 𝑁)) ↔ (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3)))
246	239, 245	mpbid 235	. . . . . 6 ⊢ (𝜑 → (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3))
247	229, 83, 236, 246	leadd1dd 11845	. . . . 5 ⊢ (𝜑 → ((𝑀 / 3) + 2) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
248	227, 231, 85, 235, 247	letrd 11384	. . . 4 ⊢ (𝜑 → (π‘𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
249		2t1e2 12420	. . . . . . . 8 ⊢ (2 · 1) = 2
250	6	nnge1d 12301	. . . . . . . . 9 ⊢ (𝜑 → 1 ≤ 𝑁)
251		1re 11225	. . . . . . . . . . 11 ⊢ 1 ∈ ℝ
252		lemul2 12085	. . . . . . . . . . 11 ⊢ ((1 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
253	251, 50, 252	mp3an13 1481	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℝ → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
254	46, 253	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
255	250, 254	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → (2 · 1) ≤ (2 · 𝑁))
256	249, 255	eqbrtrrid 5149	. . . . . . 7 ⊢ (𝜑 → 2 ≤ (2 · 𝑁))
257	18	eluz1i 12888	. . . . . . 7 ⊢ ((2 · 𝑁) ∈ (ℤ_≥‘2) ↔ ((2 · 𝑁) ∈ ℤ ∧ 2 ≤ (2 · 𝑁)))
258	21, 256, 257	sylanbrc 595	. . . . . 6 ⊢ (𝜑 → (2 · 𝑁) ∈ (ℤ_≥‘2))
259		eluz2gt1 12962	. . . . . 6 ⊢ ((2 · 𝑁) ∈ (ℤ_≥‘2) → 1 < (2 · 𝑁))
260	258, 259	syl 18	. . . . 5 ⊢ (𝜑 → 1 < (2 · 𝑁))
261	22, 260, 227, 85	cxpled 26938	. . . 4 ⊢ (𝜑 → ((π‘𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2) ↔ ((2 · 𝑁)↑_𝑐(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2))))
262	248, 261	mpbid 235	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
263	226, 262	eqbrtrrd 5137	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
264	76, 81, 86, 224, 263	letrd 11384	1 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2146 ∃wrex 3091 ifcif 4489 class class class wbr 5111 ↦ cmpt 5194 ⟶wf 6536 ‘cfv 6540 (class class class)co 7419 ℂcc 11115 ℝcr 11116 0cc0 11117 1c1 11118 + caddc 11120 · cmul 11122 < clt 11260 ≤ cle 11261 / cdiv 11888 ℕcn 12250 2c2 12312 3c3 12313 5c5 12315 9c9 12319 ℕ₀cn0 12521 ℤcz 12608 cdc 12729 ℤ_≥cuz 12880 ...cfz 13553 ⌊cfl 13843 seqcseq 14057 ↑cexp 14117 Ccbc 14358 √csqrt 15310 ℙcprime 16753 pCnt cpc 16920 ↑_𝑐ccxp 26773 πcppi 27311

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2737 ax-rep 5240 ax-sep 5259 ax-nul 5271 ax-pow 5338 ax-pr 5406 ax-un 7742 ax-inf2 9617 ax-cnex 11173 ax-resscn 11174 ax-1cn 11175 ax-icn 11176 ax-addcl 11177 ax-addrcl 11178 ax-mulcl 11179 ax-mulrcl 11180 ax-mulcom 11181 ax-addass 11182 ax-mulass 11183 ax-distr 11184 ax-i2m1 11185 ax-1ne0 11186 ax-1rid 11187 ax-rnegex 11188 ax-rrecex 11189 ax-cnre 11190 ax-pre-lttri 11191 ax-pre-lttrn 11192 ax-pre-ltadd 11193 ax-pre-mulgt0 11194 ax-pre-sup 11195 ax-addf 11196

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-nel 3067 df-ral 3082 df-rex 3092 df-rmo 3371 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-tp 4596 df-op 4598 df-uni 4875 df-int 4915 df-iun 4960 df-iin 4961 df-br 5112 df-opab 5176 df-mpt 5195 df-tr 5221 df-id 5558 df-eprel 5563 df-po 5571 df-so 5572 df-fr 5616 df-se 5617 df-we 5618 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-pred 6306 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7376 df-ov 7422 df-oprab 7423 df-mpo 7424 df-of 7684 df-om 7869 df-1st 7992 df-2nd 7993 df-supp 8163 df-frecs 8284 df-wrecs 8315 df-recs 8364 df-rdg 8403 df-1o 8459 df-2o 8460 df-oadd 8463 df-er 8700 df-map 8832 df-pm 8833 df-ixp 8902 df-en 8950 df-dom 8951 df-sdom 8952 df-fin 8953 df-fsupp 9329 df-fi 9378 df-sup 9409 df-inf 9410 df-oi 9479 df-dju 9903 df-card 9941 df-pnf 11262 df-mnf 11263 df-xr 11264 df-ltxr 11265 df-le 11266 df-sub 11460 df-neg 11461 df-div 11889 df-nn 12251 df-2 12320 df-3 12321 df-4 12322 df-5 12323 df-6 12324 df-7 12325 df-8 12326 df-9 12327 df-n0 12522 df-xnn0 12595 df-z 12609 df-dec 12730 df-uz 12881 df-q 12991 df-rp 13035 df-xneg 13155 df-xadd 13156 df-xmul 13157 df-ioo 13394 df-ioc 13395 df-ico 13396 df-icc 13397 df-fz 13554 df-fzo 13702 df-fl 13845 df-mod 13923 df-seq 14058 df-exp 14118 df-fac 14330 df-bc 14359 df-hash 14387 df-shft 15130 df-cj 15176 df-re 15177 df-im 15178 df-sqrt 15312 df-abs 15313 df-limsup 15548 df-clim 15565 df-rlim 15566 df-sum 15764 df-ef 16145 df-sin 16147 df-cos 16148 df-pi 16150 df-dvds 16335 df-gcd 16577 df-prm 16754 df-pc 16921 df-struct 17231 df-sets 17248 df-slot 17266 df-ndx 17278 df-base 17294 df-ress 17315 df-plusg 17347 df-mulr 17348 df-starv 17349 df-sca 17350 df-vsca 17351 df-ip 17352 df-tset 17353 df-ple 17354 df-ds 17356 df-unif 17357 df-hom 17358 df-cco 17359 df-rest 17499 df-topn 17500 df-0g 17518 df-gsum 17519 df-topgen 17520 df-pt 17521 df-prds 17524 df-xrs 17580 df-qtop 17585 df-imas 17586 df-xps 17588 df-mre 17662 df-mrc 17663 df-acs 17665 df-mgm 18722 df-sgrp 18811 df-mnd 18827 df-submnd 18881 df-mulg 19180 df-cntz 19433 df-cmn 19898 df-psmet 21566 df-xmet 21567 df-met 21568 df-bl 21569 df-mopn 21570 df-fbas 21571 df-fg 21572 df-cnfld 21575 df-top 23103 df-topon 23120 df-topsp 23142 df-bases 23155 df-cld 23228 df-ntr 23229 df-cls 23230 df-nei 23307 df-lp 23345 df-perf 23346 df-cn 23436 df-cnp 23437 df-haus 23524 df-tx 23772 df-hmeo 23965 df-fil 24056 df-fm 24148 df-flim 24149 df-flf 24150 df-xms 24530 df-ms 24531 df-tms 24532 df-cncf 25090 df-limc 26078 df-dv 26079 df-log 26774 df-cxp 26775 df-ppi 27317

This theorem is used by: bposlem6 27506

W3C validator