gausslemma2dlem4 - Metamath Proof Explorer

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

Theorem gausslemma2dlem4 27584

Description: Lemma 4 for gausslemma2d 27589. (Contributed by AV, 16-Jun-2021.)

**Hypotheses**
Ref	Expression
gausslemma2d.p	⊢ (𝜑 → 𝑃 ∈ (ℙ ∖ {2}))
gausslemma2d.h	⊢ 𝐻 = ((𝑃 − 1) / 2)
gausslemma2d.r	⊢ 𝑅 = (𝑥 ∈ (1...𝐻) ↦ if((𝑥 · 2) < (𝑃 / 2), (𝑥 · 2), (𝑃 − (𝑥 · 2))))
gausslemma2d.m	⊢ 𝑀 = (⌊‘(𝑃 / 4))

**Assertion**
Ref	Expression
gausslemma2dlem4	⊢ (𝜑 → (!‘𝐻) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))

Distinct variable groups: 𝑥,𝐻 𝑥,𝑃 𝜑,𝑥 𝑘,𝐻 𝑅,𝑘 𝜑,𝑘 𝑥,𝑀,𝑘 𝑃,𝑘 Allowed substitution hint: 𝑅(𝑥)

**Proof of Theorem gausslemma2dlem4**
Step	Hyp	Ref	Expression
1		gausslemma2d.p	. . 3 ⊢ (𝜑 → 𝑃 ∈ (ℙ ∖ {2}))
2		gausslemma2d.h	. . 3 ⊢ 𝐻 = ((𝑃 − 1) / 2)
3		gausslemma2d.r	. . 3 ⊢ 𝑅 = (𝑥 ∈ (1...𝐻) ↦ if((𝑥 · 2) < (𝑃 / 2), (𝑥 · 2), (𝑃 − (𝑥 · 2))))
4	1, 2, 3	gausslemma2dlem1 27581	. 2 ⊢ (𝜑 → (!‘𝐻) = ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘))
5		eldif 3916	. . . 4 ⊢ (𝑃 ∈ (ℙ ∖ {2}) ↔ (𝑃 ∈ ℙ ∧ ¬ 𝑃 ∈ {2}))
6		prm23ge5 16897	. . . . . 6 ⊢ (𝑃 ∈ ℙ → (𝑃 = 2 ∨ 𝑃 = 3 ∨ 𝑃 ∈ (ℤ_≥‘5)))
7		eleq1 2853	. . . . . . . . 9 ⊢ (𝑃 = 2 → (𝑃 ∈ {2} ↔ 2 ∈ {2}))
8	7	notbid 321	. . . . . . . 8 ⊢ (𝑃 = 2 → (¬ 𝑃 ∈ {2} ↔ ¬ 2 ∈ {2}))
9		2ex 12333	. . . . . . . . . . . 12 ⊢ 2 ∈ V
10	9	snid 4630	. . . . . . . . . . 11 ⊢ 2 ∈ {2}
11	10	2a1i 12	. . . . . . . . . 10 ⊢ (𝑃 = 2 → (∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) ≠ (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) → 2 ∈ {2}))
12	11	necon1bd 2978	. . . . . . . . 9 ⊢ (𝑃 = 2 → (¬ 2 ∈ {2} → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘))))
13	12	a1dd 51	. . . . . . . 8 ⊢ (𝑃 = 2 → (¬ 2 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))))
14	8, 13	sylbid 243	. . . . . . 7 ⊢ (𝑃 = 2 → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))))
15		gausslemma2d.m	. . . . . . . . . 10 ⊢ 𝑀 = (⌊‘(𝑃 / 4))
16		3lt4 12432	. . . . . . . . . . . 12 ⊢ 3 < 4
17		breq1 5114	. . . . . . . . . . . 12 ⊢ (𝑃 = 3 → (𝑃 < 4 ↔ 3 < 4))
18	16, 17	mpbiri 261	. . . . . . . . . . 11 ⊢ (𝑃 = 3 → 𝑃 < 4)
19		3nn0 12537	. . . . . . . . . . . . 13 ⊢ 3 ∈ ℕ₀
20		eleq1 2853	. . . . . . . . . . . . 13 ⊢ (𝑃 = 3 → (𝑃 ∈ ℕ₀ ↔ 3 ∈ ℕ₀))
21	19, 20	mpbiri 261	. . . . . . . . . . . 12 ⊢ (𝑃 = 3 → 𝑃 ∈ ℕ₀)
22		4nn 12339	. . . . . . . . . . . 12 ⊢ 4 ∈ ℕ
23		divfl0 13875	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℕ₀ ∧ 4 ∈ ℕ) → (𝑃 < 4 ↔ (⌊‘(𝑃 / 4)) = 0))
24	21, 22, 23	sylancl 598	. . . . . . . . . . 11 ⊢ (𝑃 = 3 → (𝑃 < 4 ↔ (⌊‘(𝑃 / 4)) = 0))
25	18, 24	mpbid 235	. . . . . . . . . 10 ⊢ (𝑃 = 3 → (⌊‘(𝑃 / 4)) = 0)
26	15, 25	eqtrid 2812	. . . . . . . . 9 ⊢ (𝑃 = 3 → 𝑀 = 0)
27		oveq2 7427	. . . . . . . . . . . . . . . 16 ⊢ (𝑀 = 0 → (1...𝑀) = (1...0))
28	27	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝑀 = 0 ∧ 𝜑) → (1...𝑀) = (1...0))
29		fz10 13589	. . . . . . . . . . . . . . 15 ⊢ (1...0) = ∅
30	28, 29	eqtrdi 2816	. . . . . . . . . . . . . 14 ⊢ ((𝑀 = 0 ∧ 𝜑) → (1...𝑀) = ∅)
31	30	prodeq1d 15997	. . . . . . . . . . . . 13 ⊢ ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = ∏𝑘 ∈ ∅ (𝑅‘𝑘))
32		prod0 16020	. . . . . . . . . . . . 13 ⊢ ∏𝑘 ∈ ∅ (𝑅‘𝑘) = 1
33	31, 32	eqtrdi 2816	. . . . . . . . . . . 12 ⊢ ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = 1)
34		oveq1 7426	. . . . . . . . . . . . . . . 16 ⊢ (𝑀 = 0 → (𝑀 + 1) = (0 + 1))
35	34	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝑀 = 0 ∧ 𝜑) → (𝑀 + 1) = (0 + 1))
36		0p1e1 12376	. . . . . . . . . . . . . . 15 ⊢ (0 + 1) = 1
37	35, 36	eqtrdi 2816	. . . . . . . . . . . . . 14 ⊢ ((𝑀 = 0 ∧ 𝜑) → (𝑀 + 1) = 1)
38	37	oveq1d 7434	. . . . . . . . . . . . 13 ⊢ ((𝑀 = 0 ∧ 𝜑) → ((𝑀 + 1)...𝐻) = (1...𝐻))
39	38	prodeq1d 15997	. . . . . . . . . . . 12 ⊢ ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘))
40	33, 39	oveq12d 7437	. . . . . . . . . . 11 ⊢ ((𝑀 = 0 ∧ 𝜑) → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) = (1 · ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘)))
41		fzfid 14027	. . . . . . . . . . . . 13 ⊢ ((𝑀 = 0 ∧ 𝜑) → (1...𝐻) ∈ Fin)
42		oveq1 7426	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑘 → (𝑥 · 2) = (𝑘 · 2))
43	42	breq1d 5121	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑘 → ((𝑥 · 2) < (𝑃 / 2) ↔ (𝑘 · 2) < (𝑃 / 2)))
44	42	oveq2d 7435	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑘 → (𝑃 − (𝑥 · 2)) = (𝑃 − (𝑘 · 2)))
45	43, 42, 44	ifbieq12d 4518	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑘 → if((𝑥 · 2) < (𝑃 / 2), (𝑥 · 2), (𝑃 − (𝑥 · 2))) = if((𝑘 · 2) < (𝑃 / 2), (𝑘 · 2), (𝑃 − (𝑘 · 2))))
46		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → 𝑘 ∈ (1...𝐻))
47		elfzelz 13568	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℤ)
48	47	zcnd 12717	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℂ)
49		2cnd 12334	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (1...𝐻) → 2 ∈ ℂ)
50	48, 49	mulcld 11244	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ (1...𝐻) → (𝑘 · 2) ∈ ℂ)
51	50	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑘 · 2) ∈ ℂ)
52		eldifi 4085	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → 𝑃 ∈ ℙ)
53		prmz 16755	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
54	53	zcnd 12717	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℂ)
55	1, 52, 54	3syl 19	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ ℂ)
56	55	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → 𝑃 ∈ ℂ)
57	56, 51	subcld 11584	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑃 − (𝑘 · 2)) ∈ ℂ)
58	51, 57	ifcld 4536	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → if((𝑘 · 2) < (𝑃 / 2), (𝑘 · 2), (𝑃 − (𝑘 · 2))) ∈ ℂ)
59	3, 45, 46, 58	fvmptd3 7017	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑅‘𝑘) = if((𝑘 · 2) < (𝑃 / 2), (𝑘 · 2), (𝑃 − (𝑘 · 2))))
60	59, 58	eqeltrd 2865	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑅‘𝑘) ∈ ℂ)
61	60	adantll 727	. . . . . . . . . . . . 13 ⊢ (((𝑀 = 0 ∧ 𝜑) ∧ 𝑘 ∈ (1...𝐻)) → (𝑅‘𝑘) ∈ ℂ)
62	41, 61	fprodcl 16029	. . . . . . . . . . . 12 ⊢ ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) ∈ ℂ)
63	62	mullidd 11242	. . . . . . . . . . 11 ⊢ ((𝑀 = 0 ∧ 𝜑) → (1 · ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘)) = ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘))
64	40, 63	eqtr2d 2801	. . . . . . . . . 10 ⊢ ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))
65	64	ex 418	. . . . . . . . 9 ⊢ (𝑀 = 0 → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘))))
66	26, 65	syl 18	. . . . . . . 8 ⊢ (𝑃 = 3 → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘))))
67	66	a1d 26	. . . . . . 7 ⊢ (𝑃 = 3 → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))))
68	1, 15	gausslemma2dlem0d 27574	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
69	68	nn0red 12581	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ ℝ)
70	69	ltp1d 12160	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 < (𝑀 + 1))
71		fzdisj 13596	. . . . . . . . . . . 12 ⊢ (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
72	70, 71	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
73	72	adantl 487	. . . . . . . . . 10 ⊢ ((𝑃 ∈ (ℤ_≥‘5) ∧ 𝜑) → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
74		eluzelre 12889	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ (ℤ_≥‘5) → 𝑃 ∈ ℝ)
75		4re 12340	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 4 ∈ ℝ
76	75	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ (ℤ_≥‘5) → 4 ∈ ℝ)
77		4ne0 12367	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 4 ≠ 0
78	77	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ (ℤ_≥‘5) → 4 ≠ 0)
79	74, 76, 78	redivcld 12058	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑃 ∈ (ℤ_≥‘5) → (𝑃 / 4) ∈ ℝ)
80	79	flcld 13849	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑃 ∈ (ℤ_≥‘5) → (⌊‘(𝑃 / 4)) ∈ ℤ)
81		nnrp 13044	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (4 ∈ ℕ → 4 ∈ ℝ⁺)
82	22, 81	ax-mp 5	. . . . . . . . . . . . . . . . . . . 20 ⊢ 4 ∈ ℝ⁺
83		eluz2 12884	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑃 ∈ (ℤ_≥‘5) ↔ (5 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 5 ≤ 𝑃))
84		4lt5 12435	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 4 < 5
85		5re 12343	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 5 ∈ ℝ
86	85	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → 5 ∈ ℝ)
87		zre 12610	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑃 ∈ ℤ → 𝑃 ∈ ℝ)
88	87	adantl 487	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → 𝑃 ∈ ℝ)
89		ltleletr 11318	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((4 ∈ ℝ ∧ 5 ∈ ℝ ∧ 𝑃 ∈ ℝ) → ((4 < 5 ∧ 5 ≤ 𝑃) → 4 ≤ 𝑃))
90	75, 86, 88, 89	mp3an2i 1495	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → ((4 < 5 ∧ 5 ≤ 𝑃) → 4 ≤ 𝑃))
91	84, 90	mpani 709	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (5 ≤ 𝑃 → 4 ≤ 𝑃))
92	91	3impia 1135	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 5 ≤ 𝑃) → 4 ≤ 𝑃)
93	83, 92	sylbi 220	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ (ℤ_≥‘5) → 4 ≤ 𝑃)
94		divge1 13102	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((4 ∈ ℝ⁺ ∧ 𝑃 ∈ ℝ ∧ 4 ≤ 𝑃) → 1 ≤ (𝑃 / 4))
95	82, 74, 93, 94	mp3an2i 1495	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑃 ∈ (ℤ_≥‘5) → 1 ≤ (𝑃 / 4))
96		1zzd 12640	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ (ℤ_≥‘5) → 1 ∈ ℤ)
97		flge 13856	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑃 / 4) ∈ ℝ ∧ 1 ∈ ℤ) → (1 ≤ (𝑃 / 4) ↔ 1 ≤ (⌊‘(𝑃 / 4))))
98	79, 96, 97	syl2anc 596	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑃 ∈ (ℤ_≥‘5) → (1 ≤ (𝑃 / 4) ↔ 1 ≤ (⌊‘(𝑃 / 4))))
99	95, 98	mpbid 235	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑃 ∈ (ℤ_≥‘5) → 1 ≤ (⌊‘(𝑃 / 4)))
100		elnnz1 12635	. . . . . . . . . . . . . . . . . 18 ⊢ ((⌊‘(𝑃 / 4)) ∈ ℕ ↔ ((⌊‘(𝑃 / 4)) ∈ ℤ ∧ 1 ≤ (⌊‘(𝑃 / 4))))
101	80, 99, 100	sylanbrc 595	. . . . . . . . . . . . . . . . 17 ⊢ (𝑃 ∈ (ℤ_≥‘5) → (⌊‘(𝑃 / 4)) ∈ ℕ)
102	101	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ_≥‘5)) → (⌊‘(𝑃 / 4)) ∈ ℕ)
103		oddprm 16892	. . . . . . . . . . . . . . . . 17 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → ((𝑃 − 1) / 2) ∈ ℕ)
104	103	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ_≥‘5)) → ((𝑃 − 1) / 2) ∈ ℕ)
105		prmuz2 16776	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘2))
106	52, 105	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → 𝑃 ∈ (ℤ_≥‘2))
107	106	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ_≥‘5)) → 𝑃 ∈ (ℤ_≥‘2))
108		fldiv4lem1div2uz2 13887	. . . . . . . . . . . . . . . . 17 ⊢ (𝑃 ∈ (ℤ_≥‘2) → (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))
109	107, 108	syl 18	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ_≥‘5)) → (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))
110	102, 104, 109	3jca 1146	. . . . . . . . . . . . . . 15 ⊢ ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ_≥‘5)) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
111	110	ex 418	. . . . . . . . . . . . . 14 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → (𝑃 ∈ (ℤ_≥‘5) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))))
112	1, 111	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑃 ∈ (ℤ_≥‘5) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))))
113	112	impcom 413	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ (ℤ_≥‘5) ∧ 𝜑) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
114	2	oveq2i 7430	. . . . . . . . . . . . . 14 ⊢ (1...𝐻) = (1...((𝑃 − 1) / 2))
115	15, 114	eleq12i 2858	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ (1...𝐻) ↔ (⌊‘(𝑃 / 4)) ∈ (1...((𝑃 − 1) / 2)))
116		elfz1b 13638	. . . . . . . . . . . . 13 ⊢ ((⌊‘(𝑃 / 4)) ∈ (1...((𝑃 − 1) / 2)) ↔ ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
117	115, 116	bitri 278	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ (1...𝐻) ↔ ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
118	113, 117	sylibr 237	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ (ℤ_≥‘5) ∧ 𝜑) → 𝑀 ∈ (1...𝐻))
119		fzsplit 13595	. . . . . . . . . . 11 ⊢ (𝑀 ∈ (1...𝐻) → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
120	118, 119	syl 18	. . . . . . . . . 10 ⊢ ((𝑃 ∈ (ℤ_≥‘5) ∧ 𝜑) → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
121		fzfid 14027	. . . . . . . . . 10 ⊢ ((𝑃 ∈ (ℤ_≥‘5) ∧ 𝜑) → (1...𝐻) ∈ Fin)
122	60	adantll 727	. . . . . . . . . 10 ⊢ (((𝑃 ∈ (ℤ_≥‘5) ∧ 𝜑) ∧ 𝑘 ∈ (1...𝐻)) → (𝑅‘𝑘) ∈ ℂ)
123	73, 120, 121, 122	fprodsplit 16043	. . . . . . . . 9 ⊢ ((𝑃 ∈ (ℤ_≥‘5) ∧ 𝜑) → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))
124	123	ex 418	. . . . . . . 8 ⊢ (𝑃 ∈ (ℤ_≥‘5) → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘))))
125	124	a1d 26	. . . . . . 7 ⊢ (𝑃 ∈ (ℤ_≥‘5) → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))))
126	14, 67, 125	3jaoi 1454	. . . . . 6 ⊢ ((𝑃 = 2 ∨ 𝑃 = 3 ∨ 𝑃 ∈ (ℤ_≥‘5)) → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))))
127	6, 126	syl 18	. . . . 5 ⊢ (𝑃 ∈ ℙ → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))))
128	127	imp 412	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ ¬ 𝑃 ∈ {2}) → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘))))
129	5, 128	sylbi 220	. . 3 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘))))
130	1, 129	mpcom 39	. 2 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅‘𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))
131	4, 130	eqtrd 2800	1 ⊢ (𝜑 → (!‘𝐻) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 ∨ w3o 1102 ∧ w3a 1103 = wceq 1570 ∈ wcel 2146 ≠ wne 2960 ∖ cdif 3903 ∪ cun 3904 ∩ cin 3905 ∅c0 4286 ifcif 4489 {csn 4591 class class class wbr 5111 ↦ cmpt 5194 ‘cfv 6540 (class class class)co 7419 ℂcc 11113 ℝcr 11114 0cc0 11115 1c1 11116 + caddc 11118 · cmul 11120 < clt 11258 ≤ cle 11259 − cmin 11456 / cdiv 11886 ℕcn 12248 2c2 12310 3c3 12311 4c4 12312 5c5 12313 ℕ₀cn0 12519 ℤcz 12606 ℤ_≥cuz 12878 ℝ⁺crp 13032 ...cfz 13551 ⌊cfl 13841 !cfa 14327 ∏cprod 15980 ℙcprime 16751

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

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-nel 3067 df-ral 3082 df-rex 3092 df-rmo 3371 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-tp 4596 df-op 4598 df-uni 4875 df-int 4915 df-iun 4960 df-br 5112 df-opab 5176 df-mpt 5195 df-tr 5221 df-id 5558 df-eprel 5563 df-po 5571 df-so 5572 df-fr 5616 df-se 5617 df-we 5618 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-pred 6306 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7376 df-ov 7422 df-oprab 7423 df-mpo 7424 df-om 7869 df-1st 7992 df-2nd 7993 df-frecs 8284 df-wrecs 8315 df-recs 8364 df-rdg 8403 df-1o 8459 df-2o 8460 df-er 8700 df-en 8950 df-dom 8951 df-sdom 8952 df-fin 8953 df-sup 9409 df-inf 9410 df-oi 9479 df-card 9941 df-pnf 11260 df-mnf 11261 df-xr 11262 df-ltxr 11263 df-le 11264 df-sub 11458 df-neg 11459 df-div 11887 df-nn 12249 df-2 12318 df-3 12319 df-4 12320 df-5 12321 df-n0 12520 df-z 12607 df-uz 12879 df-rp 13033 df-ioo 13392 df-fz 13552 df-fzo 13700 df-fl 13843 df-seq 14056 df-exp 14116 df-fac 14328 df-hash 14385 df-cj 15174 df-re 15175 df-im 15176 df-sqrt 15310 df-abs 15311 df-clim 15563 df-prod 15981 df-dvds 16333 df-prm 16752

This theorem is used by: gausslemma2dlem6 27587

W3C validator