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

Theorem gausslemma2dlem4 27221
Description: Lemma 4 for gausslemma2d 27226. (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
StepHypRef Expression
1 gausslemma2d.p . . 3 (𝜑𝑃 ∈ (ℙ ∖ {2}))
2 gausslemma2d.h . . 3 𝐻 = ((𝑃 − 1) / 2)
3 gausslemma2d.r . . 3 𝑅 = (𝑥 ∈ (1...𝐻) ↦ if((𝑥 · 2) < (𝑃 / 2), (𝑥 · 2), (𝑃 − (𝑥 · 2))))
41, 2, 3gausslemma2dlem1 27218 . 2 (𝜑 → (!‘𝐻) = ∏𝑘 ∈ (1...𝐻)(𝑅𝑘))
5 eldif 3951 . . . 4 (𝑃 ∈ (ℙ ∖ {2}) ↔ (𝑃 ∈ ℙ ∧ ¬ 𝑃 ∈ {2}))
6 prm23ge5 16749 . . . . . 6 (𝑃 ∈ ℙ → (𝑃 = 2 ∨ 𝑃 = 3 ∨ 𝑃 ∈ (ℤ‘5)))
7 eleq1 2813 . . . . . . . . 9 (𝑃 = 2 → (𝑃 ∈ {2} ↔ 2 ∈ {2}))
87notbid 318 . . . . . . . 8 (𝑃 = 2 → (¬ 𝑃 ∈ {2} ↔ ¬ 2 ∈ {2}))
9 2ex 12287 . . . . . . . . . . . 12 2 ∈ V
109snid 4657 . . . . . . . . . . 11 2 ∈ {2}
11102a1i 12 . . . . . . . . . 10 (𝑃 = 2 → (∏𝑘 ∈ (1...𝐻)(𝑅𝑘) ≠ (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)) → 2 ∈ {2}))
1211necon1bd 2950 . . . . . . . . 9 (𝑃 = 2 → (¬ 2 ∈ {2} → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘))))
1312a1dd 50 . . . . . . . 8 (𝑃 = 2 → (¬ 2 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))))
148, 13sylbid 239 . . . . . . 7 (𝑃 = 2 → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))))
15 gausslemma2d.m . . . . . . . . . 10 𝑀 = (⌊‘(𝑃 / 4))
16 3lt4 12384 . . . . . . . . . . . 12 3 < 4
17 breq1 5142 . . . . . . . . . . . 12 (𝑃 = 3 → (𝑃 < 4 ↔ 3 < 4))
1816, 17mpbiri 258 . . . . . . . . . . 11 (𝑃 = 3 → 𝑃 < 4)
19 3nn0 12488 . . . . . . . . . . . . 13 3 ∈ ℕ0
20 eleq1 2813 . . . . . . . . . . . . 13 (𝑃 = 3 → (𝑃 ∈ ℕ0 ↔ 3 ∈ ℕ0))
2119, 20mpbiri 258 . . . . . . . . . . . 12 (𝑃 = 3 → 𝑃 ∈ ℕ0)
22 4nn 12293 . . . . . . . . . . . 12 4 ∈ ℕ
23 divfl0 13787 . . . . . . . . . . . 12 ((𝑃 ∈ ℕ0 ∧ 4 ∈ ℕ) → (𝑃 < 4 ↔ (⌊‘(𝑃 / 4)) = 0))
2421, 22, 23sylancl 585 . . . . . . . . . . 11 (𝑃 = 3 → (𝑃 < 4 ↔ (⌊‘(𝑃 / 4)) = 0))
2518, 24mpbid 231 . . . . . . . . . 10 (𝑃 = 3 → (⌊‘(𝑃 / 4)) = 0)
2615, 25eqtrid 2776 . . . . . . . . 9 (𝑃 = 3 → 𝑀 = 0)
27 oveq2 7410 . . . . . . . . . . . . . . . 16 (𝑀 = 0 → (1...𝑀) = (1...0))
2827adantr 480 . . . . . . . . . . . . . . 15 ((𝑀 = 0 ∧ 𝜑) → (1...𝑀) = (1...0))
29 fz10 13520 . . . . . . . . . . . . . . 15 (1...0) = ∅
3028, 29eqtrdi 2780 . . . . . . . . . . . . . 14 ((𝑀 = 0 ∧ 𝜑) → (1...𝑀) = ∅)
3130prodeq1d 15863 . . . . . . . . . . . . 13 ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝑀)(𝑅𝑘) = ∏𝑘 ∈ ∅ (𝑅𝑘))
32 prod0 15885 . . . . . . . . . . . . 13 𝑘 ∈ ∅ (𝑅𝑘) = 1
3331, 32eqtrdi 2780 . . . . . . . . . . . 12 ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝑀)(𝑅𝑘) = 1)
34 oveq1 7409 . . . . . . . . . . . . . . . 16 (𝑀 = 0 → (𝑀 + 1) = (0 + 1))
3534adantr 480 . . . . . . . . . . . . . . 15 ((𝑀 = 0 ∧ 𝜑) → (𝑀 + 1) = (0 + 1))
36 0p1e1 12332 . . . . . . . . . . . . . . 15 (0 + 1) = 1
3735, 36eqtrdi 2780 . . . . . . . . . . . . . 14 ((𝑀 = 0 ∧ 𝜑) → (𝑀 + 1) = 1)
3837oveq1d 7417 . . . . . . . . . . . . 13 ((𝑀 = 0 ∧ 𝜑) → ((𝑀 + 1)...𝐻) = (1...𝐻))
3938prodeq1d 15863 . . . . . . . . . . . 12 ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘) = ∏𝑘 ∈ (1...𝐻)(𝑅𝑘))
4033, 39oveq12d 7420 . . . . . . . . . . 11 ((𝑀 = 0 ∧ 𝜑) → (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)) = (1 · ∏𝑘 ∈ (1...𝐻)(𝑅𝑘)))
41 fzfid 13936 . . . . . . . . . . . . 13 ((𝑀 = 0 ∧ 𝜑) → (1...𝐻) ∈ Fin)
42 oveq1 7409 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑘 → (𝑥 · 2) = (𝑘 · 2))
4342breq1d 5149 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑘 → ((𝑥 · 2) < (𝑃 / 2) ↔ (𝑘 · 2) < (𝑃 / 2)))
4442oveq2d 7418 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑘 → (𝑃 − (𝑥 · 2)) = (𝑃 − (𝑘 · 2)))
4543, 42, 44ifbieq12d 4549 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑘 → if((𝑥 · 2) < (𝑃 / 2), (𝑥 · 2), (𝑃 − (𝑥 · 2))) = if((𝑘 · 2) < (𝑃 / 2), (𝑘 · 2), (𝑃 − (𝑘 · 2))))
46 simpr 484 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ (1...𝐻)) → 𝑘 ∈ (1...𝐻))
47 elfzelz 13499 . . . . . . . . . . . . . . . . . . . 20 (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℤ)
4847zcnd 12665 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℂ)
49 2cnd 12288 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ (1...𝐻) → 2 ∈ ℂ)
5048, 49mulcld 11232 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ (1...𝐻) → (𝑘 · 2) ∈ ℂ)
5150adantl 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...𝐻)) → (𝑘 · 2) ∈ ℂ)
52 eldifi 4119 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ (ℙ ∖ {2}) → 𝑃 ∈ ℙ)
53 prmz 16611 . . . . . . . . . . . . . . . . . . . . 21 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
5453zcnd 12665 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ ℙ → 𝑃 ∈ ℂ)
551, 52, 543syl 18 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑃 ∈ ℂ)
5655adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑘 ∈ (1...𝐻)) → 𝑃 ∈ ℂ)
5756, 51subcld 11569 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...𝐻)) → (𝑃 − (𝑘 · 2)) ∈ ℂ)
5851, 57ifcld 4567 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ (1...𝐻)) → if((𝑘 · 2) < (𝑃 / 2), (𝑘 · 2), (𝑃 − (𝑘 · 2))) ∈ ℂ)
593, 45, 46, 58fvmptd3 7012 . . . . . . . . . . . . . . 15 ((𝜑𝑘 ∈ (1...𝐻)) → (𝑅𝑘) = if((𝑘 · 2) < (𝑃 / 2), (𝑘 · 2), (𝑃 − (𝑘 · 2))))
6059, 58eqeltrd 2825 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ (1...𝐻)) → (𝑅𝑘) ∈ ℂ)
6160adantll 711 . . . . . . . . . . . . 13 (((𝑀 = 0 ∧ 𝜑) ∧ 𝑘 ∈ (1...𝐻)) → (𝑅𝑘) ∈ ℂ)
6241, 61fprodcl 15894 . . . . . . . . . . . 12 ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) ∈ ℂ)
6362mullidd 11230 . . . . . . . . . . 11 ((𝑀 = 0 ∧ 𝜑) → (1 · ∏𝑘 ∈ (1...𝐻)(𝑅𝑘)) = ∏𝑘 ∈ (1...𝐻)(𝑅𝑘))
6440, 63eqtr2d 2765 . . . . . . . . . 10 ((𝑀 = 0 ∧ 𝜑) → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))
6564ex 412 . . . . . . . . 9 (𝑀 = 0 → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘))))
6626, 65syl 17 . . . . . . . 8 (𝑃 = 3 → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘))))
6766a1d 25 . . . . . . 7 (𝑃 = 3 → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))))
681, 15gausslemma2dlem0d 27211 . . . . . . . . . . . . . 14 (𝜑𝑀 ∈ ℕ0)
6968nn0red 12531 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ ℝ)
7069ltp1d 12142 . . . . . . . . . . . 12 (𝜑𝑀 < (𝑀 + 1))
71 fzdisj 13526 . . . . . . . . . . . 12 (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
7270, 71syl 17 . . . . . . . . . . 11 (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
7372adantl 481 . . . . . . . . . 10 ((𝑃 ∈ (ℤ‘5) ∧ 𝜑) → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
74 eluzelre 12831 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ (ℤ‘5) → 𝑃 ∈ ℝ)
75 4re 12294 . . . . . . . . . . . . . . . . . . . . 21 4 ∈ ℝ
7675a1i 11 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ (ℤ‘5) → 4 ∈ ℝ)
77 4ne0 12318 . . . . . . . . . . . . . . . . . . . . 21 4 ≠ 0
7877a1i 11 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ (ℤ‘5) → 4 ≠ 0)
7974, 76, 78redivcld 12040 . . . . . . . . . . . . . . . . . . 19 (𝑃 ∈ (ℤ‘5) → (𝑃 / 4) ∈ ℝ)
8079flcld 13761 . . . . . . . . . . . . . . . . . 18 (𝑃 ∈ (ℤ‘5) → (⌊‘(𝑃 / 4)) ∈ ℤ)
81 nnrp 12983 . . . . . . . . . . . . . . . . . . . . 21 (4 ∈ ℕ → 4 ∈ ℝ+)
8222, 81ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 4 ∈ ℝ+
83 eluz2 12826 . . . . . . . . . . . . . . . . . . . . 21 (𝑃 ∈ (ℤ‘5) ↔ (5 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 5 ≤ 𝑃))
84 4lt5 12387 . . . . . . . . . . . . . . . . . . . . . . 23 4 < 5
85 5re 12297 . . . . . . . . . . . . . . . . . . . . . . . . 25 5 ∈ ℝ
8685a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → 5 ∈ ℝ)
87 zre 12560 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑃 ∈ ℤ → 𝑃 ∈ ℝ)
8887adantl 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → 𝑃 ∈ ℝ)
89 ltleletr 11305 . . . . . . . . . . . . . . . . . . . . . . . 24 ((4 ∈ ℝ ∧ 5 ∈ ℝ ∧ 𝑃 ∈ ℝ) → ((4 < 5 ∧ 5 ≤ 𝑃) → 4 ≤ 𝑃))
9075, 86, 88, 89mp3an2i 1462 . . . . . . . . . . . . . . . . . . . . . . 23 ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → ((4 < 5 ∧ 5 ≤ 𝑃) → 4 ≤ 𝑃))
9184, 90mpani 693 . . . . . . . . . . . . . . . . . . . . . 22 ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (5 ≤ 𝑃 → 4 ≤ 𝑃))
92913impia 1114 . . . . . . . . . . . . . . . . . . . . 21 ((5 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 5 ≤ 𝑃) → 4 ≤ 𝑃)
9383, 92sylbi 216 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ (ℤ‘5) → 4 ≤ 𝑃)
94 divge1 13040 . . . . . . . . . . . . . . . . . . . 20 ((4 ∈ ℝ+𝑃 ∈ ℝ ∧ 4 ≤ 𝑃) → 1 ≤ (𝑃 / 4))
9582, 74, 93, 94mp3an2i 1462 . . . . . . . . . . . . . . . . . . 19 (𝑃 ∈ (ℤ‘5) → 1 ≤ (𝑃 / 4))
96 1zzd 12591 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ (ℤ‘5) → 1 ∈ ℤ)
97 flge 13768 . . . . . . . . . . . . . . . . . . . 20 (((𝑃 / 4) ∈ ℝ ∧ 1 ∈ ℤ) → (1 ≤ (𝑃 / 4) ↔ 1 ≤ (⌊‘(𝑃 / 4))))
9879, 96, 97syl2anc 583 . . . . . . . . . . . . . . . . . . 19 (𝑃 ∈ (ℤ‘5) → (1 ≤ (𝑃 / 4) ↔ 1 ≤ (⌊‘(𝑃 / 4))))
9995, 98mpbid 231 . . . . . . . . . . . . . . . . . 18 (𝑃 ∈ (ℤ‘5) → 1 ≤ (⌊‘(𝑃 / 4)))
100 elnnz1 12586 . . . . . . . . . . . . . . . . . 18 ((⌊‘(𝑃 / 4)) ∈ ℕ ↔ ((⌊‘(𝑃 / 4)) ∈ ℤ ∧ 1 ≤ (⌊‘(𝑃 / 4))))
10180, 99, 100sylanbrc 582 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ (ℤ‘5) → (⌊‘(𝑃 / 4)) ∈ ℕ)
102101adantl 481 . . . . . . . . . . . . . . . 16 ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ‘5)) → (⌊‘(𝑃 / 4)) ∈ ℕ)
103 oddprm 16744 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ (ℙ ∖ {2}) → ((𝑃 − 1) / 2) ∈ ℕ)
104103adantr 480 . . . . . . . . . . . . . . . 16 ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ‘5)) → ((𝑃 − 1) / 2) ∈ ℕ)
105 prmuz2 16632 . . . . . . . . . . . . . . . . . . 19 (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ‘2))
10652, 105syl 17 . . . . . . . . . . . . . . . . . 18 (𝑃 ∈ (ℙ ∖ {2}) → 𝑃 ∈ (ℤ‘2))
107106adantr 480 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ‘5)) → 𝑃 ∈ (ℤ‘2))
108 fldiv4lem1div2uz2 13799 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ (ℤ‘2) → (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))
109107, 108syl 17 . . . . . . . . . . . . . . . 16 ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ‘5)) → (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))
110102, 104, 1093jca 1125 . . . . . . . . . . . . . . 15 ((𝑃 ∈ (ℙ ∖ {2}) ∧ 𝑃 ∈ (ℤ‘5)) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
111110ex 412 . . . . . . . . . . . . . 14 (𝑃 ∈ (ℙ ∖ {2}) → (𝑃 ∈ (ℤ‘5) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))))
1121, 111syl 17 . . . . . . . . . . . . 13 (𝜑 → (𝑃 ∈ (ℤ‘5) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2))))
113112impcom 407 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘5) ∧ 𝜑) → ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
1142oveq2i 7413 . . . . . . . . . . . . . 14 (1...𝐻) = (1...((𝑃 − 1) / 2))
11515, 114eleq12i 2818 . . . . . . . . . . . . 13 (𝑀 ∈ (1...𝐻) ↔ (⌊‘(𝑃 / 4)) ∈ (1...((𝑃 − 1) / 2)))
116 elfz1b 13568 . . . . . . . . . . . . 13 ((⌊‘(𝑃 / 4)) ∈ (1...((𝑃 − 1) / 2)) ↔ ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
117115, 116bitri 275 . . . . . . . . . . . 12 (𝑀 ∈ (1...𝐻) ↔ ((⌊‘(𝑃 / 4)) ∈ ℕ ∧ ((𝑃 − 1) / 2) ∈ ℕ ∧ (⌊‘(𝑃 / 4)) ≤ ((𝑃 − 1) / 2)))
118113, 117sylibr 233 . . . . . . . . . . 11 ((𝑃 ∈ (ℤ‘5) ∧ 𝜑) → 𝑀 ∈ (1...𝐻))
119 fzsplit 13525 . . . . . . . . . . 11 (𝑀 ∈ (1...𝐻) → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
120118, 119syl 17 . . . . . . . . . 10 ((𝑃 ∈ (ℤ‘5) ∧ 𝜑) → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
121 fzfid 13936 . . . . . . . . . 10 ((𝑃 ∈ (ℤ‘5) ∧ 𝜑) → (1...𝐻) ∈ Fin)
12260adantll 711 . . . . . . . . . 10 (((𝑃 ∈ (ℤ‘5) ∧ 𝜑) ∧ 𝑘 ∈ (1...𝐻)) → (𝑅𝑘) ∈ ℂ)
12373, 120, 121, 122fprodsplit 15908 . . . . . . . . 9 ((𝑃 ∈ (ℤ‘5) ∧ 𝜑) → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))
124123ex 412 . . . . . . . 8 (𝑃 ∈ (ℤ‘5) → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘))))
125124a1d 25 . . . . . . 7 (𝑃 ∈ (ℤ‘5) → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))))
12614, 67, 1253jaoi 1424 . . . . . 6 ((𝑃 = 2 ∨ 𝑃 = 3 ∨ 𝑃 ∈ (ℤ‘5)) → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))))
1276, 126syl 17 . . . . 5 (𝑃 ∈ ℙ → (¬ 𝑃 ∈ {2} → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))))
128127imp 406 . . . 4 ((𝑃 ∈ ℙ ∧ ¬ 𝑃 ∈ {2}) → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘))))
1295, 128sylbi 216 . . 3 (𝑃 ∈ (ℙ ∖ {2}) → (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘))))
1301, 129mpcom 38 . 2 (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑅𝑘) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))
1314, 130eqtrd 2764 1 (𝜑 → (!‘𝐻) = (∏𝑘 ∈ (1...𝑀)(𝑅𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅𝑘)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 395  w3o 1083  w3a 1084   = wceq 1533  wcel 2098  wne 2932  cdif 3938  cun 3939  cin 3940  c0 4315  ifcif 4521  {csn 4621   class class class wbr 5139  cmpt 5222  cfv 6534  (class class class)co 7402  cc 11105  cr 11106  0cc0 11107  1c1 11108   + caddc 11110   · cmul 11112   < clt 11246  cle 11247  cmin 11442   / cdiv 11869  cn 12210  2c2 12265  3c3 12266  4c4 12267  5c5 12268  0cn0 12470  cz 12556  cuz 12820  +crp 12972  ...cfz 13482  cfl 13753  !cfa 14231  cprod 15847  cprime 16607
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5276  ax-sep 5290  ax-nul 5297  ax-pow 5354  ax-pr 5418  ax-un 7719  ax-inf2 9633  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3960  df-nul 4316  df-if 4522  df-pw 4597  df-sn 4622  df-pr 4624  df-tp 4626  df-op 4628  df-uni 4901  df-int 4942  df-iun 4990  df-br 5140  df-opab 5202  df-mpt 5223  df-tr 5257  df-id 5565  df-eprel 5571  df-po 5579  df-so 5580  df-fr 5622  df-se 5623  df-we 5624  df-xp 5673  df-rel 5674  df-cnv 5675  df-co 5676  df-dm 5677  df-rn 5678  df-res 5679  df-ima 5680  df-pred 6291  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6486  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-isom 6543  df-riota 7358  df-ov 7405  df-oprab 7406  df-mpo 7407  df-om 7850  df-1st 7969  df-2nd 7970  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-er 8700  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-sup 9434  df-inf 9435  df-oi 9502  df-card 9931  df-pnf 11248  df-mnf 11249  df-xr 11250  df-ltxr 11251  df-le 11252  df-sub 11444  df-neg 11445  df-div 11870  df-nn 12211  df-2 12273  df-3 12274  df-4 12275  df-5 12276  df-n0 12471  df-z 12557  df-uz 12821  df-rp 12973  df-ioo 13326  df-fz 13483  df-fzo 13626  df-fl 13755  df-seq 13965  df-exp 14026  df-fac 14232  df-hash 14289  df-cj 15044  df-re 15045  df-im 15046  df-sqrt 15180  df-abs 15181  df-clim 15430  df-prod 15848  df-dvds 16197  df-prm 16608
This theorem is referenced by:  gausslemma2dlem6  27224
  Copyright terms: Public domain W3C validator