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 27206

Description: Lemma for bpos 27211. 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 12279	. . . . . . . . . . 11 ⊢ 5 ∈ ℕ
4		bpos.1	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘5))
5		eluznn 12884	. . . . . . . . . . 11 ⊢ ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘5)) → 𝑁 ∈ ℕ)
6	3, 4, 5	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7	6	nnnn0d 12510	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
8		fzctr 13608	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ (0...(2 · 𝑁)))
9		bccl2 14295	. . . . . . . . 9 ⊢ (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
10	7, 8, 9	3syl 18	. . . . . . . 8 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11		pccl 16827	. . . . . . . 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 16869	. . . . 5 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
15	14	simprd 495	. . . 4 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
16		3nn 12272	. . . . 5 ⊢ 3 ∈ ℕ
17		bpos.5	. . . . . 6 ⊢ 𝑀 = (⌊‘(√‘(2 · 𝑁)))
18		2z 12572	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
19	6	nnzd 12563	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℤ)
20		zmulcl 12589	. . . . . . . . . . 11 ⊢ ((2 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (2 · 𝑁) ∈ ℤ)
21	18, 19, 20	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → (2 · 𝑁) ∈ ℤ)
22	21	zred 12645	. . . . . . . . 9 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
23		2nn 12266	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ
24		nnmulcl 12217	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
25	23, 6, 24	sylancr 587	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ)
26	25	nnrpd 13000	. . . . . . . . . 10 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ⁺)
27	26	rpge0d 13006	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (2 · 𝑁))
28	22, 27	resqrtcld 15391	. . . . . . . 8 ⊢ (𝜑 → (√‘(2 · 𝑁)) ∈ ℝ)
29	28	flcld 13767	. . . . . . 7 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ ℤ)
30		sqrt9 15246	. . . . . . . . 9 ⊢ (√‘9) = 3
31		9re 12292	. . . . . . . . . . . 12 ⊢ 9 ∈ ℝ
32	31	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 9 ∈ ℝ)
33		10re 12675	. . . . . . . . . . . 12 ⊢ ;10 ∈ ℝ
34	33	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → ;10 ∈ ℝ)
35		lep1 12030	. . . . . . . . . . . . . 14 ⊢ (9 ∈ ℝ → 9 ≤ (9 + 1))
36	31, 35	ax-mp 5	. . . . . . . . . . . . 13 ⊢ 9 ≤ (9 + 1)
37		9p1e10 12658	. . . . . . . . . . . . 13 ⊢ (9 + 1) = ;10
38	36, 37	breqtri 5135	. . . . . . . . . . . 12 ⊢ 9 ≤ ;10
39	38	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 9 ≤ ;10)
40		5cn 12281	. . . . . . . . . . . . 13 ⊢ 5 ∈ ℂ
41		2cn 12268	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℂ
42		5t2e10 12756	. . . . . . . . . . . . 13 ⊢ (5 · 2) = ;10
43	40, 41, 42	mulcomli 11190	. . . . . . . . . . . 12 ⊢ (2 · 5) = ;10
44		eluzle 12813	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘5) → 5 ≤ 𝑁)
45	4, 44	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ≤ 𝑁)
46	6	nnred 12208	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℝ)
47		5re 12280	. . . . . . . . . . . . . . 15 ⊢ 5 ∈ ℝ
48		2re 12267	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ
49		2pos 12296	. . . . . . . . . . . . . . . 16 ⊢ 0 < 2
50	48, 49	pm3.2i 470	. . . . . . . . . . . . . . 15 ⊢ (2 ∈ ℝ ∧ 0 < 2)
51		lemul2 12042	. . . . . . . . . . . . . . 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 5146	. . . . . . . . . . 11 ⊢ (𝜑 → ;10 ≤ (2 · 𝑁))
56	32, 34, 22, 39, 55	letrd 11338	. . . . . . . . . 10 ⊢ (𝜑 → 9 ≤ (2 · 𝑁))
57		0re 11183	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℝ
58		9pos 12306	. . . . . . . . . . . . 13 ⊢ 0 < 9
59	57, 31, 58	ltleii 11304	. . . . . . . . . . . 12 ⊢ 0 ≤ 9
60	31, 59	pm3.2i 470	. . . . . . . . . . 11 ⊢ (9 ∈ ℝ ∧ 0 ≤ 9)
61	22, 27	jca 511	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 𝑁) ∈ ℝ ∧ 0 ≤ (2 · 𝑁)))
62		sqrtle 15233	. . . . . . . . . . 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 5146	. . . . . . . 8 ⊢ (𝜑 → 3 ≤ (√‘(2 · 𝑁)))
66		3z 12573	. . . . . . . . 9 ⊢ 3 ∈ ℤ
67		flge 13774	. . . . . . . . 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 12808	. . . . . . 7 ⊢ ((⌊‘(√‘(2 · 𝑁))) ∈ (ℤ_≥‘3) ↔ ((⌊‘(√‘(2 · 𝑁))) ∈ ℤ ∧ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
71	29, 69, 70	sylanbrc 583	. . . . . 6 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ (ℤ_≥‘3))
72	17, 71	eqeltrid 2833	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘3))
73		eluznn 12884	. . . . 5 ⊢ ((3 ∈ ℕ ∧ 𝑀 ∈ (ℤ_≥‘3)) → 𝑀 ∈ ℕ)
74	16, 72, 73	sylancr 587	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℕ)
75	15, 74	ffvelcdmd 7060	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℕ)
76	75	nnred 12208	. 2 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℝ)
77	74	nnred 12208	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℝ)
78		ppicl 27048	. . . . 5 ⊢ (𝑀 ∈ ℝ → (π‘𝑀) ∈ ℕ₀)
79	77, 78	syl 17	. . . 4 ⊢ (𝜑 → (π‘𝑀) ∈ ℕ₀)
80	25, 79	nnexpcld 14217	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ∈ ℕ)
81	80	nnred 12208	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ∈ ℝ)
82		nndivre 12234	. . . . 5 ⊢ (((√‘(2 · 𝑁)) ∈ ℝ ∧ 3 ∈ ℕ) → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
83	28, 16, 82	sylancl 586	. . . 4 ⊢ (𝜑 → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
84		readdcl 11158	. . . 4 ⊢ ((((√‘(2 · 𝑁)) / 3) ∈ ℝ ∧ 2 ∈ ℝ) → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
85	83, 48, 84	sylancl 586	. . 3 ⊢ (𝜑 → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
86	22, 27, 85	recxpcld 26639	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)) ∈ ℝ)
87		fveq2 6861	. . . . . 6 ⊢ (𝑥 = 1 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘1))
88		fveq2 6861	. . . . . . . 8 ⊢ (𝑥 = 1 → (π‘𝑥) = (π‘1))
89		ppi1 27081	. . . . . . . 8 ⊢ (π‘1) = 0
90	88, 89	eqtrdi 2781	. . . . . . 7 ⊢ (𝑥 = 1 → (π‘𝑥) = 0)
91	90	oveq2d 7406	. . . . . 6 ⊢ (𝑥 = 1 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑0))
92	87, 91	breq12d 5123	. . . . 5 ⊢ (𝑥 = 1 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0)))
93	92	imbi2d 340	. . . 4 ⊢ (𝑥 = 1 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))))
94		fveq2 6861	. . . . . 6 ⊢ (𝑥 = 𝑘 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑘))
95		fveq2 6861	. . . . . . 7 ⊢ (𝑥 = 𝑘 → (π‘𝑥) = (π‘𝑘))
96	95	oveq2d 7406	. . . . . 6 ⊢ (𝑥 = 𝑘 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘𝑘)))
97	94, 96	breq12d 5123	. . . . 5 ⊢ (𝑥 = 𝑘 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘))))
98	97	imbi2d 340	. . . 4 ⊢ (𝑥 = 𝑘 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π‘𝑘)))))
99		fveq2 6861	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘(𝑘 + 1)))
100		fveq2 6861	. . . . . . 7 ⊢ (𝑥 = (𝑘 + 1) → (π‘𝑥) = (π‘(𝑘 + 1)))
101	100	oveq2d 7406	. . . . . 6 ⊢ (𝑥 = (𝑘 + 1) → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘(𝑘 + 1))))
102	99, 101	breq12d 5123	. . . . 5 ⊢ (𝑥 = (𝑘 + 1) → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
103	102	imbi2d 340	. . . 4 ⊢ (𝑥 = (𝑘 + 1) → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
104		fveq2 6861	. . . . . 6 ⊢ (𝑥 = 𝑀 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑀))
105		fveq2 6861	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (π‘𝑥) = (π‘𝑀))
106	105	oveq2d 7406	. . . . . 6 ⊢ (𝑥 = 𝑀 → ((2 · 𝑁)↑(π‘𝑥)) = ((2 · 𝑁)↑(π‘𝑀)))
107	104, 106	breq12d 5123	. . . . 5 ⊢ (𝑥 = 𝑀 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥)) ↔ (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀))))
108	107	imbi2d 340	. . . 4 ⊢ (𝑥 = 𝑀 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π‘𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀)))))
109		1z 12570	. . . . . . . 8 ⊢ 1 ∈ ℤ
110		seq1 13986	. . . . . . . 8 ⊢ (1 ∈ ℤ → (seq1( · , 𝐹)‘1) = (𝐹‘1))
111	109, 110	ax-mp 5	. . . . . . 7 ⊢ (seq1( · , 𝐹)‘1) = (𝐹‘1)
112		1nn 12204	. . . . . . . 8 ⊢ 1 ∈ ℕ
113		1nprm 16656	. . . . . . . . . . 11 ⊢ ¬ 1 ∈ ℙ
114		eleq1 2817	. . . . . . . . . . 11 ⊢ (𝑛 = 1 → (𝑛 ∈ ℙ ↔ 1 ∈ ℙ))
115	113, 114	mtbiri 327	. . . . . . . . . 10 ⊢ (𝑛 = 1 → ¬ 𝑛 ∈ ℙ)
116	115	iffalsed 4502	. . . . . . . . 9 ⊢ (𝑛 = 1 → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
117		1ex 11177	. . . . . . . . 9 ⊢ 1 ∈ V
118	116, 1, 117	fvmpt 6971	. . . . . . . 8 ⊢ (1 ∈ ℕ → (𝐹‘1) = 1)
119	112, 118	ax-mp 5	. . . . . . 7 ⊢ (𝐹‘1) = 1
120	111, 119	eqtri 2753	. . . . . 6 ⊢ (seq1( · , 𝐹)‘1) = 1
121		1le1 11813	. . . . . 6 ⊢ 1 ≤ 1
122	120, 121	eqbrtri 5131	. . . . 5 ⊢ (seq1( · , 𝐹)‘1) ≤ 1
123	21	zcnd 12646	. . . . . 6 ⊢ (𝜑 → (2 · 𝑁) ∈ ℂ)
124	123	exp0d 14112	. . . . 5 ⊢ (𝜑 → ((2 · 𝑁)↑0) = 1)
125	122, 124	breqtrrid 5148	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))
126	15	ffvelcdmda 7059	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
127	126	nnred 12208	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
128	127	adantr 480	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
129	25	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℕ)
130		nnre 12200	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
131	130	ad2antlr 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → 𝑘 ∈ ℝ)
132		ppicl 27048	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℝ → (π‘𝑘) ∈ ℕ₀)
133	131, 132	syl 17	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π‘𝑘) ∈ ℕ₀)
134	129, 133	nnexpcld 14217	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘𝑘)) ∈ ℕ)
135	134	nnred 12208	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘𝑘)) ∈ ℝ)
136		nnre 12200	. . . . . . . . . . . . 13 ⊢ ((2 · 𝑁) ∈ ℕ → (2 · 𝑁) ∈ ℝ)
137		nngt0 12224	. . . . . . . . . . . . 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 12041	. . . . . . . . . 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 12557	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
144	143	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
145		ppiprm 27068	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ ℤ ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π‘𝑘) + 1))
146	144, 145	sylan 580	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π‘𝑘) + 1))
147	146	oveq2d 7406	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑((π‘𝑘) + 1)))
148	123	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℂ)
149	148, 133	expp1d 14119	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑((π‘𝑘) + 1)) = (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁)))
150	147, 149	eqtrd 2765	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = (((2 · 𝑁)↑(π‘𝑘)) · (2 · 𝑁)))
151	150	breq2d 5122	. . . . . . . . 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 12843	. . . . . . . . . . . . 13 ⊢ ℕ = (ℤ_≥‘1)
155	153, 154	eleqtrdi 2839	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ_≥‘1))
156		seqp1 13988	. . . . . . . . . . . 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 12205	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
160	159	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
161		eleq1 2817	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 ∈ ℙ ↔ (𝑘 + 1) ∈ ℙ))
162		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → 𝑛 = (𝑘 + 1))
163		oveq1 7397	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = ((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁)))
164	162, 163	oveq12d 7408	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
165	161, 164	ifbieq1d 4516	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑘 + 1) → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
166		ovex 7423	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ∈ V
167	166, 117	ifex 4542	. . . . . . . . . . . . . . 15 ⊢ if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) ∈ V
168	165, 1, 167	fvmpt 6971	. . . . . . . . . . . . . 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 4497	. . . . . . . . . . . . 13 ⊢ ((𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
171	169, 170	sylan9eq 2785	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
172	6	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑁 ∈ ℕ)
173		bposlem1 27202	. . . . . . . . . . . . 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 5132	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁))
176	14	simpld 494	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:ℕ⟶ℕ)
177		ffvelcdm 7056	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
178	176, 159, 177	syl2an 596	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
179	178	nnred 12208	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
180	179	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
181	22	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℝ)
182		nnre 12200	. . . . . . . . . . . . . . 15 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
183		nngt0 12224	. . . . . . . . . . . . . . 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 12042	. . . . . . . . . . . 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 5132	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)))
191		ffvelcdm 7056	. . . . . . . . . . . . 13 ⊢ ((seq1( · , 𝐹):ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
192	15, 159, 191	syl2an 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
193	192	nnred 12208	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℝ)
194	25	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
195	126, 194	nnmulcld 12246	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℕ)
196	195	nnred 12208	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℝ)
197	160	nnred 12208	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℝ)
198		ppicl 27048	. . . . . . . . . . . . . 14 ⊢ ((𝑘 + 1) ∈ ℝ → (π‘(𝑘 + 1)) ∈ ℕ₀)
199	197, 198	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (π‘(𝑘 + 1)) ∈ ℕ₀)
200	194, 199	nnexpcld 14217	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℕ)
201	200	nnred 12208	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℝ)
202		letr 11275	. . . . . . . . . . 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 4500	. . . . . . . . . . . 12 ⊢ (¬ (𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
209	169, 208	sylan9eq 2785	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = 1)
210	209	oveq2d 7406	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) = ((seq1( · , 𝐹)‘𝑘) · 1))
211	126	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
212	211	nncnd 12209	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℂ)
213	212	mulridd 11198	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · 1) = (seq1( · , 𝐹)‘𝑘))
214	207, 210, 213	3eqtrd 2769	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = (seq1( · , 𝐹)‘𝑘))
215		ppinprm 27069	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℤ ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π‘𝑘))
216	144, 215	sylan 580	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π‘𝑘))
217	216	oveq2d 7406	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑(π‘𝑘)))
218	214, 217	breq12d 5123	. . . . . . . 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 12211	. . 3 ⊢ (𝑀 ∈ ℕ → (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀))))
224	74, 223	mpcom 38	. 2 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π‘𝑀)))
225		cxpexp 26584	. . . 4 ⊢ (((2 · 𝑁) ∈ ℂ ∧ (π‘𝑀) ∈ ℕ₀) → ((2 · 𝑁)↑_𝑐(π‘𝑀)) = ((2 · 𝑁)↑(π‘𝑀)))
226	123, 79, 225	syl2anc 584	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(π‘𝑀)) = ((2 · 𝑁)↑(π‘𝑀)))
227	79	nn0red 12511	. . . . 5 ⊢ (𝜑 → (π‘𝑀) ∈ ℝ)
228		nndivre 12234	. . . . . . 7 ⊢ ((𝑀 ∈ ℝ ∧ 3 ∈ ℕ) → (𝑀 / 3) ∈ ℝ)
229	77, 16, 228	sylancl 586	. . . . . 6 ⊢ (𝜑 → (𝑀 / 3) ∈ ℝ)
230		readdcl 11158	. . . . . 6 ⊢ (((𝑀 / 3) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝑀 / 3) + 2) ∈ ℝ)
231	229, 48, 230	sylancl 586	. . . . 5 ⊢ (𝜑 → ((𝑀 / 3) + 2) ∈ ℝ)
232	74	nnnn0d 12510	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
233	232	nn0ge0d 12513	. . . . . 6 ⊢ (𝜑 → 0 ≤ 𝑀)
234		ppiub 27122	. . . . . 6 ⊢ ((𝑀 ∈ ℝ ∧ 0 ≤ 𝑀) → (π‘𝑀) ≤ ((𝑀 / 3) + 2))
235	77, 233, 234	syl2anc 584	. . . . 5 ⊢ (𝜑 → (π‘𝑀) ≤ ((𝑀 / 3) + 2))
236	48	a1i 11	. . . . . 6 ⊢ (𝜑 → 2 ∈ ℝ)
237		flle 13768	. . . . . . . . 9 ⊢ ((√‘(2 · 𝑁)) ∈ ℝ → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
238	28, 237	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
239	17, 238	eqbrtrid 5145	. . . . . . 7 ⊢ (𝜑 → 𝑀 ≤ (√‘(2 · 𝑁)))
240		3re 12273	. . . . . . . . . 10 ⊢ 3 ∈ ℝ
241		3pos 12298	. . . . . . . . . 10 ⊢ 0 < 3
242	240, 241	pm3.2i 470	. . . . . . . . 9 ⊢ (3 ∈ ℝ ∧ 0 < 3)
243	242	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (3 ∈ ℝ ∧ 0 < 3))
244		lediv1 12055	. . . . . . . 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 11799	. . . . 5 ⊢ (𝜑 → ((𝑀 / 3) + 2) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
248	227, 231, 85, 235, 247	letrd 11338	. . . 4 ⊢ (𝜑 → (π‘𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
249		2t1e2 12351	. . . . . . . 8 ⊢ (2 · 1) = 2
250	6	nnge1d 12241	. . . . . . . . 9 ⊢ (𝜑 → 1 ≤ 𝑁)
251		1re 11181	. . . . . . . . . . 11 ⊢ 1 ∈ ℝ
252		lemul2 12042	. . . . . . . . . . 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 5146	. . . . . . 7 ⊢ (𝜑 → 2 ≤ (2 · 𝑁))
257	18	eluz1i 12808	. . . . . . 7 ⊢ ((2 · 𝑁) ∈ (ℤ_≥‘2) ↔ ((2 · 𝑁) ∈ ℤ ∧ 2 ≤ (2 · 𝑁)))
258	21, 256, 257	sylanbrc 583	. . . . . 6 ⊢ (𝜑 → (2 · 𝑁) ∈ (ℤ_≥‘2))
259		eluz2gt1 12886	. . . . . 6 ⊢ ((2 · 𝑁) ∈ (ℤ_≥‘2) → 1 < (2 · 𝑁))
260	258, 259	syl 17	. . . . 5 ⊢ (𝜑 → 1 < (2 · 𝑁))
261	22, 260, 227, 85	cxpled 26636	. . . 4 ⊢ (𝜑 → ((π‘𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2) ↔ ((2 · 𝑁)↑_𝑐(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2))))
262	248, 261	mpbid 232	. . 3 ⊢ (𝜑 → ((2 · 𝑁)↑_𝑐(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
263	226, 262	eqbrtrrd 5134	. 2 ⊢ (𝜑 → ((2 · 𝑁)↑(π‘𝑀)) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
264	76, 81, 86, 224, 263	letrd 11338	1 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑_𝑐(((√‘(2 · 𝑁)) / 3) + 2)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ∃wrex 3054 ifcif 4491 class class class wbr 5110 ↦ cmpt 5191 ⟶wf 6510 ‘cfv 6514 (class class class)co 7390 ℂcc 11073 ℝcr 11074 0cc0 11075 1c1 11076 + caddc 11078 · cmul 11080 < clt 11215 ≤ cle 11216 / cdiv 11842 ℕcn 12193 2c2 12248 3c3 12249 5c5 12251 9c9 12255 ℕ₀cn0 12449 ℤcz 12536 cdc 12656 ℤ_≥cuz 12800 ...cfz 13475 ⌊cfl 13759 seqcseq 13973 ↑cexp 14033 Ccbc 14274 √csqrt 15206 ℙcprime 16648 pCnt cpc 16814 ↑_𝑐ccxp 26471 πcppi 27011

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2702 ax-rep 5237 ax-sep 5254 ax-nul 5264 ax-pow 5323 ax-pr 5390 ax-un 7714 ax-inf2 9601 ax-cnex 11131 ax-resscn 11132 ax-1cn 11133 ax-icn 11134 ax-addcl 11135 ax-addrcl 11136 ax-mulcl 11137 ax-mulrcl 11138 ax-mulcom 11139 ax-addass 11140 ax-mulass 11141 ax-distr 11142 ax-i2m1 11143 ax-1ne0 11144 ax-1rid 11145 ax-rnegex 11146 ax-rrecex 11147 ax-cnre 11148 ax-pre-lttri 11149 ax-pre-lttrn 11150 ax-pre-ltadd 11151 ax-pre-mulgt0 11152 ax-pre-sup 11153 ax-addf 11154

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3356 df-reu 3357 df-rab 3409 df-v 3452 df-sbc 3757 df-csb 3866 df-dif 3920 df-un 3922 df-in 3924 df-ss 3934 df-pss 3937 df-nul 4300 df-if 4492 df-pw 4568 df-sn 4593 df-pr 4595 df-tp 4597 df-op 4599 df-uni 4875 df-int 4914 df-iun 4960 df-iin 4961 df-br 5111 df-opab 5173 df-mpt 5192 df-tr 5218 df-id 5536 df-eprel 5541 df-po 5549 df-so 5550 df-fr 5594 df-se 5595 df-we 5596 df-xp 5647 df-rel 5648 df-cnv 5649 df-co 5650 df-dm 5651 df-rn 5652 df-res 5653 df-ima 5654 df-pred 6277 df-ord 6338 df-on 6339 df-lim 6340 df-suc 6341 df-iota 6467 df-fun 6516 df-fn 6517 df-f 6518 df-f1 6519 df-fo 6520 df-f1o 6521 df-fv 6522 df-isom 6523 df-riota 7347 df-ov 7393 df-oprab 7394 df-mpo 7395 df-of 7656 df-om 7846 df-1st 7971 df-2nd 7972 df-supp 8143 df-frecs 8263 df-wrecs 8294 df-recs 8343 df-rdg 8381 df-1o 8437 df-2o 8438 df-oadd 8441 df-er 8674 df-map 8804 df-pm 8805 df-ixp 8874 df-en 8922 df-dom 8923 df-sdom 8924 df-fin 8925 df-fsupp 9320 df-fi 9369 df-sup 9400 df-inf 9401 df-oi 9470 df-dju 9861 df-card 9899 df-pnf 11217 df-mnf 11218 df-xr 11219 df-ltxr 11220 df-le 11221 df-sub 11414 df-neg 11415 df-div 11843 df-nn 12194 df-2 12256 df-3 12257 df-4 12258 df-5 12259 df-6 12260 df-7 12261 df-8 12262 df-9 12263 df-n0 12450 df-xnn0 12523 df-z 12537 df-dec 12657 df-uz 12801 df-q 12915 df-rp 12959 df-xneg 13079 df-xadd 13080 df-xmul 13081 df-ioo 13317 df-ioc 13318 df-ico 13319 df-icc 13320 df-fz 13476 df-fzo 13623 df-fl 13761 df-mod 13839 df-seq 13974 df-exp 14034 df-fac 14246 df-bc 14275 df-hash 14303 df-shft 15040 df-cj 15072 df-re 15073 df-im 15074 df-sqrt 15208 df-abs 15209 df-limsup 15444 df-clim 15461 df-rlim 15462 df-sum 15660 df-ef 16040 df-sin 16042 df-cos 16043 df-pi 16045 df-dvds 16230 df-gcd 16472 df-prm 16649 df-pc 16815 df-struct 17124 df-sets 17141 df-slot 17159 df-ndx 17171 df-base 17187 df-ress 17208 df-plusg 17240 df-mulr 17241 df-starv 17242 df-sca 17243 df-vsca 17244 df-ip 17245 df-tset 17246 df-ple 17247 df-ds 17249 df-unif 17250 df-hom 17251 df-cco 17252 df-rest 17392 df-topn 17393 df-0g 17411 df-gsum 17412 df-topgen 17413 df-pt 17414 df-prds 17417 df-xrs 17472 df-qtop 17477 df-imas 17478 df-xps 17480 df-mre 17554 df-mrc 17555 df-acs 17557 df-mgm 18574 df-sgrp 18653 df-mnd 18669 df-submnd 18718 df-mulg 19007 df-cntz 19256 df-cmn 19719 df-psmet 21263 df-xmet 21264 df-met 21265 df-bl 21266 df-mopn 21267 df-fbas 21268 df-fg 21269 df-cnfld 21272 df-top 22788 df-topon 22805 df-topsp 22827 df-bases 22840 df-cld 22913 df-ntr 22914 df-cls 22915 df-nei 22992 df-lp 23030 df-perf 23031 df-cn 23121 df-cnp 23122 df-haus 23209 df-tx 23456 df-hmeo 23649 df-fil 23740 df-fm 23832 df-flim 23833 df-flf 23834 df-xms 24215 df-ms 24216 df-tms 24217 df-cncf 24778 df-limc 25774 df-dv 25775 df-log 26472 df-cxp 26473 df-ppi 27017

This theorem is referenced by: bposlem6 27207

W3C validator