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 27253

Description: Lemma for bpos 27258. 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 22	. . . . . . . 8 ⊢ (𝑛 ∈ ℙ → 𝑛 ∈ ℙ)
3		5nn 12229	. . . . . . . . . . 11 ⊢ 5 ∈ ℕ
4		bpos.1	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘5))
5		eluznn 12829	. . . . . . . . . . 11 ⊢ ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘5)) → 𝑁 ∈ ℕ)
6	3, 4, 5	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7	6	nnnn0d 12460	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
8		fzctr 13554	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ (0...(2 · 𝑁)))
9		bccl2 14244	. . . . . . . . 9 ⊢ (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
10	7, 8, 9	3syl 18	. . . . . . . 8 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11		pccl 16775	. . . . . . . 8 ⊢ ((𝑛 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
12	2, 10, 11	syl2anr 597	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
13	12	ralrimiva 3126	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
14	1, 13	pcmptcl 16817	. . . . 5 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
15	14	simprd 495	. . . 4 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
16		3nn 12222	. . . . 5 ⊢ 3 ∈ ℕ
17		bpos.5	. . . . . 6 ⊢ 𝑀 = (⌊‘(√‘(2 · 𝑁)))
18		2z 12521	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
19	6	nnzd 12512	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℤ)
20		zmulcl 12538	. . . . . . . . . . 11 ⊢ ((2 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (2 · 𝑁) ∈ ℤ)
21	18, 19, 20	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → (2 · 𝑁) ∈ ℤ)
22	21	zred 12594	. . . . . . . . 9 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
23		2nn 12216	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ
24		nnmulcl 12167	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
25	23, 6, 24	sylancr 587	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ)
26	25	nnrpd 12945	. . . . . . . . . 10 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ⁺)
27	26	rpge0d 12951	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (2 · 𝑁))
28	22, 27	resqrtcld 15339	. . . . . . . 8 ⊢ (𝜑 → (√‘(2 · 𝑁)) ∈ ℝ)
29	28	flcld 13716	. . . . . . 7 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ ℤ)
30		sqrt9 15194	. . . . . . . . 9 ⊢ (√‘9) = 3
31		9re 12242	. . . . . . . . . . . 12 ⊢ 9 ∈ ℝ
32	31	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 9 ∈ ℝ)
33		10re 12624	. . . . . . . . . . . 12 ⊢ ;10 ∈ ℝ
34	33	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → ;10 ∈ ℝ)
35		lep1 11980	. . . . . . . . . . . . . 14 ⊢ (9 ∈ ℝ → 9 ≤ (9 + 1))
36	31, 35	ax-mp 5	. . . . . . . . . . . . 13 ⊢ 9 ≤ (9 + 1)
37		9p1e10 12607	. . . . . . . . . . . . 13 ⊢ (9 + 1) = ;10
38	36, 37	breqtri 5121	. . . . . . . . . . . 12 ⊢ 9 ≤ ;10
39	38	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 9 ≤ ;10)
40		5cn 12231	. . . . . . . . . . . . 13 ⊢ 5 ∈ ℂ
41		2cn 12218	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℂ
42		5t2e10 12705	. . . . . . . . . . . . 13 ⊢ (5 · 2) = ;10
43	40, 41, 42	mulcomli 11139	. . . . . . . . . . . 12 ⊢ (2 · 5) = ;10
44		eluzle 12762	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘5) → 5 ≤ 𝑁)
45	4, 44	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ≤ 𝑁)
46	6	nnred 12158	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℝ)
47		5re 12230	. . . . . . . . . . . . . . 15 ⊢ 5 ∈ ℝ
48		2re 12217	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ
49		2pos 12246	. . . . . . . . . . . . . . . 16 ⊢ 0 < 2
50	48, 49	pm3.2i 470	. . . . . . . . . . . . . . 15 ⊢ (2 ∈ ℝ ∧ 0 < 2)
51		lemul2 11992	. . . . . . . . . . . . . . 15 ⊢ ((5 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
52	47, 50, 51	mp3an13 1454	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℝ → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
53	46, 52	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
54	45, 53	mpbid 232	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · 5) ≤ (2 · 𝑁))
55	43, 54	eqbrtrrid 5132	. . . . . . . . . . 11 ⊢ (𝜑 → ;10 ≤ (2 · 𝑁))
56	32, 34, 22, 39, 55	letrd 11288	. . . . . . . . . 10 ⊢ (𝜑 → 9 ≤ (2 · 𝑁))
57		0re 11132	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℝ
58		9pos 12256	. . . . . . . . . . . . 13 ⊢ 0 < 9
59	57, 31, 58	ltleii 11254	. . . . . . . . . . . 12 ⊢ 0 ≤ 9
60	31, 59	pm3.2i 470	. . . . . . . . . . 11 ⊢ (9 ∈ ℝ ∧ 0 ≤ 9)
61	22, 27	jca 511	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 𝑁) ∈ ℝ ∧ 0 ≤ (2 · 𝑁)))
62		sqrtle 15181	. . . . . . . . . . 11 ⊢ (((9 ∈ ℝ ∧ 0 ≤ 9) ∧ ((2 · 𝑁) ∈ ℝ ∧ 0 ≤ (2 · 𝑁))) → (9 ≤ (2 · 𝑁) ↔ (√‘9) ≤ (√‘(2 · 𝑁))))
63	60, 61, 62	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → (9 ≤ (2 · 𝑁) ↔ (√‘9) ≤ (√‘(2 · 𝑁))))
64	56, 63	mpbid 232	. . . . . . . . 9 ⊢ (𝜑 → (√‘9) ≤ (√‘(2 · 𝑁)))
65	30, 64	eqbrtrrid 5132	. . . . . . . 8 ⊢ (𝜑 → 3 ≤ (√‘(2 · 𝑁)))
66		3z 12522	. . . . . . . . 9 ⊢ 3 ∈ ℤ
67		flge 13723	. . . . . . . . 9 ⊢ (((√‘(2 · 𝑁)) ∈ ℝ ∧ 3 ∈ ℤ) → (3 ≤ (√‘(2 · 𝑁)) ↔ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
68	28, 66, 67	sylancl 586	. . . . . . . 8 ⊢ (𝜑 → (3 ≤ (√‘(2 · 𝑁)) ↔ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
69	65, 68	mpbid 232	. . . . . . 7 ⊢ (𝜑 → 3 ≤ (⌊‘(√‘(2 · 𝑁))))
70	66	eluz1i 12757	. . . . . . 7 ⊢ ((⌊‘(√‘(2 · 𝑁))) ∈ (ℤ_≥‘3) ↔ ((⌊‘(√‘(2 · 𝑁))) ∈ ℤ ∧ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
71	29, 69, 70	sylanbrc 583	. . . . . 6 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ (ℤ_≥‘3))
72	17, 71	eqeltrid 2838	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘3))
73		eluznn 12829	. . . . 5 ⊢ ((3 ∈ ℕ ∧ 𝑀 ∈ (ℤ_≥‘3)) → 𝑀 ∈ ℕ)
74	16, 72, 73	sylancr 587	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℕ)
75	15, 74	ffvelcdmd 7028	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℕ)
76	75	nnred 12158	. 2 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℝ)
77	74	nnred 12158	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℝ)
78		ppicl 27095	. . . . 5 ⊢ (𝑀 ∈ ℝ → (π‘𝑀) ∈ ℕ₀)
79	77, 78	syl 17	. . . 4 ⊢ (𝜑 → (π‘𝑀) ∈ ℕ₀)
80	25, 79	nnexpcld 14166	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ∈ ℕ)
81	80	nnred 12158	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ∈ ℝ)
82		nndivre 12184	. . . . 5 ⊢ (((√‘(2 · 𝑁)) ∈ ℝ ∧ 3 ∈ ℕ) → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
83	28, 16, 82	sylancl 586	. . . 4 ⊢ (𝜑 → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
84		readdcl 11107	. . . 4 ⊢ ((((√‘(2 · 𝑁)) / 3) ∈ ℝ ∧ 2 ∈ ℝ) → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
85	83, 48, 84	sylancl 586	. . 3 ⊢ (𝜑 → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
86	22, 27, 85	recxpcld 26686	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)) ∈ ℝ)
87		fveq2 6832	. . . . . 6 ⊢ (𝑥 = 1 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘1))
88		fveq2 6832	. . . . . . . 8 ⊢ (𝑥 = 1 → (π‘𝑥) = (π‘1))
89		ppi1 27128	. . . . . . . 8 ⊢ (π‘1) = 0
90	88, 89	eqtrdi 2785	. . . . . . 7 ⊢ (𝑥 = 1 → (π‘𝑥) = 0)
91	90	oveq2d 7372	. . . . . 6 ⊢ (𝑥 = 1 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑0))
92	87, 91	breq12d 5109	. . . . 5 ⊢ (𝑥 = 1 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0)))
93	92	imbi2d 340	. . . 4 ⊢ (𝑥 = 1 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))))
94		fveq2 6832	. . . . . 6 ⊢ (𝑥 = 𝑘 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑘))
95		fveq2 6832	. . . . . . 7 ⊢ (𝑥 = 𝑘 → (π‘𝑥) = (π‘𝑘))
96	95	oveq2d 7372	. . . . . 6 ⊢ (𝑥 = 𝑘 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘𝑘)))
97	94, 96	breq12d 5109	. . . . 5 ⊢ (𝑥 = 𝑘 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘))))
98	97	imbi2d 340	. . . 4 ⊢ (𝑥 = 𝑘 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)))))
99		fveq2 6832	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘(𝑘 + 1)))
100		fveq2 6832	. . . . . . 7 ⊢ (𝑥 = (𝑘 + 1) → (π‘𝑥) = (π‘(𝑘 + 1)))
101	100	oveq2d 7372	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘(𝑘 + 1))))
102	99, 101	breq12d 5109	. . . . 5 ⊢ (𝑥 = (𝑘 + 1) → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
103	102	imbi2d 340	. . . 4 ⊢ (𝑥 = (𝑘 + 1) → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
104		fveq2 6832	. . . . . 6 ⊢ (𝑥 = 𝑀 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑀))
105		fveq2 6832	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (π‘𝑥) = (π‘𝑀))
106	105	oveq2d 7372	. . . . . 6 ⊢ (𝑥 = 𝑀 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘𝑀)))
107	104, 106	breq12d 5109	. . . . 5 ⊢ (𝑥 = 𝑀 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀))))
108	107	imbi2d 340	. . . 4 ⊢ (𝑥 = 𝑀 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀)))))
109		1z 12519	. . . . . . . 8 ⊢ 1 ∈ ℤ
110		seq1 13935	. . . . . . . 8 ⊢ (1 ∈ ℤ → (seq1( · , 𝐹)‘1) = (𝐹‘1))
111	109, 110	ax-mp 5	. . . . . . 7 ⊢ (seq1( · , 𝐹)‘1) = (𝐹‘1)
112		1nn 12154	. . . . . . . 8 ⊢ 1 ∈ ℕ
113		1nprm 16604	. . . . . . . . . . 11 ⊢ ¬ 1 ∈ ℙ
114		eleq1 2822	. . . . . . . . . . 11 ⊢ (𝑛 = 1 → (𝑛 ∈ ℙ ↔ 1 ∈ ℙ))
115	113, 114	mtbiri 327	. . . . . . . . . 10 ⊢ (𝑛 = 1 → ¬ 𝑛 ∈ ℙ)
116	115	iffalsed 4488	. . . . . . . . 9 ⊢ (𝑛 = 1 → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
117		1ex 11126	. . . . . . . . 9 ⊢ 1 ∈ V
118	116, 1, 117	fvmpt 6939	. . . . . . . 8 ⊢ (1 ∈ ℕ → (𝐹‘1) = 1)
119	112, 118	ax-mp 5	. . . . . . 7 ⊢ (𝐹‘1) = 1
120	111, 119	eqtri 2757	. . . . . 6 ⊢ (seq1( · , 𝐹)‘1) = 1
121		1le1 11763	. . . . . 6 ⊢ 1 ≤ 1
122	120, 121	eqbrtri 5117	. . . . 5 ⊢ (seq1( · , 𝐹)‘1) ≤ 1
123	21	zcnd 12595	. . . . . 6 ⊢ (𝜑 → (2 · 𝑁) ∈ ℂ)
124	123	exp0d 14061	. . . . 5 ⊢ (𝜑 → ((2 · 𝑁)↑0) = 1)
125	122, 124	breqtrrid 5134	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))
126	15	ffvelcdmda 7027	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
127	126	nnred 12158	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
128	127	adantr 480	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
129	25	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℕ)
130		nnre 12150	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
131	130	ad2antlr 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → 𝑘 ∈ ℝ)
132		ppicl 27095	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℝ → (π‘𝑘) ∈ ℕ₀)
133	131, 132	syl 17	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π‘𝑘) ∈ ℕ₀)
134	129, 133	nnexpcld 14166	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘𝑘)) ∈ ℕ)
135	134	nnred 12158	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘𝑘)) ∈ ℝ)
136		nnre 12150	. . . . . . . . . . . . 13 ⊢ ((2 · 𝑁) ∈ ℕ → (2 · 𝑁) ∈ ℝ)
137		nngt0 12174	. . . . . . . . . . . . 13 ⊢ ((2 · 𝑁) ∈ ℕ → 0 < (2 · 𝑁))
138	136, 137	jca 511	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℕ → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
139	25, 138	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
140	139	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
141		lemul1 11991	. . . . . . . . . 10 ⊢ (((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ ((2 · 𝑁)↑(π‘𝑘)) ∈ ℝ ∧ ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁))) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁))))
142	128, 135, 140, 141	syl3anc 1373	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁))))
143		nnz 12507	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
144	143	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
145		ppiprm 27115	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ ℤ ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π‘𝑘) + 1))
146	144, 145	sylan 580	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π‘𝑘) + 1))
147	146	oveq2d 7372	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑((π‘𝑘) + 1)))
148	123	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℂ)
149	148, 133	expp1d 14068	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑((π‘𝑘) + 1)) = (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁)))
150	147, 149	eqtrd 2769	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁)))
151	150	breq2d 5108	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁))))
152	142, 151	bitr4d 282	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
153		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
154		nnuz 12788	. . . . . . . . . . . . 13 ⊢ ℕ = (ℤ_≥‘1)
155	153, 154	eleqtrdi 2844	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ_≥‘1))
156		seqp1 13937	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (ℤ_≥‘1) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
157	155, 156	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
158	157	adantr 480	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
159		peano2nn 12155	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
160	159	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
161		eleq1 2822	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 ∈ ℙ ↔ (𝑘 + 1) ∈ ℙ))
162		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → 𝑛 = (𝑘 + 1))
163		oveq1 7363	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = ((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁)))
164	162, 163	oveq12d 7374	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
165	161, 164	ifbieq1d 4502	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑘 + 1) → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
166		ovex 7389	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ∈ V
167	166, 117	ifex 4528	. . . . . . . . . . . . . . 15 ⊢ if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) ∈ V
168	165, 1, 167	fvmpt 6939	. . . . . . . . . . . . . 14 ⊢ ((𝑘 + 1) ∈ ℕ → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
169	160, 168	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
170		iftrue 4483	. . . . . . . . . . . . 13 ⊢ ((𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
171	169, 170	sylan9eq 2789	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
172	6	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑁 ∈ ℕ)
173		bposlem1 27249	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℕ ∧ (𝑘 + 1) ∈ ℙ) → ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ≤ (2 · 𝑁))
174	172, 173	sylan 580	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ≤ (2 · 𝑁))
175	171, 174	eqbrtrd 5118	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁))
176	14	simpld 494	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:ℕ⟶ℕ)
177		ffvelcdm 7024	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
178	176, 159, 177	syl2an 596	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
179	178	nnred 12158	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
180	179	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
181	22	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℝ)
182		nnre 12150	. . . . . . . . . . . . . . 15 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
183		nngt0 12174	. . . . . . . . . . . . . . 15 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → 0 < (seq1( · , 𝐹)‘𝑘))
184	182, 183	jca 511	. . . . . . . . . . . . . 14 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
185	126, 184	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
186	185	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
187		lemul2 11992	. . . . . . . . . . . 12 ⊢ (((𝐹‘(𝑘 + 1)) ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘))) → ((𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁) ↔ ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁))))
188	180, 181, 186, 187	syl3anc 1373	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁) ↔ ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁))))
189	175, 188	mpbid 232	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)))
190	158, 189	eqbrtrd 5118	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)))
191		ffvelcdm 7024	. . . . . . . . . . . . 13 ⊢ ((seq1( · , 𝐹):ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
192	15, 159, 191	syl2an 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
193	192	nnred 12158	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℝ)
194	25	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
195	126, 194	nnmulcld 12196	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℕ)
196	195	nnred 12158	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℝ)
197	160	nnred 12158	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℝ)
198		ppicl 27095	. . . . . . . . . . . . . 14 ⊢ ((𝑘 + 1) ∈ ℝ → (π‘(𝑘 + 1)) ∈ ℕ₀)
199	197, 198	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (π‘(𝑘 + 1)) ∈ ℕ₀)
200	194, 199	nnexpcld 14166	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℕ)
201	200	nnred 12158	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℝ)
202		letr 11225	. . . . . . . . . . 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 1373	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
204	203	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
205	190, 204	mpand 695	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
206	152, 205	sylbid 240	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
207	157	adantr 480	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
208		iffalse 4486	. . . . . . . . . . . 12 ⊢ (¬ (𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
209	169, 208	sylan9eq 2789	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = 1)
210	209	oveq2d 7372	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) = ((seq1( · , 𝐹)‘𝑘) · 1))
211	126	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
212	211	nncnd 12159	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℂ)
213	212	mulridd 11147	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · 1) = (seq1( · , 𝐹)‘𝑘))
214	207, 210, 213	3eqtrd 2773	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = (seq1( · , 𝐹)‘𝑘))
215		ppinprm 27116	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π‘𝑘))
216	144, 215	sylan 580	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π‘𝑘))
217	216	oveq2d 7372	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑(π‘𝑘)))
218	214, 217	breq12d 5109	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ↔ (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘))))
219	218	biimprd 248	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
220	206, 219	pm2.61dan 812	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
221	220	expcom 413	. . . . 5 ⊢ (𝑘 ∈ ℕ → (𝜑 → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
222	221	a2d 29	. . . 4 ⊢ (𝑘 ∈ ℕ → ((𝜑 → (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘))) → (𝜑 → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
223	93, 98, 103, 108, 125, 222	nnind 12161	. . 3 ⊢ (𝑀 ∈ ℕ → (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀))))
224	74, 223	mpcom 38	. 2 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀)))
225		cxpexp 26631	. . . 4 ⊢ (((2 · 𝑁) ∈ ℂ ∧ (π‘𝑀) ∈ ℕ₀) → ((2 · 𝑁)↑_𝑐(π‘𝑀)) = ((2 · 𝑁)↑(π‘𝑀)))
226	123, 79, 225	syl2anc 584	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(π‘𝑀)) = ((2 · 𝑁)↑(π‘𝑀)))
227	79	nn0red 12461	. . . . 5 ⊢ (𝜑 → (π‘𝑀) ∈ ℝ)
228		nndivre 12184	. . . . . . 7 ⊢ ((𝑀 ∈ ℝ ∧ 3 ∈ ℕ) → (𝑀 / 3) ∈ ℝ)
229	77, 16, 228	sylancl 586	. . . . . 6 ⊢ (𝜑 → (𝑀 / 3) ∈ ℝ)
230		readdcl 11107	. . . . . 6 ⊢ (((𝑀 / 3) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝑀 / 3) + 2) ∈ ℝ)
231	229, 48, 230	sylancl 586	. . . . 5 ⊢ (𝜑 → ((𝑀 / 3) + 2) ∈ ℝ)
232	74	nnnn0d 12460	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
233	232	nn0ge0d 12463	. . . . . 6 ⊢ (𝜑 → 0 ≤ 𝑀)
234		ppiub 27169	. . . . . 6 ⊢ ((𝑀 ∈ ℝ ∧ 0 ≤ 𝑀) → (π‘𝑀) ≤ ((𝑀 / 3) + 2))
235	77, 233, 234	syl2anc 584	. . . . 5 ⊢ (𝜑 → (π‘𝑀) ≤ ((𝑀 / 3) + 2))
236	48	a1i 11	. . . . . 6 ⊢ (𝜑 → 2 ∈ ℝ)
237		flle 13717	. . . . . . . . 9 ⊢ ((√‘(2 · 𝑁)) ∈ ℝ → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
238	28, 237	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
239	17, 238	eqbrtrid 5131	. . . . . . 7 ⊢ (𝜑 → 𝑀 ≤ (√‘(2 · 𝑁)))
240		3re 12223	. . . . . . . . . 10 ⊢ 3 ∈ ℝ
241		3pos 12248	. . . . . . . . . 10 ⊢ 0 < 3
242	240, 241	pm3.2i 470	. . . . . . . . 9 ⊢ (3 ∈ ℝ ∧ 0 < 3)
243	242	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (3 ∈ ℝ ∧ 0 < 3))
244		lediv1 12005	. . . . . . . 8 ⊢ ((𝑀 ∈ ℝ ∧ (√‘(2 · 𝑁)) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → (𝑀 ≤ (√‘(2 · 𝑁)) ↔ (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3)))
245	77, 28, 243, 244	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → (𝑀 ≤ (√‘(2 · 𝑁)) ↔ (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3)))
246	239, 245	mpbid 232	. . . . . 6 ⊢ (𝜑 → (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3))
247	229, 83, 236, 246	leadd1dd 11749	. . . . 5 ⊢ (𝜑 → ((𝑀 / 3) + 2) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
248	227, 231, 85, 235, 247	letrd 11288	. . . 4 ⊢ (𝜑 → (π‘𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
249		2t1e2 12301	. . . . . . . 8 ⊢ (2 · 1) = 2
250	6	nnge1d 12191	. . . . . . . . 9 ⊢ (𝜑 → 1 ≤ 𝑁)
251		1re 11130	. . . . . . . . . . 11 ⊢ 1 ∈ ℝ
252		lemul2 11992	. . . . . . . . . . 11 ⊢ ((1 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
253	251, 50, 252	mp3an13 1454	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℝ → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
254	46, 253	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
255	250, 254	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → (2 · 1) ≤ (2 · 𝑁))
256	249, 255	eqbrtrrid 5132	. . . . . . 7 ⊢ (𝜑 → 2 ≤ (2 · 𝑁))
257	18	eluz1i 12757	. . . . . . 7 ⊢ ((2 · 𝑁) ∈ (ℤ_≥‘2) ↔ ((2 · 𝑁) ∈ ℤ ∧ 2 ≤ (2 · 𝑁)))
258	21, 256, 257	sylanbrc 583	. . . . . 6 ⊢ (𝜑 → (2 · 𝑁) ∈ (ℤ_≥‘2))
259		eluz2gt1 12831	. . . . . 6 ⊢ ((2 · 𝑁) ∈ (ℤ_≥‘2) → 1 < (2 · 𝑁))
260	258, 259	syl 17	. . . . 5 ⊢ (𝜑 → 1 < (2 · 𝑁))
261	22, 260, 227, 85	cxpled 26683	. . . 4 ⊢ (𝜑 → ((π‘𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2) ↔ ((2 · 𝑁)↑_𝑐(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2))))
262	248, 261	mpbid 232	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
263	226, 262	eqbrtrrd 5120	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
264	76, 81, 86, 224, 263	letrd 11288	1 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2113 ∃wrex 3058 ifcif 4477 class class class wbr 5096 ↦ cmpt 5177 ⟶wf 6486 ‘cfv 6490 (class class class)co 7356 ℂcc 11022 ℝcr 11023 0cc0 11024 1c1 11025 + caddc 11027 · cmul 11029 < clt 11164 ≤ cle 11165 / cdiv 11792 ℕcn 12143 2c2 12198 3c3 12199 5c5 12201 9c9 12205 ℕ₀cn0 12399 ℤcz 12486 cdc 12605 ℤ_≥cuz 12749 ...cfz 13421 ⌊cfl 13708 seqcseq 13922 ↑cexp 13982 Ccbc 14223 √csqrt 15154 ℙcprime 16596 pCnt cpc 16762 ↑_𝑐ccxp 26518 πcppi 27058

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2706 ax-rep 5222 ax-sep 5239 ax-nul 5249 ax-pow 5308 ax-pr 5375 ax-un 7678 ax-inf2 9548 ax-cnex 11080 ax-resscn 11081 ax-1cn 11082 ax-icn 11083 ax-addcl 11084 ax-addrcl 11085 ax-mulcl 11086 ax-mulrcl 11087 ax-mulcom 11088 ax-addass 11089 ax-mulass 11090 ax-distr 11091 ax-i2m1 11092 ax-1ne0 11093 ax-1rid 11094 ax-rnegex 11095 ax-rrecex 11096 ax-cnre 11097 ax-pre-lttri 11098 ax-pre-lttrn 11099 ax-pre-ltadd 11100 ax-pre-mulgt0 11101 ax-pre-sup 11102 ax-addf 11103

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2537 df-eu 2567 df-clab 2713 df-cleq 2726 df-clel 2809 df-nfc 2883 df-ne 2931 df-nel 3035 df-ral 3050 df-rex 3059 df-rmo 3348 df-reu 3349 df-rab 3398 df-v 3440 df-sbc 3739 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4284 df-if 4478 df-pw 4554 df-sn 4579 df-pr 4581 df-tp 4583 df-op 4585 df-uni 4862 df-int 4901 df-iun 4946 df-iin 4947 df-br 5097 df-opab 5159 df-mpt 5178 df-tr 5204 df-id 5517 df-eprel 5522 df-po 5530 df-so 5531 df-fr 5575 df-se 5576 df-we 5577 df-xp 5628 df-rel 5629 df-cnv 5630 df-co 5631 df-dm 5632 df-rn 5633 df-res 5634 df-ima 5635 df-pred 6257 df-ord 6318 df-on 6319 df-lim 6320 df-suc 6321 df-iota 6446 df-fun 6492 df-fn 6493 df-f 6494 df-f1 6495 df-fo 6496 df-f1o 6497 df-fv 6498 df-isom 6499 df-riota 7313 df-ov 7359 df-oprab 7360 df-mpo 7361 df-of 7620 df-om 7807 df-1st 7931 df-2nd 7932 df-supp 8101 df-frecs 8221 df-wrecs 8252 df-recs 8301 df-rdg 8339 df-1o 8395 df-2o 8396 df-oadd 8399 df-er 8633 df-map 8763 df-pm 8764 df-ixp 8834 df-en 8882 df-dom 8883 df-sdom 8884 df-fin 8885 df-fsupp 9263 df-fi 9312 df-sup 9343 df-inf 9344 df-oi 9413 df-dju 9811 df-card 9849 df-pnf 11166 df-mnf 11167 df-xr 11168 df-ltxr 11169 df-le 11170 df-sub 11364 df-neg 11365 df-div 11793 df-nn 12144 df-2 12206 df-3 12207 df-4 12208 df-5 12209 df-6 12210 df-7 12211 df-8 12212 df-9 12213 df-n0 12400 df-xnn0 12473 df-z 12487 df-dec 12606 df-uz 12750 df-q 12860 df-rp 12904 df-xneg 13024 df-xadd 13025 df-xmul 13026 df-ioo 13263 df-ioc 13264 df-ico 13265 df-icc 13266 df-fz 13422 df-fzo 13569 df-fl 13710 df-mod 13788 df-seq 13923 df-exp 13983 df-fac 14195 df-bc 14224 df-hash 14252 df-shft 14988 df-cj 15020 df-re 15021 df-im 15022 df-sqrt 15156 df-abs 15157 df-limsup 15392 df-clim 15409 df-rlim 15410 df-sum 15608 df-ef 15988 df-sin 15990 df-cos 15991 df-pi 15993 df-dvds 16178 df-gcd 16420 df-prm 16597 df-pc 16763 df-struct 17072 df-sets 17089 df-slot 17107 df-ndx 17119 df-base 17135 df-ress 17156 df-plusg 17188 df-mulr 17189 df-starv 17190 df-sca 17191 df-vsca 17192 df-ip 17193 df-tset 17194 df-ple 17195 df-ds 17197 df-unif 17198 df-hom 17199 df-cco 17200 df-rest 17340 df-topn 17341 df-0g 17359 df-gsum 17360 df-topgen 17361 df-pt 17362 df-prds 17365 df-xrs 17421 df-qtop 17426 df-imas 17427 df-xps 17429 df-mre 17503 df-mrc 17504 df-acs 17506 df-mgm 18563 df-sgrp 18642 df-mnd 18658 df-submnd 18707 df-mulg 18996 df-cntz 19244 df-cmn 19709 df-psmet 21299 df-xmet 21300 df-met 21301 df-bl 21302 df-mopn 21303 df-fbas 21304 df-fg 21305 df-cnfld 21308 df-top 22836 df-topon 22853 df-topsp 22875 df-bases 22888 df-cld 22961 df-ntr 22962 df-cls 22963 df-nei 23040 df-lp 23078 df-perf 23079 df-cn 23169 df-cnp 23170 df-haus 23257 df-tx 23504 df-hmeo 23697 df-fil 23788 df-fm 23880 df-flim 23881 df-flf 23882 df-xms 24262 df-ms 24263 df-tms 24264 df-cncf 24825 df-limc 25821 df-dv 25822 df-log 26519 df-cxp 26520 df-ppi 27064

This theorem is referenced by: bposlem6 27254

W3C validator