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 27122

Description: Lemma for chtub 27123. (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 12259	. . . . . 6 ⊢ 2 ∈ ℕ
2		nnmulcl 12210	. . . . . 6 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
3	1, 2	mpan 690	. . . . 5 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℕ)
4	3	nnred 12201	. . . 4 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℝ)
5		peano2rem 11489	. . . 4 ⊢ ((2 · 𝑁) ∈ ℝ → ((2 · 𝑁) − 1) ∈ ℝ)
6	4, 5	syl 17	. . 3 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℝ)
7		chtcl 27019	. . 3 ⊢ (((2 · 𝑁) − 1) ∈ ℝ → (θ‘((2 · 𝑁) − 1)) ∈ ℝ)
8	6, 7	syl 17	. 2 ⊢ (𝑁 ∈ ℕ → (θ‘((2 · 𝑁) − 1)) ∈ ℝ)
9		nnre 12193	. . . 4 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
10		chtcl 27019	. . . 4 ⊢ (𝑁 ∈ ℝ → (θ‘𝑁) ∈ ℝ)
11	9, 10	syl 17	. . 3 ⊢ (𝑁 ∈ ℕ → (θ‘𝑁) ∈ ℝ)
12		nnnn0 12449	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
13		2m1e1 12307	. . . . . . . . . . 11 ⊢ (2 − 1) = 1
14	13	oveq2i 7398	. . . . . . . . . 10 ⊢ ((2 · 𝑁) − (2 − 1)) = ((2 · 𝑁) − 1)
15	3	nncnd 12202	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℂ)
16		2cn 12261	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℂ
17		ax-1cn 11126	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℂ
18		subsub 11452	. . . . . . . . . . . . 13 ⊢ (((2 · 𝑁) ∈ ℂ ∧ 2 ∈ ℂ ∧ 1 ∈ ℂ) → ((2 · 𝑁) − (2 − 1)) = (((2 · 𝑁) − 2) + 1))
19	16, 17, 18	mp3an23 1455	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℂ → ((2 · 𝑁) − (2 − 1)) = (((2 · 𝑁) − 2) + 1))
20	15, 19	syl 17	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − (2 − 1)) = (((2 · 𝑁) − 2) + 1))
21		nncn 12194	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
22		subdi 11611	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℂ ∧ 𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → (2 · (𝑁 − 1)) = ((2 · 𝑁) − (2 · 1)))
23	16, 17, 22	mp3an13 1454	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℂ → (2 · (𝑁 − 1)) = ((2 · 𝑁) − (2 · 1)))
24	21, 23	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 − 1)) = ((2 · 𝑁) − (2 · 1)))
25		2t1e2 12344	. . . . . . . . . . . . . 14 ⊢ (2 · 1) = 2
26	25	oveq2i 7398	. . . . . . . . . . . . 13 ⊢ ((2 · 𝑁) − (2 · 1)) = ((2 · 𝑁) − 2)
27	24, 26	eqtrdi 2780	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 − 1)) = ((2 · 𝑁) − 2))
28	27	oveq1d 7402	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((2 · (𝑁 − 1)) + 1) = (((2 · 𝑁) − 2) + 1))
29	20, 28	eqtr4d 2767	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − (2 − 1)) = ((2 · (𝑁 − 1)) + 1))
30	14, 29	eqtr3id 2778	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) = ((2 · (𝑁 − 1)) + 1))
31		2nn0 12459	. . . . . . . . . . 11 ⊢ 2 ∈ ℕ₀
32		nnm1nn0 12483	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ₀)
33		nn0mulcl 12478	. . . . . . . . . . 11 ⊢ ((2 ∈ ℕ₀ ∧ (𝑁 − 1) ∈ ℕ₀) → (2 · (𝑁 − 1)) ∈ ℕ₀)
34	31, 32, 33	sylancr 587	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 − 1)) ∈ ℕ₀)
35		nn0p1nn 12481	. . . . . . . . . 10 ⊢ ((2 · (𝑁 − 1)) ∈ ℕ₀ → ((2 · (𝑁 − 1)) + 1) ∈ ℕ)
36	34, 35	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((2 · (𝑁 − 1)) + 1) ∈ ℕ)
37	30, 36	eqeltrd 2828	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℕ)
38		nnnn0 12449	. . . . . . . 8 ⊢ (((2 · 𝑁) − 1) ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℕ₀)
39	37, 38	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℕ₀)
40		1re 11174	. . . . . . . . . . 11 ⊢ 1 ∈ ℝ
41	40	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
42		nnge1 12214	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 1 ≤ 𝑁)
43	41, 9, 9, 42	leadd2dd 11793	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≤ (𝑁 + 𝑁))
44	21	2timesd 12425	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) = (𝑁 + 𝑁))
45	43, 44	breqtrrd 5135	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≤ (2 · 𝑁))
46		leaddsub 11654	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℝ ∧ 1 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ) → ((𝑁 + 1) ≤ (2 · 𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
47	9, 41, 4, 46	syl3anc 1373	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) ≤ (2 · 𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
48	45, 47	mpbid 232	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ≤ ((2 · 𝑁) − 1))
49		elfz2nn0 13579	. . . . . . 7 ⊢ (𝑁 ∈ (0...((2 · 𝑁) − 1)) ↔ (𝑁 ∈ ℕ₀ ∧ ((2 · 𝑁) − 1) ∈ ℕ₀ ∧ 𝑁 ≤ ((2 · 𝑁) − 1)))
50	12, 39, 48, 49	syl3anbrc 1344	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (0...((2 · 𝑁) − 1)))
51		bccl2 14288	. . . . . 6 ⊢ (𝑁 ∈ (0...((2 · 𝑁) − 1)) → (((2 · 𝑁) − 1)C𝑁) ∈ ℕ)
52	50, 51	syl 17	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℕ)
53	52	nnrpd 12993	. . . 4 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℝ⁺)
54	53	relogcld 26532	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((2 · 𝑁) − 1)C𝑁)) ∈ ℝ)
55	11, 54	readdcld 11203	. 2 ⊢ (𝑁 ∈ ℕ → ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ∈ ℝ)
56		4re 12270	. . . . . 6 ⊢ 4 ∈ ℝ
57		4pos 12293	. . . . . 6 ⊢ 0 < 4
58	56, 57	elrpii 12954	. . . . 5 ⊢ 4 ∈ ℝ⁺
59		relogcl 26484	. . . . 5 ⊢ (4 ∈ ℝ⁺ → (log‘4) ∈ ℝ)
60	58, 59	ax-mp 5	. . . 4 ⊢ (log‘4) ∈ ℝ
61	32	nn0red 12504	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℝ)
62		remulcl 11153	. . . 4 ⊢ (((log‘4) ∈ ℝ ∧ (𝑁 − 1) ∈ ℝ) → ((log‘4) · (𝑁 − 1)) ∈ ℝ)
63	60, 61, 62	sylancr 587	. . 3 ⊢ (𝑁 ∈ ℕ → ((log‘4) · (𝑁 − 1)) ∈ ℝ)
64	11, 63	readdcld 11203	. 2 ⊢ (𝑁 ∈ ℕ → ((θ‘𝑁) + ((log‘4) · (𝑁 − 1))) ∈ ℝ)
65		iftrue 4494	. . . . . . . . . . . 12 ⊢ (𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) = 1)
66	65	adantl 481	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) = 1)
67		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
68	52	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (((2 · 𝑁) − 1)C𝑁) ∈ ℕ)
69	67, 68	pccld 16821	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ₀)
70		nn0addge1 12488	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℝ ∧ (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ₀) → 1 ≤ (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
71	40, 69, 70	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 1 ≤ (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
72		iftrue 4494	. . . . . . . . . . . . . . . 16 ⊢ (𝑝 ≤ 𝑁 → if(𝑝 ≤ 𝑁, 1, 0) = 1)
73	72	oveq1d 7402	. . . . . . . . . . . . . . 15 ⊢ (𝑝 ≤ 𝑁 → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
74	73	breq2d 5119	. . . . . . . . . . . . . 14 ⊢ (𝑝 ≤ 𝑁 → (1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) ↔ 1 ≤ (1 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
75	71, 74	syl5ibrcom 247	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ 𝑁 → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
76	75	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → (𝑝 ≤ 𝑁 → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
77		prmnn 16644	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
78	77	ad2antlr 727	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℕ)
79		simprl 770	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 𝑝 ≤ ((2 · 𝑁) − 1))
80		prmz 16645	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
81	37	nnzd 12556	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ ℤ)
82		eluz 12807	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑝 ∈ ℤ ∧ ((2 · 𝑁) − 1) ∈ ℤ) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝) ↔ 𝑝 ≤ ((2 · 𝑁) − 1)))
83	80, 81, 82	syl2anr 597	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝) ↔ 𝑝 ≤ ((2 · 𝑁) − 1)))
84	83	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝) ↔ 𝑝 ≤ ((2 · 𝑁) − 1)))
85	79, 84	mpbird 257	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝))
86		dvdsfac 16296	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑝 ∈ ℕ ∧ ((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑝)) → 𝑝 ∥ (!‘((2 · 𝑁) − 1)))
87	78, 85, 86	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 𝑝 ∥ (!‘((2 · 𝑁) − 1)))
88		id 22	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
89	39	faccld 14249	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ ℕ → (!‘((2 · 𝑁) − 1)) ∈ ℕ)
90		pcelnn 16841	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ℙ ∧ (!‘((2 · 𝑁) − 1)) ∈ ℕ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ ↔ 𝑝 ∥ (!‘((2 · 𝑁) − 1))))
91	88, 89, 90	syl2anr 597	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ ↔ 𝑝 ∥ (!‘((2 · 𝑁) − 1))))
92	91	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ ↔ 𝑝 ∥ (!‘((2 · 𝑁) − 1))))
93	87, 92	mpbird 257	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ)
94	93	nnge1d 12234	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 1 ≤ (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
95		iffalse 4497	. . . . . . . . . . . . . . . . 17 ⊢ (¬ 𝑝 ≤ 𝑁 → if(𝑝 ≤ 𝑁, 1, 0) = 0)
96	95	oveq1d 7402	. . . . . . . . . . . . . . . 16 ⊢ (¬ 𝑝 ≤ 𝑁 → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
97	96	ad2antll 729	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
98	69	nn0cnd 12505	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℂ)
99	98	addlidd 11375	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))
100	99	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (0 + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))
101		bcval2 14270	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑁 ∈ (0...((2 · 𝑁) − 1)) → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁))))
102	50, 101	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁))))
103	32	nn0cnd 12505	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℂ)
104	17	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
105	44	oveq1d 7402	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) = ((𝑁 + 𝑁) − 1))
106	21, 21, 104, 105	assraddsubd 11592	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) = (𝑁 + (𝑁 − 1)))
107	21, 103, 106	mvrladdd 11591	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1) − 𝑁) = (𝑁 − 1))
108	107	fveq2d 6862	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑁 ∈ ℕ → (!‘(((2 · 𝑁) − 1) − 𝑁)) = (!‘(𝑁 − 1)))
109	108	oveq1d 7402	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑁 ∈ ℕ → ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁)) = ((!‘(𝑁 − 1)) · (!‘𝑁)))
110	109	oveq2d 7403	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → ((!‘((2 · 𝑁) − 1)) / ((!‘(((2 · 𝑁) − 1) − 𝑁)) · (!‘𝑁))) = ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁))))
111	102, 110	eqtrd 2764	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁))))
112	111	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (((2 · 𝑁) − 1)C𝑁) = ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁))))
113	112	oveq2d 7403	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = (𝑝 pCnt ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁)))))
114		nnz 12550	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘((2 · 𝑁) − 1)) ∈ ℕ → (!‘((2 · 𝑁) − 1)) ∈ ℤ)
115		nnne0 12220	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘((2 · 𝑁) − 1)) ∈ ℕ → (!‘((2 · 𝑁) − 1)) ≠ 0)
116	114, 115	jca 511	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((!‘((2 · 𝑁) − 1)) ∈ ℕ → ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0))
117	89, 116	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0))
118	117	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0))
119	32	faccld 14249	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 − 1)) ∈ ℕ)
120	12	faccld 14249	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ)
121	119, 120	nnmulcld 12239	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 − 1)) · (!‘𝑁)) ∈ ℕ)
122	121	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘(𝑁 − 1)) · (!‘𝑁)) ∈ ℕ)
123		pcdiv 16823	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 ∈ ℙ ∧ ((!‘((2 · 𝑁) − 1)) ∈ ℤ ∧ (!‘((2 · 𝑁) − 1)) ≠ 0) ∧ ((!‘(𝑁 − 1)) · (!‘𝑁)) ∈ ℕ) → (𝑝 pCnt ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁)))))
124	67, 118, 122, 123	syl3anc 1373	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((!‘((2 · 𝑁) − 1)) / ((!‘(𝑁 − 1)) · (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁)))))
125		nnz 12550	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘(𝑁 − 1)) ∈ ℕ → (!‘(𝑁 − 1)) ∈ ℤ)
126		nnne0 12220	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘(𝑁 − 1)) ∈ ℕ → (!‘(𝑁 − 1)) ≠ 0)
127	125, 126	jca 511	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘(𝑁 − 1)) ∈ ℕ → ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0))
128	119, 127	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0))
129	128	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0))
130		nnz 12550	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ∈ ℤ)
131		nnne0 12220	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ≠ 0)
132	130, 131	jca 511	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((!‘𝑁) ∈ ℕ → ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0))
133	120, 132	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0))
134	133	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0))
135		pcmul 16822	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑝 ∈ ℙ ∧ ((!‘(𝑁 − 1)) ∈ ℤ ∧ (!‘(𝑁 − 1)) ≠ 0) ∧ ((!‘𝑁) ∈ ℤ ∧ (!‘𝑁) ≠ 0)) → (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁))) = ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))))
136	67, 129, 134, 135	syl3anc 1373	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁))) = ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))))
137	136	oveq2d 7403	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − (𝑝 pCnt ((!‘(𝑁 − 1)) · (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))))
138	113, 124, 137	3eqtrd 2768	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))))
139	138	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))))
140		simprr 772	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ¬ 𝑝 ≤ 𝑁)
141		prmfac1 16690	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑝 ∈ ℙ ∧ 𝑝 ∥ (!‘𝑁)) → 𝑝 ≤ 𝑁)
142	141	3expia 1121	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘𝑁) → 𝑝 ≤ 𝑁))
143	12, 142	sylan 580	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘𝑁) → 𝑝 ≤ 𝑁))
144	143	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 ∥ (!‘𝑁) → 𝑝 ≤ 𝑁))
145	140, 144	mtod 198	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ¬ 𝑝 ∥ (!‘𝑁))
146	80	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
147	129	simpld 494	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (!‘(𝑁 − 1)) ∈ ℤ)
148		nnz 12550	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
149	148	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℤ)
150		dvdsmultr1 16266	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑝 ∈ ℤ ∧ (!‘(𝑁 − 1)) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ ((!‘(𝑁 − 1)) · 𝑁)))
151	146, 147, 149, 150	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ ((!‘(𝑁 − 1)) · 𝑁)))
152		facnn2 14247	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) = ((!‘(𝑁 − 1)) · 𝑁))
153	152	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (!‘𝑁) = ((!‘(𝑁 − 1)) · 𝑁))
154	153	breq2d 5119	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘𝑁) ↔ 𝑝 ∥ ((!‘(𝑁 − 1)) · 𝑁)))
155	151, 154	sylibrd 259	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ (!‘𝑁)))
156	155	adantr 480	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 ∥ (!‘(𝑁 − 1)) → 𝑝 ∥ (!‘𝑁)))
157	145, 156	mtod 198	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ¬ 𝑝 ∥ (!‘(𝑁 − 1)))
158		pceq0 16842	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑝 ∈ ℙ ∧ (!‘(𝑁 − 1)) ∈ ℕ) → ((𝑝 pCnt (!‘(𝑁 − 1))) = 0 ↔ ¬ 𝑝 ∥ (!‘(𝑁 − 1))))
159	88, 119, 158	syl2anr 597	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘(𝑁 − 1))) = 0 ↔ ¬ 𝑝 ∥ (!‘(𝑁 − 1))))
160	159	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘(𝑁 − 1))) = 0 ↔ ¬ 𝑝 ∥ (!‘(𝑁 − 1))))
161	157, 160	mpbird 257	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (!‘(𝑁 − 1))) = 0)
162		pceq0 16842	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑝 ∈ ℙ ∧ (!‘𝑁) ∈ ℕ) → ((𝑝 pCnt (!‘𝑁)) = 0 ↔ ¬ 𝑝 ∥ (!‘𝑁)))
163	88, 120, 162	syl2anr 597	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘𝑁)) = 0 ↔ ¬ 𝑝 ∥ (!‘𝑁)))
164	163	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘𝑁)) = 0 ↔ ¬ 𝑝 ∥ (!‘𝑁)))
165	145, 164	mpbird 257	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (!‘𝑁)) = 0)
166	161, 165	oveq12d 7405	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))) = (0 + 0))
167		00id 11349	. . . . . . . . . . . . . . . . . 18 ⊢ (0 + 0) = 0
168	166, 167	eqtrdi 2780	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁))) = 0)
169	168	oveq2d 7403	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − ((𝑝 pCnt (!‘(𝑁 − 1))) + (𝑝 pCnt (!‘𝑁)))) = ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − 0))
170		pccl 16820	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑝 ∈ ℙ ∧ (!‘((2 · 𝑁) − 1)) ∈ ℕ) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ₀)
171	88, 89, 170	syl2anr 597	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℕ₀)
172	171	nn0cnd 12505	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (!‘((2 · 𝑁) − 1))) ∈ ℂ)
173	172	subid1d 11522	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − 0) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
174	173	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → ((𝑝 pCnt (!‘((2 · 𝑁) − 1))) − 0) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
175	139, 169, 174	3eqtrd 2768	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
176	97, 100, 175	3eqtrd 2768	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (𝑝 pCnt (!‘((2 · 𝑁) − 1))))
177	94, 176	breqtrrd 5135	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑝 ≤ ((2 · 𝑁) − 1) ∧ ¬ 𝑝 ≤ 𝑁)) → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
178	177	expr 456	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → (¬ 𝑝 ≤ 𝑁 → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
179	76, 178	pm2.61d 179	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → 1 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
180	66, 179	eqbrtrd 5129	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ ((2 · 𝑁) − 1)) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
181	180	ex 412	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
182		1nn0 12458	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℕ₀
183		0nn0 12457	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
184	182, 183	ifcli 4536	. . . . . . . . . . . 12 ⊢ if(𝑝 ≤ 𝑁, 1, 0) ∈ ℕ₀
185		nn0addcl 12477	. . . . . . . . . . . 12 ⊢ ((if(𝑝 ≤ 𝑁, 1, 0) ∈ ℕ₀ ∧ (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ₀) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) ∈ ℕ₀)
186	184, 69, 185	sylancr 587	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) ∈ ℕ₀)
187	186	nn0ge0d 12506	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 0 ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
188		iffalse 4497	. . . . . . . . . . 11 ⊢ (¬ 𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) = 0)
189	188	breq1d 5117	. . . . . . . . . 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 247	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ ((2 · 𝑁) − 1) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁)))))
191	181, 190	pm2.61d 179	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0) ≤ (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
192		eqid 2729	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1))
193	192	prmorcht 27088	. . . . . . . . . . . 12 ⊢ (((2 · 𝑁) − 1) ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1)))
194	37, 193	syl 17	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1)))
195	194	oveq2d 7403	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1))))
196	195	adantr 480	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1))))
197		nncn 12194	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
198	197	exp1d 14106	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (𝑛↑1) = 𝑛)
199	198	ifeq1d 4508	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → if(𝑛 ∈ ℙ, (𝑛↑1), 1) = if(𝑛 ∈ ℙ, 𝑛, 1))
200	199	mpteq2ia 5202	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑1), 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1))
201	200	eqcomi 2738	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)) = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑1), 1))
202	182	a1i 11	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑛 ∈ ℙ) → 1 ∈ ℕ₀)
203	202	ralrimiva 3125	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ∀𝑛 ∈ ℙ 1 ∈ ℕ₀)
204	37	adantr 480	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁) − 1) ∈ ℕ)
205		eqidd 2730	. . . . . . . . . 10 ⊢ (𝑛 = 𝑝 → 1 = 1)
206	201, 203, 204, 67, 205	pcmpt 16863	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘((2 · 𝑁) − 1))) = if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0))
207	196, 206	eqtrd 2764	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) = if(𝑝 ≤ ((2 · 𝑁) − 1), 1, 0))
208		efchtcl 27021	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (exp‘(θ‘𝑁)) ∈ ℕ)
209	9, 208	syl 17	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘𝑁)) ∈ ℕ)
210	209	adantr 480	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (exp‘(θ‘𝑁)) ∈ ℕ)
211		nnz 12550	. . . . . . . . . . . 12 ⊢ ((exp‘(θ‘𝑁)) ∈ ℕ → (exp‘(θ‘𝑁)) ∈ ℤ)
212		nnne0 12220	. . . . . . . . . . . 12 ⊢ ((exp‘(θ‘𝑁)) ∈ ℕ → (exp‘(θ‘𝑁)) ≠ 0)
213	211, 212	jca 511	. . . . . . . . . . 11 ⊢ ((exp‘(θ‘𝑁)) ∈ ℕ → ((exp‘(θ‘𝑁)) ∈ ℤ ∧ (exp‘(θ‘𝑁)) ≠ 0))
214	210, 213	syl 17	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((exp‘(θ‘𝑁)) ∈ ℤ ∧ (exp‘(θ‘𝑁)) ≠ 0))
215		nnz 12550	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) − 1)C𝑁) ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℤ)
216		nnne0 12220	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) − 1)C𝑁) ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ≠ 0)
217	215, 216	jca 511	. . . . . . . . . . 11 ⊢ ((((2 · 𝑁) − 1)C𝑁) ∈ ℕ → ((((2 · 𝑁) − 1)C𝑁) ∈ ℤ ∧ (((2 · 𝑁) − 1)C𝑁) ≠ 0))
218	68, 217	syl 17	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((((2 · 𝑁) − 1)C𝑁) ∈ ℤ ∧ (((2 · 𝑁) − 1)C𝑁) ≠ 0))
219		pcmul 16822	. . . . . . . . . 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 1373	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))) = ((𝑝 pCnt (exp‘(θ‘𝑁))) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
221	192	prmorcht 27088	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘𝑁)) = (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁))
222	221	oveq2d 7403	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑝 pCnt (exp‘(θ‘𝑁))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁)))
223	222	adantr 480	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘𝑁))) = (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁)))
224		simpl 482	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℕ)
225	201, 203, 224, 67, 205	pcmpt 16863	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, 𝑛, 1)))‘𝑁)) = if(𝑝 ≤ 𝑁, 1, 0))
226	223, 225	eqtrd 2764	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘𝑁))) = if(𝑝 ≤ 𝑁, 1, 0))
227	226	oveq1d 7402	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt (exp‘(θ‘𝑁))) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))) = (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
228	220, 227	eqtrd 2764	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))) = (if(𝑝 ≤ 𝑁, 1, 0) + (𝑝 pCnt (((2 · 𝑁) − 1)C𝑁))))
229	191, 207, 228	3brtr4d 5139	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) ≤ (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))))
230	229	ralrimiva 3125	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ∀𝑝 ∈ ℙ (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) ≤ (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))))
231		efchtcl 27021	. . . . . . . . 9 ⊢ (((2 · 𝑁) − 1) ∈ ℝ → (exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℕ)
232	6, 231	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℕ)
233	232	nnzd 12556	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ∈ ℤ)
234	209, 52	nnmulcld 12239	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ∈ ℕ)
235	234	nnzd 12556	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ∈ ℤ)
236		pc2dvds 16850	. . . . . . 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 584	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (exp‘(θ‘((2 · 𝑁) − 1)))) ≤ (𝑝 pCnt ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))))
238	230, 237	mpbird 257	. . . . 5 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
239		dvdsle 16280	. . . . . 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 584	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘((2 · 𝑁) − 1))) ∥ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)) → (exp‘(θ‘((2 · 𝑁) − 1))) ≤ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁))))
241	238, 240	mpd 15	. . . 4 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ≤ ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
242	11	recnd 11202	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (θ‘𝑁) ∈ ℂ)
243	54	recnd 11202	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (log‘(((2 · 𝑁) − 1)C𝑁)) ∈ ℂ)
244		efadd 16060	. . . . . 6 ⊢ (((θ‘𝑁) ∈ ℂ ∧ (log‘(((2 · 𝑁) − 1)C𝑁)) ∈ ℂ) → (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (exp‘(log‘(((2 · 𝑁) − 1)C𝑁)))))
245	242, 243, 244	syl2anc 584	. . . . 5 ⊢ (𝑁 ∈ ℕ → (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (exp‘(log‘(((2 · 𝑁) − 1)C𝑁)))))
246	53	reeflogd 26533	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (exp‘(log‘(((2 · 𝑁) − 1)C𝑁))) = (((2 · 𝑁) − 1)C𝑁))
247	246	oveq2d 7403	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((exp‘(θ‘𝑁)) · (exp‘(log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
248	245, 247	eqtrd 2764	. . . 4 ⊢ (𝑁 ∈ ℕ → (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))) = ((exp‘(θ‘𝑁)) · (((2 · 𝑁) − 1)C𝑁)))
249	241, 248	breqtrrd 5135	. . 3 ⊢ (𝑁 ∈ ℕ → (exp‘(θ‘((2 · 𝑁) − 1))) ≤ (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁)))))
250		efle 16086	. . . 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 584	. . 3 ⊢ (𝑁 ∈ ℕ → ((θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ↔ (exp‘(θ‘((2 · 𝑁) − 1))) ≤ (exp‘((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))))))
252	249, 251	mpbird 257	. 2 ⊢ (𝑁 ∈ ℕ → (θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))))
253		fzfid 13938	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (0...((2 · 𝑁) − 1)) ∈ Fin)
254		elfzelz 13485	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (0...((2 · 𝑁) − 1)) → 𝑘 ∈ ℤ)
255		bccl 14287	. . . . . . . . . . 11 ⊢ ((((2 · 𝑁) − 1) ∈ ℕ₀ ∧ 𝑘 ∈ ℤ) → (((2 · 𝑁) − 1)C𝑘) ∈ ℕ₀)
256	39, 254, 255	syl2an 596	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → (((2 · 𝑁) − 1)C𝑘) ∈ ℕ₀)
257	256	nn0red 12504	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → (((2 · 𝑁) − 1)C𝑘) ∈ ℝ)
258	256	nn0ge0d 12506	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → 0 ≤ (((2 · 𝑁) − 1)C𝑘))
259		nn0uz 12835	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
260	32, 259	eleqtrdi 2838	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (ℤ_≥‘0))
261		fzss1 13524	. . . . . . . . . . 11 ⊢ ((𝑁 − 1) ∈ (ℤ_≥‘0) → ((𝑁 − 1)...𝑁) ⊆ (0...𝑁))
262	260, 261	syl 17	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1)...𝑁) ⊆ (0...𝑁))
263		eluz 12807	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℤ ∧ ((2 · 𝑁) − 1) ∈ ℤ) → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
264	148, 81, 263	syl2anc 584	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁) ↔ 𝑁 ≤ ((2 · 𝑁) − 1)))
265	48, 264	mpbird 257	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁))
266		fzss2 13525	. . . . . . . . . . 11 ⊢ (((2 · 𝑁) − 1) ∈ (ℤ_≥‘𝑁) → (0...𝑁) ⊆ (0...((2 · 𝑁) − 1)))
267	265, 266	syl 17	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (0...𝑁) ⊆ (0...((2 · 𝑁) − 1)))
268	262, 267	sstrd 3957	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1)...𝑁) ⊆ (0...((2 · 𝑁) − 1)))
269	253, 257, 258, 268	fsumless 15762	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...𝑁)(((2 · 𝑁) − 1)C𝑘) ≤ Σ𝑘 ∈ (0...((2 · 𝑁) − 1))(((2 · 𝑁) − 1)C𝑘))
270	32	nn0zd 12555	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℤ)
271		bccmpl 14274	. . . . . . . . . . . . . . 15 ⊢ ((((2 · 𝑁) − 1) ∈ ℕ₀ ∧ 𝑁 ∈ ℤ) → (((2 · 𝑁) − 1)C𝑁) = (((2 · 𝑁) − 1)C(((2 · 𝑁) − 1) − 𝑁)))
272	39, 148, 271	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = (((2 · 𝑁) − 1)C(((2 · 𝑁) − 1) − 𝑁)))
273	107	oveq2d 7403	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C(((2 · 𝑁) − 1) − 𝑁)) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
274	272, 273	eqtrd 2764	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
275	52	nncnd 12202	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℂ)
276	274, 275	eqeltrrd 2829	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C(𝑁 − 1)) ∈ ℂ)
277		oveq2 7395	. . . . . . . . . . . . 13 ⊢ (𝑘 = (𝑁 − 1) → (((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
278	277	fsum1 15713	. . . . . . . . . . . 12 ⊢ (((𝑁 − 1) ∈ ℤ ∧ (((2 · 𝑁) − 1)C(𝑁 − 1)) ∈ ℂ) → Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
279	270, 276, 278	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C(𝑁 − 1)))
280	279, 274	eqtr4d 2767	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C𝑁))
281	280	oveq1d 7402	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) + (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) + (((2 · 𝑁) − 1)C𝑁)))
282	21, 104	npcand 11537	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1) + 1) = 𝑁)
283		uzid 12808	. . . . . . . . . . . . 13 ⊢ ((𝑁 − 1) ∈ ℤ → (𝑁 − 1) ∈ (ℤ_≥‘(𝑁 − 1)))
284	270, 283	syl 17	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ (ℤ_≥‘(𝑁 − 1)))
285		peano2uz 12860	. . . . . . . . . . . 12 ⊢ ((𝑁 − 1) ∈ (ℤ_≥‘(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ_≥‘(𝑁 − 1)))
286	284, 285	syl 17	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((𝑁 − 1) + 1) ∈ (ℤ_≥‘(𝑁 − 1)))
287	282, 286	eqeltrrd 2829	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ (ℤ_≥‘(𝑁 − 1)))
288	268	sselda 3946	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ((𝑁 − 1)...𝑁)) → 𝑘 ∈ (0...((2 · 𝑁) − 1)))
289	256	nn0cnd 12505	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((2 · 𝑁) − 1))) → (((2 · 𝑁) − 1)C𝑘) ∈ ℂ)
290	288, 289	syldan 591	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ((𝑁 − 1)...𝑁)) → (((2 · 𝑁) − 1)C𝑘) ∈ ℂ)
291		oveq2 7395	. . . . . . . . . 10 ⊢ (𝑘 = 𝑁 → (((2 · 𝑁) − 1)C𝑘) = (((2 · 𝑁) − 1)C𝑁))
292	287, 290, 291	fsumm1 15717	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ((𝑁 − 1)...𝑁)(((2 · 𝑁) − 1)C𝑘) = (Σ𝑘 ∈ ((𝑁 − 1)...(𝑁 − 1))(((2 · 𝑁) − 1)C𝑘) + (((2 · 𝑁) − 1)C𝑁)))
293	275	2timesd 12425	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) + (((2 · 𝑁) − 1)C𝑁)))
294	281, 292, 293	3eqtr4rd 2775	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) = Σ𝑘 ∈ ((𝑁 − 1)...𝑁)(((2 · 𝑁) − 1)C𝑘))
295		binom11 15798	. . . . . . . . 9 ⊢ (((2 · 𝑁) − 1) ∈ ℕ₀ → (2↑((2 · 𝑁) − 1)) = Σ𝑘 ∈ (0...((2 · 𝑁) − 1))(((2 · 𝑁) − 1)C𝑘))
296	39, 295	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (2↑((2 · 𝑁) − 1)) = Σ𝑘 ∈ (0...((2 · 𝑁) − 1))(((2 · 𝑁) − 1)C𝑘))
297	269, 294, 296	3brtr4d 5139	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) ≤ (2↑((2 · 𝑁) − 1)))
298		mulcom 11154	. . . . . . . 8 ⊢ ((2 ∈ ℂ ∧ (((2 · 𝑁) − 1)C𝑁) ∈ ℂ) → (2 · (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) · 2))
299	16, 275, 298	sylancr 587	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2 · (((2 · 𝑁) − 1)C𝑁)) = ((((2 · 𝑁) − 1)C𝑁) · 2))
300	30	oveq2d 7403	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (2↑((2 · 𝑁) − 1)) = (2↑((2 · (𝑁 − 1)) + 1)))
301		expp1 14033	. . . . . . . . 9 ⊢ ((2 ∈ ℂ ∧ (2 · (𝑁 − 1)) ∈ ℕ₀) → (2↑((2 · (𝑁 − 1)) + 1)) = ((2↑(2 · (𝑁 − 1))) · 2))
302	16, 34, 301	sylancr 587	. . . . . . . 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 14114	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2↑(2 · (𝑁 − 1))) = ((2↑2)↑(𝑁 − 1)))
306		sq2 14162	. . . . . . . . . . 11 ⊢ (2↑2) = 4
307	306	oveq1i 7397	. . . . . . . . . 10 ⊢ ((2↑2)↑(𝑁 − 1)) = (4↑(𝑁 − 1))
308	305, 307	eqtrdi 2780	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2↑(2 · (𝑁 − 1))) = (4↑(𝑁 − 1)))
309	308	oveq1d 7402	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((2↑(2 · (𝑁 − 1))) · 2) = ((4↑(𝑁 − 1)) · 2))
310	300, 302, 309	3eqtrd 2768	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2↑((2 · 𝑁) − 1)) = ((4↑(𝑁 − 1)) · 2))
311	297, 299, 310	3brtr3d 5138	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((2 · 𝑁) − 1)C𝑁) · 2) ≤ ((4↑(𝑁 − 1)) · 2))
312	52	nnred 12201	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ∈ ℝ)
313		reexpcl 14043	. . . . . . . 8 ⊢ ((4 ∈ ℝ ∧ (𝑁 − 1) ∈ ℕ₀) → (4↑(𝑁 − 1)) ∈ ℝ)
314	56, 32, 313	sylancr 587	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (4↑(𝑁 − 1)) ∈ ℝ)
315		2re 12260	. . . . . . . . 9 ⊢ 2 ∈ ℝ
316		2pos 12289	. . . . . . . . 9 ⊢ 0 < 2
317	315, 316	pm3.2i 470	. . . . . . . 8 ⊢ (2 ∈ ℝ ∧ 0 < 2)
318	317	a1i 11	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (2 ∈ ℝ ∧ 0 < 2))
319		lemul1 12034	. . . . . . 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 1373	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((2 · 𝑁) − 1)C𝑁) ≤ (4↑(𝑁 − 1)) ↔ ((((2 · 𝑁) − 1)C𝑁) · 2) ≤ ((4↑(𝑁 − 1)) · 2)))
321	311, 320	mpbird 257	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((2 · 𝑁) − 1)C𝑁) ≤ (4↑(𝑁 − 1)))
322	60	recni 11188	. . . . . . . 8 ⊢ (log‘4) ∈ ℂ
323		mulcom 11154	. . . . . . . 8 ⊢ (((log‘4) ∈ ℂ ∧ (𝑁 − 1) ∈ ℂ) → ((log‘4) · (𝑁 − 1)) = ((𝑁 − 1) · (log‘4)))
324	322, 103, 323	sylancr 587	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((log‘4) · (𝑁 − 1)) = ((𝑁 − 1) · (log‘4)))
325	324	fveq2d 6862	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (exp‘((log‘4) · (𝑁 − 1))) = (exp‘((𝑁 − 1) · (log‘4))))
326		reexplog 26504	. . . . . . 7 ⊢ ((4 ∈ ℝ⁺ ∧ (𝑁 − 1) ∈ ℤ) → (4↑(𝑁 − 1)) = (exp‘((𝑁 − 1) · (log‘4))))
327	58, 270, 326	sylancr 587	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (4↑(𝑁 − 1)) = (exp‘((𝑁 − 1) · (log‘4))))
328	325, 327	eqtr4d 2767	. . . . 5 ⊢ (𝑁 ∈ ℕ → (exp‘((log‘4) · (𝑁 − 1))) = (4↑(𝑁 − 1)))
329	321, 246, 328	3brtr4d 5139	. . . 4 ⊢ (𝑁 ∈ ℕ → (exp‘(log‘(((2 · 𝑁) − 1)C𝑁))) ≤ (exp‘((log‘4) · (𝑁 − 1))))
330		efle 16086	. . . . 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 584	. . . 4 ⊢ (𝑁 ∈ ℕ → ((log‘(((2 · 𝑁) − 1)C𝑁)) ≤ ((log‘4) · (𝑁 − 1)) ↔ (exp‘(log‘(((2 · 𝑁) − 1)C𝑁))) ≤ (exp‘((log‘4) · (𝑁 − 1)))))
332	329, 331	mpbird 257	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((2 · 𝑁) − 1)C𝑁)) ≤ ((log‘4) · (𝑁 − 1)))
333	54, 63, 11, 332	leadd2dd 11793	. 2 ⊢ (𝑁 ∈ ℕ → ((θ‘𝑁) + (log‘(((2 · 𝑁) − 1)C𝑁))) ≤ ((θ‘𝑁) + ((log‘4) · (𝑁 − 1))))
334	8, 55, 64, 252, 333	letrd 11331	1 ⊢ (𝑁 ∈ ℕ → (θ‘((2 · 𝑁) − 1)) ≤ ((θ‘𝑁) + ((log‘4) · (𝑁 − 1))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ≠ wne 2925 ∀wral 3044 ⊆ wss 3914 ifcif 4488 class class class wbr 5107 ↦ cmpt 5188 ‘cfv 6511 (class class class)co 7387 ℂcc 11066 ℝcr 11067 0cc0 11068 1c1 11069 + caddc 11071 · cmul 11073 < clt 11208 ≤ cle 11209 − cmin 11405 / cdiv 11835 ℕcn 12186 2c2 12241 4c4 12243 ℕ₀cn0 12442 ℤcz 12529 ℤ_≥cuz 12793 ℝ⁺crp 12951 ...cfz 13468 seqcseq 13966 ↑cexp 14026 !cfa 14238 Ccbc 14267 Σcsu 15652 expce 16027 ∥ cdvds 16222 ℙcprime 16641 pCnt cpc 16807 logclog 26463 θccht 27001

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 2701 ax-rep 5234 ax-sep 5251 ax-nul 5261 ax-pow 5320 ax-pr 5387 ax-un 7711 ax-inf2 9594 ax-cnex 11124 ax-resscn 11125 ax-1cn 11126 ax-icn 11127 ax-addcl 11128 ax-addrcl 11129 ax-mulcl 11130 ax-mulrcl 11131 ax-mulcom 11132 ax-addass 11133 ax-mulass 11134 ax-distr 11135 ax-i2m1 11136 ax-1ne0 11137 ax-1rid 11138 ax-rnegex 11139 ax-rrecex 11140 ax-cnre 11141 ax-pre-lttri 11142 ax-pre-lttrn 11143 ax-pre-ltadd 11144 ax-pre-mulgt0 11145 ax-pre-sup 11146 ax-addf 11147

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 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3354 df-reu 3355 df-rab 3406 df-v 3449 df-sbc 3754 df-csb 3863 df-dif 3917 df-un 3919 df-in 3921 df-ss 3931 df-pss 3934 df-nul 4297 df-if 4489 df-pw 4565 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4872 df-int 4911 df-iun 4957 df-iin 4958 df-br 5108 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5533 df-eprel 5538 df-po 5546 df-so 5547 df-fr 5591 df-se 5592 df-we 5593 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-pred 6274 df-ord 6335 df-on 6336 df-lim 6337 df-suc 6338 df-iota 6464 df-fun 6513 df-fn 6514 df-f 6515 df-f1 6516 df-fo 6517 df-f1o 6518 df-fv 6519 df-isom 6520 df-riota 7344 df-ov 7390 df-oprab 7391 df-mpo 7392 df-of 7653 df-om 7843 df-1st 7968 df-2nd 7969 df-supp 8140 df-frecs 8260 df-wrecs 8291 df-recs 8340 df-rdg 8378 df-1o 8434 df-2o 8435 df-er 8671 df-map 8801 df-pm 8802 df-ixp 8871 df-en 8919 df-dom 8920 df-sdom 8921 df-fin 8922 df-fsupp 9313 df-fi 9362 df-sup 9393 df-inf 9394 df-oi 9463 df-card 9892 df-pnf 11210 df-mnf 11211 df-xr 11212 df-ltxr 11213 df-le 11214 df-sub 11407 df-neg 11408 df-div 11836 df-nn 12187 df-2 12249 df-3 12250 df-4 12251 df-5 12252 df-6 12253 df-7 12254 df-8 12255 df-9 12256 df-n0 12443 df-z 12530 df-dec 12650 df-uz 12794 df-q 12908 df-rp 12952 df-xneg 13072 df-xadd 13073 df-xmul 13074 df-ioo 13310 df-ioc 13311 df-ico 13312 df-icc 13313 df-fz 13469 df-fzo 13616 df-fl 13754 df-mod 13832 df-seq 13967 df-exp 14027 df-fac 14239 df-bc 14268 df-hash 14296 df-shft 15033 df-cj 15065 df-re 15066 df-im 15067 df-sqrt 15201 df-abs 15202 df-limsup 15437 df-clim 15454 df-rlim 15455 df-sum 15653 df-ef 16033 df-sin 16035 df-cos 16036 df-pi 16038 df-dvds 16223 df-gcd 16465 df-prm 16642 df-pc 16808 df-struct 17117 df-sets 17134 df-slot 17152 df-ndx 17164 df-base 17180 df-ress 17201 df-plusg 17233 df-mulr 17234 df-starv 17235 df-sca 17236 df-vsca 17237 df-ip 17238 df-tset 17239 df-ple 17240 df-ds 17242 df-unif 17243 df-hom 17244 df-cco 17245 df-rest 17385 df-topn 17386 df-0g 17404 df-gsum 17405 df-topgen 17406 df-pt 17407 df-prds 17410 df-xrs 17465 df-qtop 17470 df-imas 17471 df-xps 17473 df-mre 17547 df-mrc 17548 df-acs 17550 df-mgm 18567 df-sgrp 18646 df-mnd 18662 df-submnd 18711 df-mulg 19000 df-cntz 19249 df-cmn 19712 df-psmet 21256 df-xmet 21257 df-met 21258 df-bl 21259 df-mopn 21260 df-fbas 21261 df-fg 21262 df-cnfld 21265 df-top 22781 df-topon 22798 df-topsp 22820 df-bases 22833 df-cld 22906 df-ntr 22907 df-cls 22908 df-nei 22985 df-lp 23023 df-perf 23024 df-cn 23114 df-cnp 23115 df-haus 23202 df-tx 23449 df-hmeo 23642 df-fil 23733 df-fm 23825 df-flim 23826 df-flf 23827 df-xms 24208 df-ms 24209 df-tms 24210 df-cncf 24771 df-limc 25767 df-dv 25768 df-log 26465 df-cht 27007

This theorem is referenced by: chtub 27123

W3C validator