Theorem gausslemma2dlem6 27259

Description: Lemma 6 for gausslemma2d 27261. (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))
gausslemma2d.n	⊢ 𝑁 = (𝐻 − 𝑀)

Assertion

Ref	Expression
gausslemma2dlem6	⊢ (𝜑 → ((!‘𝐻) mod 𝑃) = ((((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) mod 𝑃))

Distinct variable groups:   𝑥,𝐻   𝑥,𝑃   𝜑,𝑥   𝑥,𝑀

Allowed substitution hints:   𝑅(𝑥)   𝑁(𝑥)

Proof of Theorem gausslemma2dlem6

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		gausslemma2d.p	. . . 4 ⊢ (𝜑 → 𝑃 ∈ (ℙ ∖ {2}))
2		gausslemma2d.h	. . . 4 ⊢ 𝐻 = ((𝑃 − 1) / 2)
3		gausslemma2d.r	. . . 4 ⊢ 𝑅 = (𝑥 ∈ (1...𝐻) ↦ if((𝑥 · 2) < (𝑃 / 2), (𝑥 · 2), (𝑃 − (𝑥 · 2))))
4		gausslemma2d.m	. . . 4 ⊢ 𝑀 = (⌊‘(𝑃 / 4))
5	1, 2, 3, 4	gausslemma2dlem4 27256	. . 3 ⊢ (𝜑 → (!‘𝐻) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))
6	5	oveq1d 7384	. 2 ⊢ (𝜑 → ((!‘𝐻) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃))
7		fzfid 13914	. . . 4 ⊢ (𝜑 → (1...𝑀) ∈ Fin)
8	1, 2, 3, 4	gausslemma2dlem2 27254	. . . . . 6 ⊢ (𝜑 → ∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2))
9	8	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → ∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2))
10		rspa 3224	. . . . . . . 8 ⊢ ((∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) ∧ 𝑘 ∈ (1...𝑀)) → (𝑅‘𝑘) = (𝑘 · 2))
11	10	expcom 413	. . . . . . 7 ⊢ (𝑘 ∈ (1...𝑀) → (∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) = (𝑘 · 2)))
12	11	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) = (𝑘 · 2)))
13		elfzelz 13461	. . . . . . . . 9 ⊢ (𝑘 ∈ (1...𝑀) → 𝑘 ∈ ℤ)
14		2z 12541	. . . . . . . . . 10 ⊢ 2 ∈ ℤ
15	14	a1i 11	. . . . . . . . 9 ⊢ (𝑘 ∈ (1...𝑀) → 2 ∈ ℤ)
16	13, 15	zmulcld 12620	. . . . . . . 8 ⊢ (𝑘 ∈ (1...𝑀) → (𝑘 · 2) ∈ ℤ)
17	16	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑘 · 2) ∈ ℤ)
18		eleq1 2816	. . . . . . 7 ⊢ ((𝑅‘𝑘) = (𝑘 · 2) → ((𝑅‘𝑘) ∈ ℤ ↔ (𝑘 · 2) ∈ ℤ))
19	17, 18	syl5ibrcom 247	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → ((𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) ∈ ℤ))
20	12, 19	syld 47	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) ∈ ℤ))
21	9, 20	mpd 15	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑅‘𝑘) ∈ ℤ)
22	7, 21	fprodzcl 15896	. . 3 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ)
23		fzfid 13914	. . . . 5 ⊢ (𝜑 → ((𝑀 + 1)...𝐻) ∈ Fin)
24	1, 2, 3, 4	gausslemma2dlem3 27255	. . . . . . 7 ⊢ (𝜑 → ∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)))
25	24	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → ∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)))
26		rspa 3224	. . . . . . . . 9 ⊢ ((∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑅‘𝑘) = (𝑃 − (𝑘 · 2)))
27	26	expcom 413	. . . . . . . 8 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → (∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) = (𝑃 − (𝑘 · 2))))
28	27	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) = (𝑃 − (𝑘 · 2))))
29	1	gausslemma2dlem0a 27243	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℕ)
30	29	nnzd 12532	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
31		elfzelz 13461	. . . . . . . . . 10 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → 𝑘 ∈ ℤ)
32	14	a1i 11	. . . . . . . . . 10 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → 2 ∈ ℤ)
33	31, 32	zmulcld 12620	. . . . . . . . 9 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → (𝑘 · 2) ∈ ℤ)
34		zsubcl 12551	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℤ ∧ (𝑘 · 2) ∈ ℤ) → (𝑃 − (𝑘 · 2)) ∈ ℤ)
35	30, 33, 34	syl2an 596	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑃 − (𝑘 · 2)) ∈ ℤ)
36		eleq1 2816	. . . . . . . 8 ⊢ ((𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → ((𝑅‘𝑘) ∈ ℤ ↔ (𝑃 − (𝑘 · 2)) ∈ ℤ))
37	35, 36	syl5ibrcom 247	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → ((𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) ∈ ℤ))
38	28, 37	syld 47	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) ∈ ℤ))
39	25, 38	mpd 15	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑅‘𝑘) ∈ ℤ)
40	23, 39	fprodzcl 15896	. . . 4 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℤ)
41	40	zred 12614	. . 3 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℝ)
42		nnoddn2prm 16758	. . . 4 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → (𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃))
43		nnrp 12939	. . . . 5 ⊢ (𝑃 ∈ ℕ → 𝑃 ∈ ℝ+)
44	43	adantr 480	. . . 4 ⊢ ((𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → 𝑃 ∈ ℝ+)
45	1, 42, 44	3syl 18	. . 3 ⊢ (𝜑 → 𝑃 ∈ ℝ+)
46		modmulmodr 13878	. . . 4 ⊢ ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ ∧ ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃))
47	46	eqcomd 2735	. . 3 ⊢ ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ ∧ ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃))
48	22, 41, 45, 47	syl3anc 1373	. 2 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃))
49		gausslemma2d.n	. . . . . 6 ⊢ 𝑁 = (𝐻 − 𝑀)
50	1, 2, 3, 4, 49	gausslemma2dlem5 27258	. . . . 5 ⊢ (𝜑 → (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃) = (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃))
51	50	oveq2d 7385	. . . 4 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)))
52	51	oveq1d 7384	. . 3 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)) mod 𝑃))
53		neg1rr 12148	. . . . . . 7 ⊢ -1 ∈ ℝ
54	53	a1i 11	. . . . . 6 ⊢ (𝜑 → -1 ∈ ℝ)
55	1, 4, 2, 49	gausslemma2dlem0h 27250	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
56	54, 55	reexpcld 14104	. . . . 5 ⊢ (𝜑 → (-1↑𝑁) ∈ ℝ)
57	31	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → 𝑘 ∈ ℤ)
58	14	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → 2 ∈ ℤ)
59	57, 58	zmulcld 12620	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑘 · 2) ∈ ℤ)
60	23, 59	fprodzcl 15896	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2) ∈ ℤ)
61	60	zred 12614	. . . . 5 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2) ∈ ℝ)
62	56, 61	remulcld 11180	. . . 4 ⊢ (𝜑 → ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) ∈ ℝ)
63		modmulmodr 13878	. . . 4 ⊢ ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ ∧ ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) mod 𝑃))
64	22, 62, 45, 63	syl3anc 1373	. . 3 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) mod 𝑃))
65	8	prodeq2d 15863	. . . . . . . 8 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = ∏𝑘 ∈ (1...𝑀)(𝑘 · 2))
66	65	oveq1d 7384	. . . . . . 7 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) = (∏𝑘 ∈ (1...𝑀)(𝑘 · 2) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)))
67		fzfid 13914	. . . . . . . . 9 ⊢ (𝜑 → (1...𝐻) ∈ Fin)
68		elfzelz 13461	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℤ)
69	68	zcnd 12615	. . . . . . . . . 10 ⊢ (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℂ)
70	69	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → 𝑘 ∈ ℂ)
71		2cn 12237	. . . . . . . . . 10 ⊢ 2 ∈ ℂ
72	71	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → 2 ∈ ℂ)
73	67, 70, 72	fprodmul 15902	. . . . . . . 8 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑘 · 2) = (∏𝑘 ∈ (1...𝐻)𝑘 · ∏𝑘 ∈ (1...𝐻)2))
74	1, 4	gausslemma2dlem0d 27246	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
75	74	nn0red 12480	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℝ)
76	75	ltp1d 12089	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 < (𝑀 + 1))
77		fzdisj 13488	. . . . . . . . . 10 ⊢ (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
78	76, 77	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
79		1zzd 12540	. . . . . . . . . . 11 ⊢ (𝜑 → 1 ∈ ℤ)
80		nn0pzuz 12840	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ0 ∧ 1 ∈ ℤ) → (𝑀 + 1) ∈ (ℤ≥‘1))
81	74, 79, 80	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 + 1) ∈ (ℤ≥‘1))
82	74	nn0zd 12531	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℤ)
83	1, 2	gausslemma2dlem0b 27244	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻 ∈ ℕ)
84	83	nnzd 12532	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐻 ∈ ℤ)
85	1, 4, 2	gausslemma2dlem0g 27249	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ≤ 𝐻)
86		eluz2 12775	. . . . . . . . . . 11 ⊢ (𝐻 ∈ (ℤ≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝐻 ∈ ℤ ∧ 𝑀 ≤ 𝐻))
87	82, 84, 85, 86	syl3anbrc 1344	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ (ℤ≥‘𝑀))
88		fzsplit2 13486	. . . . . . . . . 10 ⊢ (((𝑀 + 1) ∈ (ℤ≥‘1) ∧ 𝐻 ∈ (ℤ≥‘𝑀)) → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
89	81, 87, 88	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
90	14	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (1...𝐻) → 2 ∈ ℤ)
91	68, 90	zmulcld 12620	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (1...𝐻) → (𝑘 · 2) ∈ ℤ)
92	91	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑘 · 2) ∈ ℤ)
93	92	zcnd 12615	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑘 · 2) ∈ ℂ)
94	78, 89, 67, 93	fprodsplit 15908	. . . . . . . 8 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑘 · 2) = (∏𝑘 ∈ (1...𝑀)(𝑘 · 2) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)))
95		nnnn0 12425	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℕ → 𝑃 ∈ ℕ0)
96	95	anim1i 615	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → (𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃))
97	42, 96	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → (𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃))
98		nn0oddm1d2 16331	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℕ0 → (¬ 2 ∥ 𝑃 ↔ ((𝑃 − 1) / 2) ∈ ℕ0))
99	98	biimpa 476	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃) → ((𝑃 − 1) / 2) ∈ ℕ0)
100	2, 99	eqeltrid 2832	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃) → 𝐻 ∈ ℕ0)
101	1, 97, 100	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻 ∈ ℕ0)
102		fprodfac 15915	. . . . . . . . . . . 12 ⊢ (𝐻 ∈ ℕ0 → (!‘𝐻) = ∏𝑘 ∈ (1...𝐻)𝑘)
103	101, 102	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (!‘𝐻) = ∏𝑘 ∈ (1...𝐻)𝑘)
104	103	eqcomd 2735	. . . . . . . . . 10 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)𝑘 = (!‘𝐻))
105		fzfi 13913	. . . . . . . . . . . 12 ⊢ (1...𝐻) ∈ Fin
106	105, 71	pm3.2i 470	. . . . . . . . . . 11 ⊢ ((1...𝐻) ∈ Fin ∧ 2 ∈ ℂ)
107		fprodconst 15920	. . . . . . . . . . 11 ⊢ (((1...𝐻) ∈ Fin ∧ 2 ∈ ℂ) → ∏𝑘 ∈ (1...𝐻)2 = (2↑(♯‘(1...𝐻))))
108	106, 107	mp1i 13	. . . . . . . . . 10 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)2 = (2↑(♯‘(1...𝐻))))
109	104, 108	oveq12d 7387	. . . . . . . . 9 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝐻)𝑘 · ∏𝑘 ∈ (1...𝐻)2) = ((!‘𝐻) · (2↑(♯‘(1...𝐻)))))
110		hashfz1 14287	. . . . . . . . . . . 12 ⊢ (𝐻 ∈ ℕ0 → (♯‘(1...𝐻)) = 𝐻)
111	101, 110	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘(1...𝐻)) = 𝐻)
112	111	oveq2d 7385	. . . . . . . . . 10 ⊢ (𝜑 → (2↑(♯‘(1...𝐻))) = (2↑𝐻))
113	112	oveq2d 7385	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐻) · (2↑(♯‘(1...𝐻)))) = ((!‘𝐻) · (2↑𝐻)))
114	101	faccld 14225	. . . . . . . . . . 11 ⊢ (𝜑 → (!‘𝐻) ∈ ℕ)
115	114	nncnd 12178	. . . . . . . . . 10 ⊢ (𝜑 → (!‘𝐻) ∈ ℂ)
116		2nn0 12435	. . . . . . . . . . 11 ⊢ 2 ∈ ℕ0
117		nn0expcl 14016	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℕ0 ∧ 𝐻 ∈ ℕ0) → (2↑𝐻) ∈ ℕ0)
118	117	nn0cnd 12481	. . . . . . . . . . 11 ⊢ ((2 ∈ ℕ0 ∧ 𝐻 ∈ ℕ0) → (2↑𝐻) ∈ ℂ)
119	116, 101, 118	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → (2↑𝐻) ∈ ℂ)
120	115, 119	mulcomd 11171	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐻) · (2↑𝐻)) = ((2↑𝐻) · (!‘𝐻)))
121	109, 113, 120	3eqtrd 2768	. . . . . . . 8 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝐻)𝑘 · ∏𝑘 ∈ (1...𝐻)2) = ((2↑𝐻) · (!‘𝐻)))
122	73, 94, 121	3eqtr3d 2772	. . . . . . 7 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑘 · 2) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) = ((2↑𝐻) · (!‘𝐻)))
123	66, 122	eqtrd 2764	. . . . . 6 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) = ((2↑𝐻) · (!‘𝐻)))
124	123	oveq2d 7385	. . . . 5 ⊢ (𝜑 → ((-1↑𝑁) · (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) = ((-1↑𝑁) · ((2↑𝐻) · (!‘𝐻))))
125	22	zcnd 12615	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℂ)
126	56	recnd 11178	. . . . . 6 ⊢ (𝜑 → (-1↑𝑁) ∈ ℂ)
127	60	zcnd 12615	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2) ∈ ℂ)
128	125, 126, 127	mul12d 11359	. . . . 5 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) = ((-1↑𝑁) · (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))))
129	126, 119, 115	mulassd 11173	. . . . 5 ⊢ (𝜑 → (((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) = ((-1↑𝑁) · ((2↑𝐻) · (!‘𝐻))))
130	124, 128, 129	3eqtr4d 2774	. . . 4 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) = (((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)))
131	130	oveq1d 7384	. . 3 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) mod 𝑃) = ((((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) mod 𝑃))
132	52, 64, 131	3eqtrd 2768	. 2 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃) = ((((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) mod 𝑃))
133	6, 48, 132	3eqtrd 2768	1 ⊢ (𝜑 → ((!‘𝐻) mod 𝑃) = ((((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) mod 𝑃))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  ∀wral 3044   ∖ cdif 3908   ∪ cun 3909   ∩ cin 3910  ∅c0 4292  ifcif 4484  {csn 4585   class class class wbr 5102   ↦ cmpt 5183  ‘cfv 6499  (class class class)co 7369  Fincfn 8895  ℂcc 11042  ℝcr 11043  1c1 11045   + caddc 11047   · cmul 11049   < clt 11184   ≤ cle 11185   − cmin 11381  -cneg 11382   / cdiv 11811  ℕcn 12162  2c2 12217  4c4 12219  ℕ₀cn0 12418  ℤcz 12505  ℤ_≥cuz 12769  ℝ⁺crp 12927  ...cfz 13444  ⌊cfl 13728   mod cmo 13807  ↑cexp 14002  !cfa 14214  ♯chash 14271  ∏cprod 15845   ∥ cdvds 16198  ℙcprime 16617

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 5229  ax-sep 5246  ax-nul 5256  ax-pow 5315  ax-pr 5382  ax-un 7691  ax-inf2 9570  ax-cnex 11100  ax-resscn 11101  ax-1cn 11102  ax-icn 11103  ax-addcl 11104  ax-addrcl 11105  ax-mulcl 11106  ax-mulrcl 11107  ax-mulcom 11108  ax-addass 11109  ax-mulass 11110  ax-distr 11111  ax-i2m1 11112  ax-1ne0 11113  ax-1rid 11114  ax-rnegex 11115  ax-rrecex 11116  ax-cnre 11117  ax-pre-lttri 11118  ax-pre-lttrn 11119  ax-pre-ltadd 11120  ax-pre-mulgt0 11121  ax-pre-sup 11122

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 3351  df-reu 3352  df-rab 3403  df-v 3446  df-sbc 3751  df-csb 3860  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3931  df-nul 4293  df-if 4485  df-pw 4561  df-sn 4586  df-pr 4588  df-tp 4590  df-op 4592  df-uni 4868  df-int 4907  df-iun 4953  df-br 5103  df-opab 5165  df-mpt 5184  df-tr 5210  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6262  df-ord 6323  df-on 6324  df-lim 6325  df-suc 6326  df-iota 6452  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-isom 6508  df-riota 7326  df-ov 7372  df-oprab 7373  df-mpo 7374  df-om 7823  df-1st 7947  df-2nd 7948  df-frecs 8237  df-wrecs 8268  df-recs 8317  df-rdg 8355  df-1o 8411  df-2o 8412  df-er 8648  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-sup 9369  df-inf 9370  df-oi 9439  df-card 9868  df-pnf 11186  df-mnf 11187  df-xr 11188  df-ltxr 11189  df-le 11190  df-sub 11383  df-neg 11384  df-div 11812  df-nn 12163  df-2 12225  df-3 12226  df-4 12227  df-5 12228  df-6 12229  df-n0 12419  df-z 12506  df-uz 12770  df-rp 12928  df-ioo 13286  df-fz 13445  df-fzo 13592  df-fl 13730  df-mod 13808  df-seq 13943  df-exp 14003  df-fac 14215  df-hash 14272  df-cj 15041  df-re 15042  df-im 15043  df-sqrt 15177  df-abs 15178  df-clim 15430  df-prod 15846  df-dvds 16199  df-prm 16618

This theorem is referenced by:  gausslemma2dlem7  27260