chtublem - Metamath Proof Explorer

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

Theorem chtublem 27353

Description: Lemma for chtub 27354. (Contributed by Mario Carneiro, 13-Mar-2014.)

**Assertion**
Ref	Expression
chtublem	⊢ (𝑁 ∈ ℕ → (θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + ((log‘4) · (𝑁 − 1))))

Proof of Theorem chtublem Dummy variables 𝑘 𝑛 𝑝 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		2nn 12315	. . . . . 6 ⊢ 2 ∈ ℕ
2		nnmulcl 12258	. . . . . 6 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
3	1, 2	mpan 702	. . . . 5 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℕ)
4	3	nnred 12249	. . . 4 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℝ)
5		peano2rem 11526	. . . 4 ⊢ ((2 · 𝑁) ∈ ℝ → ((2 · 𝑁) − 1) ∈ ℝ)
6	4, 5	syl 18	. . 3 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℝ)
7		chtcl 27251	. . 3 ⊢ (((2 · 𝑁) − 1) ∈ ℝ → (θ‘((2 · 𝑁) − 1)) ∈ ℝ)
8	6, 7	syl 18	. 2 ⊢ (𝑁 ∈ ℕ → (θ‘((2 · 𝑁) − 1)) ∈ ℝ)
9		nnre 12241	. . . 4 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
10		chtcl 27251	. . . 4 ⊢ (𝑁 ∈ ℝ → (θ‘𝑁) ∈ ℝ)
11	9, 10	syl 18	. . 3 ⊢ (𝑁 ∈ ℕ → (θ‘𝑁) ∈ ℝ)
12		nnnn0 12512	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
13		2m1e1 12366	. . . . . . . . . . 11 ⊢ (2 − 1) = 1
14	13	oveq2i 7423	. . . . . . . . . 10 ⊢ ((2 · 𝑁) − (2 − 1)) = ((2 · 𝑁) − 1)
15	3	nncnd 12250	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℂ)
16		2cn 12317	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℂ
17		ax-1cn 11159	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℂ
18		subsub 11489	. . . . . . . . . . . . 13 ⊢ (((2 · 𝑁) ∈ ℂ ∧ 2 ∈ ℂ ∧ 1 ∈ ℂ) → ((2 · 𝑁) − (2 − 1)) = (((2 · 𝑁) − 2) + 1))
19	16, 17, 18	mp3an23 1482	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℂ → ((2 · 𝑁) − (2 − 1)) = (((2 · 𝑁) − 2) + 1))
20	15, 19	syl 18	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − (2 − 1)) = (((2 · 𝑁) − 2) + 1))
21		nncn 12242	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
22		subdi 11648	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℂ ∧ 𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → (2 · (𝑁 − 1)) = ((2 · 𝑁) − (2 · 1)))
23	16, 17, 22	mp3an13 1481	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℂ → (2 · (𝑁 − 1)) = ((2 · 𝑁) − (2 · 1)))
24	21, 23	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 − 1)) = ((2 · 𝑁) − (2 · 1)))
25		2t1e2 12404	. . . . . . . . . . . . . 14 ⊢ (2 · 1) = 2
26	25	oveq2i 7423	. . . . . . . . . . . . 13 ⊢ ((2 · 𝑁) − (2 · 1)) = ((2 · 𝑁) − 2)
27	24, 26	eqtrdi 2814	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 − 1)) = ((2 · 𝑁) − 2))
28	27	oveq1d 7427	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((2 · (𝑁 − 1)) + 1) = (((2 · 𝑁) − 2) + 1))
29	20, 28	eqtr4d 2801	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − (2 − 1)) = ((2 · (𝑁 − 1)) + 1))
30	14, 29	eqtr3id 2812	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) = ((2 · (𝑁 − 1)) + 1))
31		2nn0 12522	. . . . . . . . . . 11 ⊢ 2 ∈ ℕ₀
32		nnm1nn0 12546	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ₀)
33		nn0mulcl 12541	. . . . . . . . . . 11 ⊢ ((2 ∈ ℕ₀ ∧ (𝑁 − 1) ∈ ℕ₀) → (2 · (𝑁 − 1)) ∈ ℕ₀)
34	31, 32, 33	sylancr 598	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 − 1)) ∈ ℕ₀)
35		nn0p1nn 12544	. . . . . . . . . 10 ⊢ ((2 · (𝑁 − 1)) ∈ ℕ₀ → ((2 · (𝑁 − 1)) + 1) ∈ ℕ)
36	34, 35	syl 18	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((2 · (𝑁 − 1)) + 1) ∈ ℕ)
37	30, 36	eqeltrd 2863	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℕ)
38		nnnn0 12512	. . . . . . . 8 ⊢ (((2 · 𝑁) − 1) ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℕ₀)
39	37, 38	syl 18	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℕ₀)
40		1re 11209	. . . . . . . . . . 11 ⊢ 1 ∈ ℝ
41	40	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
42		nnge1 12265	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 1 ≤ 𝑁)
43	41, 9, 9, 42	leadd2dd 11830	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≤ (𝑁 + 𝑁))
44	21	2timesd 12488	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) = (𝑁 + 𝑁))
45	43, 44	breqtrrd 5140	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≤ (2 · 𝑁))
46		leaddsub 11691	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℝ ∧ 1 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ) → ((𝑁 + 1) ≤ (2 · 𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
47	9, 41, 4, 46	syl3anc 1398	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) ≤ (2 · 𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
48	45, 47	mpbid 235	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ≤ ((2 · 𝑁) − 1))
49		elfz2nn0 13648	. . . . . . 7 ⊢ (𝑁 ∈ (0...((2 · 𝑁) − 1)) ↔ (𝑁 ∈ ℕ₀ ∧ ((2 · 𝑁) − 1) ∈ ℕ₀ ∧ 𝑁 ≤ ((2 · 𝑁) − 1)))
50	12, 39, 48, 49	syl3anbrc 1362	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0...((2 · 𝑁) − 1)))
51		bccl2 14361	. . . . . 6 ⊢ (𝑁 ∈ (0...((2 · 𝑁) − 1)) → (((2 · 𝑁) − 1)C𝑁) ∈ ℕ)
52	50, 51	syl 18	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℕ)
53	52	nnrpd 13059	. . . 4 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℝ⁺)
54	53	relogcld 26766	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((2 · 𝑁) − 1)C𝑁)) ∈ ℝ)
55	11, 54	readdcld 11239	. 2 ⊢ (𝑁 ∈ ℕ → ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ∈ ℝ)
56		4re 12326	. . . . . 6 ⊢ 4 ∈ ℝ
57		4pos 12352	. . . . . 6 ⊢ 0 < 4
58	56, 57	elrpii 13020	. . . . 5 ⊢ 4 ∈ ℝ⁺
59		relogcl 26718	. . . . 5 ⊢ (4 ∈ ℝ⁺ → (log‘4) ∈ ℝ)
60	58, 59	ax-mp 5	. . . 4 ⊢ (log‘4) ∈ ℝ
61	32	nn0red 12567	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℝ)
62		remulcl 11186	. . . 4 ⊢ (((log‘4) ∈ ℝ ∧ (𝑁 − 1) ∈ ℝ) → ((log‘4) · (𝑁 − 1)) ∈ ℝ)
63	60, 61, 62	sylancr 598	. . 3 ⊢ (𝑁 ∈ ℕ → ((log‘4) · (𝑁 − 1)) ∈ ℝ)
64	11, 63	readdcld 11239	. 2 ⊢ (𝑁 ∈ ℕ → ((θ‘𝑁) + ((log‘4) · (𝑁 − 1))) ∈ ℝ)
65		iftrue 4494	. . . . . . . . . . . 12 ⊢ (𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) = 1)
66	65	adantl 486	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) = 1)
67		simpr 489	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
68	52	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (((2 · 𝑁) − 1)C𝑁) ∈ ℕ)
69	67, 68	pccld 16911	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ₀)
70		nn0addge1 12551	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℝ ∧ (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ₀) → 1 ≤ (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
71	40, 69, 70	sylancr 598	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 1 ≤ (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
72		iftrue 4494	. . . . . . . . . . . . . . . 16 ⊢ (𝑝 ≤ 𝑁 → if(𝑝 ≤ 𝑁, 1, 0) = 1)
73	72	oveq1d 7427	. . . . . . . . . . . . . . 15 ⊢ (𝑝 ≤ 𝑁 → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
74	73	breq2d 5122	. . . . . . . . . . . . . 14 ⊢ (𝑝 ≤ 𝑁 → (1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) ↔ 1 ≤ (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
75	71, 74	syl5ibrcom 250	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ 𝑁 → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
76	75	adantr 485	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → (𝑝 ≤ 𝑁 → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
77		prmnn 16733	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
78	77	ad2antlr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℕ)
79		simprl 782	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 𝑝 ≤ ((2 · 𝑁) − 1))
80		prmz 16734	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
81	37	nnzd 12618	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℤ)
82		eluz 12877	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑝 ∈ ℤ ∧ ((2 · 𝑁) − 1) ∈ ℤ) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝) ↔ 𝑝 ≤ ((2 · 𝑁) − 1)))
83	80, 81, 82	syl2anr 608	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝) ↔ 𝑝 ≤ ((2 · 𝑁) − 1)))
84	83	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝) ↔ 𝑝 ≤ ((2 · 𝑁) − 1)))
85	79, 84	mpbird 260	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝))
86		dvdsfac 16385	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑝 ∈ ℕ ∧ ((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝)) → 𝑝 ∥ (!‘((2 · 𝑁) − 1)))
87	78, 85, 86	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 𝑝 ∥ (!‘((2 · 𝑁) − 1)))
88		id 23	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
89	39	faccld 14322	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ ℕ → (!‘((2 · 𝑁) − 1)) ∈ ℕ)
90		pcelnn 16931	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ℙ ∧ (!‘((2 · 𝑁) − 1)) ∈ ℕ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ ↔ 𝑝 ∥ (!‘((2 · 𝑁) − 1))))
91	88, 89, 90	syl2anr 608	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ ↔ 𝑝 ∥ (!‘((2 · 𝑁) − 1))))
92	91	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ ↔ 𝑝 ∥ (!‘((2 · 𝑁) − 1))))
93	87, 92	mpbird 260	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ)
94	93	nnge1d 12285	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 1 ≤ (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
95		iffalse 4497	. . . . . . . . . . . . . . . . 17 ⊢ (¬ 𝑝 ≤ 𝑁 → if(𝑝 ≤ 𝑁, 1, 0) = 0)
96	95	oveq1d 7427	. . . . . . . . . . . . . . . 16 ⊢ (¬ 𝑝 ≤ 𝑁 → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
97	96	ad2antll 741	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
98	69	nn0cnd 12568	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℂ)
99	98	addlidd 11412	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))
100	99	adantr 485	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))
101		bcval2 14343	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑁 ∈ (0...((2 · 𝑁) − 1)) → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁))))
102	50, 101	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁))))
103	32	nn0cnd 12568	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℂ)
104	17	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
105	44	oveq1d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) = ((𝑁 + 𝑁) − 1))
106	21, 21, 104, 105	assraddsubd 11629	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) = (𝑁 + (𝑁 − 1)))
107	21, 103, 106	mvrladdd 11628	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1) − 𝑁) = (𝑁 − 1))
108	107	fveq2d 6887	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑁 ∈ ℕ → (!‘(((2 · 𝑁) − 1) − 𝑁)) = (!‘(𝑁 − 1)))
109	108	oveq1d 7427	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑁 ∈ ℕ → ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁)) = ((!‘(𝑁 − 1)) · (!‘𝑁)))
110	109	oveq2d 7428	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → ((!‘((2 · 𝑁) − 1)) / ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁))) = ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁))))
111	102, 110	eqtrd 2798	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁))))
112	111	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁))))
113	112	oveq2d 7428	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = (𝑝 pCnt ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁)))))
114		nnz 12613	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘((2 · 𝑁) − 1)) ∈ ℕ → (!‘((2 · 𝑁) − 1)) ∈ ℤ)
115		nnne0 12271	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘((2 · 𝑁) − 1)) ∈ ℕ → (!‘((2 · 𝑁) − 1)) ≠ 0)
116	114, 115	jca 520	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((!‘((2 · 𝑁) − 1)) ∈ ℕ → ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0))
117	89, 116	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0))
118	117	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0))
119	32	faccld 14322	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 − 1)) ∈ ℕ)
120	12	faccld 14322	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ)
121	119, 120	nnmulcld 12290	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 − 1)) · (!‘𝑁)) ∈ ℕ)
122	121	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘(𝑁 − 1)) · (!‘𝑁)) ∈ ℕ)
123		pcdiv 16913	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 ∈ ℙ ∧ ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0) ∧ ((!‘(𝑁 − 1)) · (!‘𝑁)) ∈ ℕ) → (𝑝 pCnt ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁)))))
124	67, 118, 122, 123	syl3anc 1398	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁)))))
125		nnz 12613	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘(𝑁 − 1)) ∈ ℕ → (!‘(𝑁 − 1)) ∈ ℤ)
126		nnne0 12271	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘(𝑁 − 1)) ∈ ℕ → (!‘(𝑁 − 1)) ≠ 0)
127	125, 126	jca 520	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘(𝑁 − 1)) ∈ ℕ → ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0))
128	119, 127	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0))
129	128	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0))
130		nnz 12613	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ∈ ℤ)
131		nnne0 12271	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ≠ 0)
132	130, 131	jca 520	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘𝑁) ∈ ℕ → ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0))
133	120, 132	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0))
134	133	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0))
135		pcmul 16912	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑝 ∈ ℙ ∧ ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0) ∧ ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0)) → (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁))) = ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))))
136	67, 129, 134, 135	syl3anc 1398	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁))) = ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))))
137	136	oveq2d 7428	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))))
138	113, 124, 137	3eqtrd 2802	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))))
139	138	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))))
140		simprr 784	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ¬ 𝑝 ≤ 𝑁)
141		prmfac1 16780	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑝 ∈ ℙ ∧ 𝑝 ∥ (!‘𝑁)) → 𝑝 ≤ 𝑁)
142	141	3expia 1139	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘𝑁) → 𝑝 ≤ 𝑁))
143	12, 142	sylan 591	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘𝑁) → 𝑝 ≤ 𝑁))
144	143	adantr 485	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 ∥ (!‘𝑁) → 𝑝 ≤ 𝑁))
145	140, 144	mtod 201	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ¬ 𝑝 ∥ (!‘𝑁))
146	80	adantl 486	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
147	129	simpld 499	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (!‘(𝑁 − 1)) ∈ ℤ)
148		nnz 12613	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
149	148	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℤ)
150		dvdsmultr1 16355	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑝 ∈ ℤ ∧ (!‘(𝑁 − 1)) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ ((!‘(𝑁 − 1)) · 𝑁)))
151	146, 147, 149, 150	syl3anc 1398	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ ((!‘(𝑁 − 1)) · 𝑁)))
152		facnn2 14320	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) = ((!‘(𝑁 − 1)) · 𝑁))
153	152	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (!‘𝑁) = ((!‘(𝑁 − 1)) · 𝑁))
154	153	breq2d 5122	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘𝑁) ↔ 𝑝 ∥ ((!‘(𝑁 − 1)) · 𝑁)))
155	151, 154	sylibrd 262	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ (!‘𝑁)))
156	155	adantr 485	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ (!‘𝑁)))
157	145, 156	mtod 201	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ¬ 𝑝 ∥ (!‘(𝑁 − 1)))
158		pceq0 16932	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑝 ∈ ℙ ∧ (!‘(𝑁 − 1)) ∈ ℕ) → ((𝑝 pCnt (!‘(𝑁 − 1))) = 0 ↔ ¬ 𝑝 ∥ (!‘(𝑁 − 1))))
159	88, 119, 158	syl2anr 608	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘(𝑁 − 1))) = 0 ↔ ¬ 𝑝 ∥ (!‘(𝑁 − 1))))
160	159	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘(𝑁 − 1))) = 0 ↔ ¬ 𝑝 ∥ (!‘(𝑁 − 1))))
161	157, 160	mpbird 260	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (!‘(𝑁 − 1))) = 0)
162		pceq0 16932	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑝 ∈ ℙ ∧ (!‘𝑁) ∈ ℕ) → ((𝑝 pCnt (!‘𝑁)) = 0 ↔ ¬ 𝑝 ∥ (!‘𝑁)))
163	88, 120, 162	syl2anr 608	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘𝑁)) = 0 ↔ ¬ 𝑝 ∥ (!‘𝑁)))
164	163	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘𝑁)) = 0 ↔ ¬ 𝑝 ∥ (!‘𝑁)))
165	145, 164	mpbird 260	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (!‘𝑁)) = 0)
166	161, 165	oveq12d 7430	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))) = (0 + 0))
167		00id 11386	. . . . . . . . . . . . . . . . . 18 ⊢ (0 + 0) = 0
168	166, 167	eqtrdi 2814	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))) = 0)
169	168	oveq2d 7428	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − 0))
170		pccl 16910	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑝 ∈ ℙ ∧ (!‘((2 · 𝑁) − 1)) ∈ ℕ) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ₀)
171	88, 89, 170	syl2anr 608	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ₀)
172	171	nn0cnd 12568	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℂ)
173	172	subid1d 11559	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − 0) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
174	173	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − 0) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
175	139, 169, 174	3eqtrd 2802	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
176	97, 100, 175	3eqtrd 2802	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
177	94, 176	breqtrrd 5140	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
178	177	expr 461	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → (¬ 𝑝 ≤ 𝑁 → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
179	76, 178	pm2.61d 181	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
180	66, 179	eqbrtrd 5134	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
181	180	ex 417	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
182		1nn0 12521	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℕ₀
183		0nn0 12520	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
184	182, 183	ifcli 4536	. . . . . . . . . . . 12 ⊢ if(𝑝 ≤ 𝑁, 1, 0) ∈ ℕ₀
185		nn0addcl 12540	. . . . . . . . . . . 12 ⊢ ((if(𝑝 ≤ 𝑁, 1, 0) ∈ ℕ₀ ∧ (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ₀) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) ∈ ℕ₀)
186	184, 69, 185	sylancr 598	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) ∈ ℕ₀)
187	186	nn0ge0d 12569	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 0 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
188		iffalse 4497	. . . . . . . . . . 11 ⊢ (¬ 𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) = 0)
189	188	breq1d 5120	. . . . . . . . . 10 ⊢ (¬ 𝑝 ≤ ((2 · 𝑁) − 1) → (if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) ↔ 0 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
190	187, 189	syl5ibrcom 250	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
191	181, 190	pm2.61d 181	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
192		eqid 2763	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1))
193	192	prmorcht 27320	. . . . . . . . . . . 12 ⊢ (((2 · 𝑁) − 1) ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1)))
194	37, 193	syl 18	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1)))
195	194	oveq2d 7428	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1))))
196	195	adantr 485	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1))))
197		nncn 12242	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
198	197	exp1d 14179	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (𝑛↑1) = 𝑛)
199	198	ifeq1d 4508	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → if(𝑛 ∈ ℙ, (𝑛↑1), 1) = if(𝑛 ∈ ℙ, 𝑛, 1))
200	199	mpteq2ia 5207	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑1), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1))
201	200	eqcomi 2772	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑1), 1))
202	182	a1i 11	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑛 ∈ ℙ) → 1 ∈ ℕ₀)
203	202	ralrimiva 3157	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ∀𝑛 ∈ ℙ 1 ∈ ℕ₀)
204	37	adantr 485	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁) − 1) ∈ ℕ)
205		eqidd 2764	. . . . . . . . . 10 ⊢ (𝑛 = 𝑝 → 1 = 1)
206	201, 203, 204, 67, 205	pcmpt 16953	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1))) = if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0))
207	196, 206	eqtrd 2798	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) = if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0))
208		efchtcl 27253	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (exp‘(θ‘𝑁)) ∈ ℕ)
209	9, 208	syl 18	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘𝑁)) ∈ ℕ)
210	209	adantr 485	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (exp‘(θ‘𝑁)) ∈ ℕ)
211		nnz 12613	. . . . . . . . . . . 12 ⊢ ((exp‘(θ‘𝑁)) ∈ ℕ → (exp‘(θ‘𝑁)) ∈ ℤ)
212		nnne0 12271	. . . . . . . . . . . 12 ⊢ ((exp‘(θ‘𝑁)) ∈ ℕ → (exp‘(θ‘𝑁)) ≠ 0)
213	211, 212	jca 520	. . . . . . . . . . 11 ⊢ ((exp‘(θ‘𝑁)) ∈ ℕ → ((exp‘(θ‘𝑁)) ∈ ℤ ∧ (exp‘(θ‘𝑁)) ≠ 0))
214	210, 213	syl 18	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((exp‘(θ‘𝑁)) ∈ ℤ ∧ (exp‘(θ‘𝑁)) ≠ 0))
215		nnz 12613	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) − 1)C𝑁) ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℤ)
216		nnne0 12271	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) − 1)C𝑁) ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ≠ 0)
217	215, 216	jca 520	. . . . . . . . . . 11 ⊢ ((((2 · 𝑁) − 1)C𝑁) ∈ ℕ → ((((2 · 𝑁) − 1)C𝑁) ∈ ℤ ∧ (((2 · 𝑁) − 1)C𝑁) ≠ 0))
218	68, 217	syl 18	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((((2 · 𝑁) − 1)C𝑁) ∈ ℤ ∧ (((2 · 𝑁) − 1)C𝑁) ≠ 0))
219		pcmul 16912	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℙ ∧ ((exp‘(θ‘𝑁)) ∈ ℤ ∧ (exp‘(θ‘𝑁)) ≠ 0) ∧ ((((2 · 𝑁) − 1)C𝑁) ∈ ℤ ∧ (((2 · 𝑁) − 1)C𝑁) ≠ 0)) → (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))) = ((𝑝 pCnt (exp‘(θ‘𝑁))) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
220	67, 214, 218, 219	syl3anc 1398	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))) = ((𝑝 pCnt (exp‘(θ‘𝑁))) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
221	192	prmorcht 27320	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘𝑁)) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁))
222	221	oveq2d 7428	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑝 pCnt (exp‘(θ‘𝑁))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁)))
223	222	adantr 485	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘𝑁))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁)))
224		simpl 487	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℕ)
225	201, 203, 224, 67, 205	pcmpt 16953	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁)) = if(𝑝 ≤ 𝑁, 1, 0))
226	223, 225	eqtrd 2798	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘𝑁))) = if(𝑝 ≤ 𝑁, 1, 0))
227	226	oveq1d 7427	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (exp‘(θ‘𝑁))) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
228	220, 227	eqtrd 2798	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))) = (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
229	191, 207, 228	3brtr4d 5144	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) ≤ (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))))
230	229	ralrimiva 3157	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ∀𝑝 ∈ ℙ (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) ≤ (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))))
231		efchtcl 27253	. . . . . . . . 9 ⊢ (((2 · 𝑁) − 1) ∈ ℝ → (exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℕ)
232	6, 231	syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℕ)
233	232	nnzd 12618	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℤ)
234	209, 52	nnmulcld 12290	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ)
235	234	nnzd 12618	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ∈ ℤ)
236		pc2dvds 16940	. . . . . . 7 ⊢ (((exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℤ ∧ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ∈ ℤ) → ((exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) ≤ (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))))
237	233, 235, 236	syl2anc 595	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) ≤ (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))))
238	230, 237	mpbird 260	. . . . 5 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
239		dvdsle 16369	. . . . . 6 ⊢ (((exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℤ ∧ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ) → ((exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) → (exp‘(θ‘((2 · 𝑁) − 1))) ≤ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))))
240	233, 234, 239	syl2anc 595	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) → (exp‘(θ‘((2 · 𝑁) − 1))) ≤ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))))
241	238, 240	mpd 16	. . . 4 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ≤ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
242	11	recnd 11238	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (θ‘𝑁) ∈ ℂ)
243	54	recnd 11238	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (log‘(((2 · 𝑁) − 1)C𝑁)) ∈ ℂ)
244		efadd 16149	. . . . . 6 ⊢ (((θ‘𝑁) ∈ ℂ ∧ (log‘(((2 · 𝑁) − 1)C𝑁)) ∈ ℂ) → (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (exp‘(log‘(((2 · 𝑁) − 1)C𝑁)))))
245	242, 243, 244	syl2anc 595	. . . . 5 ⊢ (𝑁 ∈ ℕ → (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (exp‘(log‘(((2 · 𝑁) − 1)C𝑁)))))
246	53	reeflogd 26767	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (exp‘(log‘(((2 · 𝑁) − 1)C𝑁))) = (((2 · 𝑁) − 1)C𝑁))
247	246	oveq2d 7428	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘𝑁)) · (exp‘(log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
248	245, 247	eqtrd 2798	. . . 4 ⊢ (𝑁 ∈ ℕ → (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
249	241, 248	breqtrrd 5140	. . 3 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ≤ (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))))
250		efle 16175	. . . 4 ⊢ (((θ‘((2 · 𝑁) − 1)) ∈ ℝ ∧ ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ∈ ℝ) → ((θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ↔ (exp‘(θ‘((2 · 𝑁) − 1))) ≤ (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))))))
251	8, 55, 250	syl2anc 595	. . 3 ⊢ (𝑁 ∈ ℕ → ((θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ↔ (exp‘(θ‘((2 · 𝑁) − 1))) ≤ (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))))))
252	249, 251	mpbird 260	. 2 ⊢ (𝑁 ∈ ℕ → (θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))))
253		fzfid 14011	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (0...((2 · 𝑁) − 1)) ∈ Fin)
254		elfzelz 13553	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (0...((2 · 𝑁) − 1)) → 𝑘 ∈ ℤ)
255		bccl 14360	. . . . . . . . . . 11 ⊢ ((((2 · 𝑁) − 1) ∈ ℕ₀ ∧ 𝑘 ∈ ℤ) → (((2 · 𝑁) − 1)C𝑘) ∈ ℕ₀)
256	39, 254, 255	syl2an 607	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → (((2 · 𝑁) − 1)C𝑘) ∈ ℕ₀)
257	256	nn0red 12567	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → (((2 · 𝑁) − 1)C𝑘) ∈ ℝ)
258	256	nn0ge0d 12569	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → 0 ≤ (((2 · 𝑁) − 1)C𝑘))
259		nn0uz 12901	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
260	32, 259	eleqtrdi 2873	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (ℤ_≥‘0))
261		fzss1 13593	. . . . . . . . . . 11 ⊢ ((𝑁 − 1) ∈ (ℤ_≥‘0) → ((𝑁 − 1)...𝑁) ⊆ (0...𝑁))
262	260, 261	syl 18	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1)...𝑁) ⊆ (0...𝑁))
263		eluz 12877	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℤ ∧ ((2 · 𝑁) − 1) ∈ ℤ) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
264	148, 81, 263	syl2anc 595	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
265	48, 264	mpbird 260	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁))
266		fzss2 13594	. . . . . . . . . . 11 ⊢ (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁) → (0...𝑁) ⊆ (0...((2 · 𝑁) − 1)))
267	265, 266	syl 18	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (0...𝑁) ⊆ (0...((2 · 𝑁) − 1)))
268	262, 267	sstrd 3948	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1)...𝑁) ⊆ (0...((2 · 𝑁) − 1)))
269	253, 257, 258, 268	fsumless 15850	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...𝑁)(((2 · 𝑁) − 1)C𝑘) ≤ Σ𝑘 ∈ (0...((2 · 𝑁) − 1))(((2 · 𝑁) − 1)C𝑘))
270	32	nn0zd 12617	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℤ)
271		bccmpl 14347	. . . . . . . . . . . . . . 15 ⊢ ((((2 · 𝑁) − 1) ∈ ℕ₀ ∧ 𝑁 ∈ ℤ) → (((2 · 𝑁) − 1)C𝑁) = (((2 · 𝑁) − 1)C(((2 · 𝑁) − 1) − 𝑁)))
272	39, 148, 271	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = (((2 · 𝑁) − 1)C(((2 · 𝑁) − 1) − 𝑁)))
273	107	oveq2d 7428	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C(((2 · 𝑁) − 1) − 𝑁)) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
274	272, 273	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
275	52	nncnd 12250	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℂ)
276	274, 275	eqeltrrd 2864	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C(𝑁 − 1)) ∈ ℂ)
277		oveq2 7420	. . . . . . . . . . . . 13 ⊢ (𝑘 = (𝑁 − 1) → (((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
278	277	fsum1 15800	. . . . . . . . . . . 12 ⊢ (((𝑁 − 1) ∈ ℤ ∧ (((2 · 𝑁) − 1)C(𝑁 − 1)) ∈ ℂ) → Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
279	270, 276, 278	syl2anc 595	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
280	279, 274	eqtr4d 2801	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C𝑁))
281	280	oveq1d 7427	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) + (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) + (((2 · 𝑁) − 1)C𝑁)))
282	21, 104	npcand 11574	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1) + 1) = 𝑁)
283		uzid 12878	. . . . . . . . . . . . 13 ⊢ ((𝑁 − 1) ∈ ℤ → (𝑁 − 1) ∈ (ℤ_≥‘(𝑁 − 1)))
284	270, 283	syl 18	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (ℤ_≥‘(𝑁 − 1)))
285		peano2uz 12926	. . . . . . . . . . . 12 ⊢ ((𝑁 − 1) ∈ (ℤ_≥‘(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ_≥‘(𝑁 − 1)))
286	284, 285	syl 18	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1) + 1) ∈ (ℤ_≥‘(𝑁 − 1)))
287	282, 286	eqeltrrd 2864	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (ℤ_≥‘(𝑁 − 1)))
288	268	sselda 3938	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ((𝑁 − 1)...𝑁)) → 𝑘 ∈ (0...((2 · 𝑁) − 1)))
289	256	nn0cnd 12568	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → (((2 · 𝑁) − 1)C𝑘) ∈ ℂ)
290	288, 289	syldan 602	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ((𝑁 − 1)...𝑁)) → (((2 · 𝑁) − 1)C𝑘) ∈ ℂ)
291		oveq2 7420	. . . . . . . . . 10 ⊢ (𝑘 = 𝑁 → (((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C𝑁))
292	287, 290, 291	fsumm1 15804	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...𝑁)(((2 · 𝑁) − 1)C𝑘) = (Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) + (((2 · 𝑁) − 1)C𝑁)))
293	275	2timesd 12488	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) + (((2 · 𝑁) − 1)C𝑁)))
294	281, 292, 293	3eqtr4rd 2809	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) = Σ𝑘 ∈ ((𝑁 − 1)...𝑁)(((2 · 𝑁) − 1)C𝑘))
295		binom11 15888	. . . . . . . . 9 ⊢ (((2 · 𝑁) − 1) ∈ ℕ₀ → (2↑((2 · 𝑁) − 1)) = Σ𝑘 ∈ (0...((2 · 𝑁) − 1))(((2 · 𝑁) − 1)C𝑘))
296	39, 295	syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (2↑((2 · 𝑁) − 1)) = Σ𝑘 ∈ (0...((2 · 𝑁) − 1))(((2 · 𝑁) − 1)C𝑘))
297	269, 294, 296	3brtr4d 5144	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) ≤ (2↑((2 · 𝑁) − 1)))
298		mulcom 11187	. . . . . . . 8 ⊢ ((2 ∈ ℂ ∧ (((2 · 𝑁) − 1)C𝑁) ∈ ℂ) → (2 · (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) · 2))
299	16, 275, 298	sylancr 598	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) · 2))
300	30	oveq2d 7428	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (2↑((2 · 𝑁) − 1)) = (2↑((2 · (𝑁 − 1)) + 1)))
301		expp1 14106	. . . . . . . . 9 ⊢ ((2 ∈ ℂ ∧ (2 · (𝑁 − 1)) ∈ ℕ₀) → (2↑((2 · (𝑁 − 1)) + 1)) = ((2↑(2 · (𝑁 − 1))) · 2))
302	16, 34, 301	sylancr 598	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (2↑((2 · (𝑁 − 1)) + 1)) = ((2↑(2 · (𝑁 − 1))) · 2))
303	16	a1i 11	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
304	31	a1i 11	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℕ₀)
305	303, 32, 304	expmuld 14187	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2↑(2 · (𝑁 − 1))) = ((2↑2)↑(𝑁 − 1)))
306		sq2 14235	. . . . . . . . . . 11 ⊢ (2↑2) = 4
307	306	oveq1i 7422	. . . . . . . . . 10 ⊢ ((2↑2)↑(𝑁 − 1)) = (4↑(𝑁 − 1))
308	305, 307	eqtrdi 2814	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2↑(2 · (𝑁 − 1))) = (4↑(𝑁 − 1)))
309	308	oveq1d 7427	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((2↑(2 · (𝑁 − 1))) · 2) = ((4↑(𝑁 − 1)) · 2))
310	300, 302, 309	3eqtrd 2802	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2↑((2 · 𝑁) − 1)) = ((4↑(𝑁 − 1)) · 2))
311	297, 299, 310	3brtr3d 5143	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((2 · 𝑁) − 1)C𝑁) · 2) ≤ ((4↑(𝑁 − 1)) · 2))
312	52	nnred 12249	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℝ)
313		reexpcl 14116	. . . . . . . 8 ⊢ ((4 ∈ ℝ ∧ (𝑁 − 1) ∈ ℕ₀) → (4↑(𝑁 − 1)) ∈ ℝ)
314	56, 32, 313	sylancr 598	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (4↑(𝑁 − 1)) ∈ ℝ)
315		2re 12316	. . . . . . . . 9 ⊢ 2 ∈ ℝ
316		2pos 12346	. . . . . . . . 9 ⊢ 0 < 2
317	315, 316	pm3.2i 475	. . . . . . . 8 ⊢ (2 ∈ ℝ ∧ 0 < 2)
318	317	a1i 11	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2 ∈ ℝ ∧ 0 < 2))
319		lemul1 12068	. . . . . . 7 ⊢ (((((2 · 𝑁) − 1)C𝑁) ∈ ℝ ∧ (4↑(𝑁 − 1)) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → ((((2 · 𝑁) − 1)C𝑁) ≤ (4↑(𝑁 − 1)) ↔ ((((2 · 𝑁) − 1)C𝑁) · 2) ≤ ((4↑(𝑁 − 1)) · 2)))
320	312, 314, 318, 319	syl3anc 1398	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((2 · 𝑁) − 1)C𝑁) ≤ (4↑(𝑁 − 1)) ↔ ((((2 · 𝑁) − 1)C𝑁) · 2) ≤ ((4↑(𝑁 − 1)) · 2)))
321	311, 320	mpbird 260	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ≤ (4↑(𝑁 − 1)))
322	60	recni 11224	. . . . . . . 8 ⊢ (log‘4) ∈ ℂ
323		mulcom 11187	. . . . . . . 8 ⊢ (((log‘4) ∈ ℂ ∧ (𝑁 − 1) ∈ ℂ) → ((log‘4) · (𝑁 − 1)) = ((𝑁 − 1) · (log‘4)))
324	322, 103, 323	sylancr 598	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((log‘4) · (𝑁 − 1)) = ((𝑁 − 1) · (log‘4)))
325	324	fveq2d 6887	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (exp‘((log‘4) · (𝑁 − 1))) = (exp‘((𝑁 − 1) · (log‘4))))
326		reexplog 26738	. . . . . . 7 ⊢ ((4 ∈ ℝ⁺ ∧ (𝑁 − 1) ∈ ℤ) → (4↑(𝑁 − 1)) = (exp‘((𝑁 − 1) · (log‘4))))
327	58, 270, 326	sylancr 598	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (4↑(𝑁 − 1)) = (exp‘((𝑁 − 1) · (log‘4))))
328	325, 327	eqtr4d 2801	. . . . 5 ⊢ (𝑁 ∈ ℕ → (exp‘((log‘4) · (𝑁 − 1))) = (4↑(𝑁 − 1)))
329	321, 246, 328	3brtr4d 5144	. . . 4 ⊢ (𝑁 ∈ ℕ → (exp‘(log‘(((2 · 𝑁) − 1)C𝑁))) ≤ (exp‘((log‘4) · (𝑁 − 1))))
330		efle 16175	. . . . 5 ⊢ (((log‘(((2 · 𝑁) − 1)C𝑁)) ∈ ℝ ∧ ((log‘4) · (𝑁 − 1)) ∈ ℝ) → ((log‘(((2 · 𝑁) − 1)C𝑁)) ≤ ((log‘4) · (𝑁 − 1)) ↔ (exp‘(log‘(((2 · 𝑁) − 1)C𝑁))) ≤ (exp‘((log‘4) · (𝑁 − 1)))))
331	54, 63, 330	syl2anc 595	. . . 4 ⊢ (𝑁 ∈ ℕ → ((log‘(((2 · 𝑁) − 1)C𝑁)) ≤ ((log‘4) · (𝑁 − 1)) ↔ (exp‘(log‘(((2 · 𝑁) − 1)C𝑁))) ≤ (exp‘((log‘4) · (𝑁 − 1)))))
332	329, 331	mpbird 260	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((2 · 𝑁) − 1)C𝑁)) ≤ ((log‘4) · (𝑁 − 1)))
333	54, 63, 11, 332	leadd2dd 11830	. 2 ⊢ (𝑁 ∈ ℕ → ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ≤ ((θ‘𝑁) + ((log‘4) · (𝑁 − 1))))
334	8, 55, 64, 252, 333	letrd 11368	1 ⊢ (𝑁 ∈ ℕ → (θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + ((log‘4) · (𝑁 − 1))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 400 = wceq 1570 ∈ wcel 2143 ≠ wne 2958 ∀wral 3079 ⊆ wss 3906 ifcif 4488 class class class wbr 5110 ↦ cmpt 5193 ‘cfv 6538 (class class class)co 7412 ℂcc 11099 ℝcr 11100 0cc0 11101 1c1 11102 + caddc 11104 · cmul 11106 < clt 11244 ≤ cle 11245 − cmin 11442 / cdiv 11872 ℕcn 12234 2c2 12296 4c4 12298 ℕ₀cn0 12505 ℤcz 12592 ℤ_≥cuz 12863 ℝ⁺crp 13017 ...cfz 13536 seqcseq 14039 ↑cexp 14099 !cfa 14311 Ccbc 14340 Σcsu 15739 expce 16116 ∥ cdvds 16311 ℙcprime 16730 pCnt cpc 16897 logclog 26697 θccht 27233

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5239 ax-sep 5258 ax-nul 5270 ax-pow 5338 ax-pr 5406 ax-un 7734 ax-inf2 9611 ax-cnex 11157 ax-resscn 11158 ax-1cn 11159 ax-icn 11160 ax-addcl 11161 ax-addrcl 11162 ax-mulcl 11163 ax-mulrcl 11164 ax-mulcom 11165 ax-addass 11166 ax-mulass 11167 ax-distr 11168 ax-i2m1 11169 ax-1ne0 11170 ax-1rid 11171 ax-rnegex 11172 ax-rrecex 11173 ax-cnre 11174 ax-pre-lttri 11175 ax-pre-lttrn 11176 ax-pre-ltadd 11177 ax-pre-mulgt0 11178 ax-pre-sup 11179 ax-addf 11180

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3746 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4288 df-if 4489 df-pw 4565 df-sn 4591 df-pr 4593 df-tp 4595 df-op 4597 df-uni 4874 df-int 4914 df-iun 4959 df-iin 4960 df-br 5111 df-opab 5175 df-mpt 5194 df-tr 5220 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 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-isom 6547 df-riota 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-of 7676 df-om 7864 df-1st 7987 df-2nd 7988 df-supp 8158 df-frecs 8279 df-wrecs 8310 df-recs 8359 df-rdg 8398 df-1o 8454 df-2o 8455 df-er 8695 df-map 8827 df-pm 8828 df-ixp 8897 df-en 8945 df-dom 8946 df-sdom 8947 df-fin 8948 df-fsupp 9323 df-fi 9372 df-sup 9403 df-inf 9404 df-oi 9473 df-card 9926 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11444 df-neg 11445 df-div 11873 df-nn 12235 df-2 12304 df-3 12305 df-4 12306 df-5 12307 df-6 12308 df-7 12309 df-8 12310 df-9 12311 df-n0 12506 df-z 12593 df-dec 12713 df-uz 12864 df-q 12974 df-rp 13018 df-xneg 13138 df-xadd 13139 df-xmul 13140 df-ioo 13377 df-ioc 13378 df-ico 13379 df-icc 13380 df-fz 13537 df-fzo 13685 df-fl 13827 df-mod 13905 df-seq 14040 df-exp 14100 df-fac 14312 df-bc 14341 df-hash 14369 df-shft 15106 df-cj 15152 df-re 15153 df-im 15154 df-sqrt 15288 df-abs 15289 df-limsup 15524 df-clim 15541 df-rlim 15542 df-sum 15740 df-ef 16122 df-sin 16124 df-cos 16125 df-pi 16127 df-dvds 16312 df-gcd 16554 df-prm 16731 df-pc 16898 df-struct 17208 df-sets 17225 df-slot 17243 df-ndx 17255 df-base 17271 df-ress 17292 df-plusg 17324 df-mulr 17325 df-starv 17326 df-sca 17327 df-vsca 17328 df-ip 17329 df-tset 17330 df-ple 17331 df-ds 17333 df-unif 17334 df-hom 17335 df-cco 17336 df-rest 17476 df-topn 17477 df-0g 17495 df-gsum 17496 df-topgen 17497 df-pt 17498 df-prds 17501 df-xrs 17557 df-qtop 17562 df-imas 17563 df-xps 17565 df-mre 17639 df-mrc 17640 df-acs 17642 df-mgm 18699 df-sgrp 18778 df-mnd 18794 df-submnd 18843 df-mulg 19135 df-cntz 19388 df-cmn 19853 df-psmet 21495 df-xmet 21496 df-met 21497 df-bl 21498 df-mopn 21499 df-fbas 21500 df-fg 21501 df-cnfld 21504 df-top 23032 df-topon 23049 df-topsp 23071 df-bases 23084 df-cld 23157 df-ntr 23158 df-cls 23159 df-nei 23236 df-lp 23274 df-perf 23275 df-cn 23365 df-cnp 23366 df-haus 23453 df-tx 23700 df-hmeo 23893 df-fil 23984 df-fm 24076 df-flim 24077 df-flf 24078 df-xms 24458 df-ms 24459 df-tms 24460 df-cncf 25018 df-limc 26006 df-dv 26007 df-log 26699 df-cht 27239

This theorem is referenced by: chtub 27354

W3C validator