Theorem gausslemma2dlem6 27608

Description: Lemma 6 for gausslemma2d 27610. (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 27605	. . 3 ⊢ (𝜑 → (!‘𝐻) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)))
6	5	oveq1d 7428	. 2 ⊢ (𝜑 → ((!‘𝐻) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃))
7		fzfid 14037	. . . 4 ⊢ (𝜑 → (1...𝑀) ∈ Fin)
8	1, 2, 3, 4	gausslemma2dlem2 27603	. . . . . 6 ⊢ (𝜑 → ∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2))
9	8	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → ∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2))
10		rspa 3251	. . . . . . . 8 ⊢ ((∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) ∧ 𝑘 ∈ (1...𝑀)) → (𝑅‘𝑘) = (𝑘 · 2))
11	10	expcom 419	. . . . . . 7 ⊢ (𝑘 ∈ (1...𝑀) → (∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) = (𝑘 · 2)))
12	11	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) = (𝑘 · 2)))
13		elfzelz 13578	. . . . . . . . 9 ⊢ (𝑘 ∈ (1...𝑀) → 𝑘 ∈ ℤ)
14		2z 12650	. . . . . . . . . 10 ⊢ 2 ∈ ℤ
15	14	a1i 11	. . . . . . . . 9 ⊢ (𝑘 ∈ (1...𝑀) → 2 ∈ ℤ)
16	13, 15	zmulcld 12731	. . . . . . . 8 ⊢ (𝑘 ∈ (1...𝑀) → (𝑘 · 2) ∈ ℤ)
17	16	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑘 · 2) ∈ ℤ)
18		eleq1 2848	. . . . . . 7 ⊢ ((𝑅‘𝑘) = (𝑘 · 2) → ((𝑅‘𝑘) ∈ ℤ ↔ (𝑘 · 2) ∈ ℤ))
19	17, 18	syl5ibrcom 250	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → ((𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) ∈ ℤ))
20	12, 19	syld 48	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (∀𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = (𝑘 · 2) → (𝑅‘𝑘) ∈ ℤ))
21	9, 20	mpd 16	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑅‘𝑘) ∈ ℤ)
22	7, 21	fprodzcl 16041	. . 3 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ)
23		fzfid 14037	. . . . 5 ⊢ (𝜑 → ((𝑀 + 1)...𝐻) ∈ Fin)
24	1, 2, 3, 4	gausslemma2dlem3 27604	. . . . . . 7 ⊢ (𝜑 → ∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)))
25	24	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → ∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)))
26		rspa 3251	. . . . . . . . 9 ⊢ ((∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑅‘𝑘) = (𝑃 − (𝑘 · 2)))
27	26	expcom 419	. . . . . . . 8 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → (∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) = (𝑃 − (𝑘 · 2))))
28	27	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) = (𝑃 − (𝑘 · 2))))
29	1	gausslemma2dlem0a 27592	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ ℕ)
30	29	nnzd 12641	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
31		elfzelz 13578	. . . . . . . . . 10 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → 𝑘 ∈ ℤ)
32	14	a1i 11	. . . . . . . . . 10 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → 2 ∈ ℤ)
33	31, 32	zmulcld 12731	. . . . . . . . 9 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → (𝑘 · 2) ∈ ℤ)
34		zsubcl 12660	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℤ ∧ (𝑘 · 2) ∈ ℤ) → (𝑃 − (𝑘 · 2)) ∈ ℤ)
35	30, 33, 34	syl2an 608	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑃 − (𝑘 · 2)) ∈ ℤ)
36		eleq1 2848	. . . . . . . 8 ⊢ ((𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → ((𝑅‘𝑘) ∈ ℤ ↔ (𝑃 − (𝑘 · 2)) ∈ ℤ))
37	35, 36	syl5ibrcom 250	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → ((𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) ∈ ℤ))
38	28, 37	syld 48	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (∀𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) = (𝑃 − (𝑘 · 2)) → (𝑅‘𝑘) ∈ ℤ))
39	25, 38	mpd 16	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑅‘𝑘) ∈ ℤ)
40	23, 39	fprodzcl 16041	. . . 4 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℤ)
41	40	zred 12725	. . 3 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℝ)
42		nnoddn2prm 16903	. . . 4 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → (𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃))
43		nnrp 13054	. . . . 5 ⊢ (𝑃 ∈ ℕ → 𝑃 ∈ ℝ+)
44	43	adantr 486	. . . 4 ⊢ ((𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → 𝑃 ∈ ℝ+)
45	1, 42, 44	3syl 19	. . 3 ⊢ (𝜑 → 𝑃 ∈ ℝ+)
46		modmulmodr 14001	. . . 4 ⊢ ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ ∧ ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃))
47	46	eqcomd 2766	. . 3 ⊢ ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ ∧ ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃))
48	22, 41, 45, 47	syl3anc 1398	. 2 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃))
49		gausslemma2d.n	. . . . . 6 ⊢ 𝑁 = (𝐻 − 𝑀)
50	1, 2, 3, 4, 49	gausslemma2dlem5 27607	. . . . 5 ⊢ (𝜑 → (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃) = (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃))
51	50	oveq2d 7429	. . . 4 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) = (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)))
52	51	oveq1d 7428	. . 3 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)) mod 𝑃))
53		neg1rr 12228	. . . . . . 7 ⊢ -1 ∈ ℝ
54	53	a1i 11	. . . . . 6 ⊢ (𝜑 → -1 ∈ ℝ)
55	1, 4, 2, 49	gausslemma2dlem0h 27599	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
56	54, 55	reexpcld 14227	. . . . 5 ⊢ (𝜑 → (-1↑𝑁) ∈ ℝ)
57	31	adantl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → 𝑘 ∈ ℤ)
58	14	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → 2 ∈ ℤ)
59	57, 58	zmulcld 12731	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑘 · 2) ∈ ℤ)
60	23, 59	fprodzcl 16041	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2) ∈ ℤ)
61	60	zred 12725	. . . . 5 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2) ∈ ℝ)
62	56, 61	remulcld 11263	. . . 4 ⊢ (𝜑 → ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) ∈ ℝ)
63		modmulmodr 14001	. . . 4 ⊢ ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℤ ∧ ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) mod 𝑃))
64	22, 62, 45, 63	syl3anc 1398	. . 3 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃)) mod 𝑃) = ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) mod 𝑃))
65	8	prodeq2d 16009	. . . . . . . 8 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) = ∏𝑘 ∈ (1...𝑀)(𝑘 · 2))
66	65	oveq1d 7428	. . . . . . 7 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) = (∏𝑘 ∈ (1...𝑀)(𝑘 · 2) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)))
67		fzfid 14037	. . . . . . . . 9 ⊢ (𝜑 → (1...𝐻) ∈ Fin)
68		elfzelz 13578	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℤ)
69	68	zcnd 12726	. . . . . . . . . 10 ⊢ (𝑘 ∈ (1...𝐻) → 𝑘 ∈ ℂ)
70	69	adantl 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → 𝑘 ∈ ℂ)
71		2cn 12340	. . . . . . . . . 10 ⊢ 2 ∈ ℂ
72	71	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → 2 ∈ ℂ)
73	67, 70, 72	fprodmul 16047	. . . . . . . 8 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑘 · 2) = (∏𝑘 ∈ (1...𝐻)𝑘 · ∏𝑘 ∈ (1...𝐻)2))
74	1, 4	gausslemma2dlem0d 27595	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
75	74	nn0red 12590	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℝ)
76	75	ltp1d 12169	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 < (𝑀 + 1))
77		fzdisj 13606	. . . . . . . . . 10 ⊢ (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
78	76, 77	syl 18	. . . . . . . . 9 ⊢ (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝐻)) = ∅)
79		1zzd 12649	. . . . . . . . . . 11 ⊢ (𝜑 → 1 ∈ ℤ)
80		nn0pzuz 12954	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ0 ∧ 1 ∈ ℤ) → (𝑀 + 1) ∈ (ℤ≥‘1))
81	74, 79, 80	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 + 1) ∈ (ℤ≥‘1))
82	74	nn0zd 12640	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℤ)
83	1, 2	gausslemma2dlem0b 27593	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻 ∈ ℕ)
84	83	nnzd 12641	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐻 ∈ ℤ)
85	1, 4, 2	gausslemma2dlem0g 27598	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ≤ 𝐻)
86		eluz2 12893	. . . . . . . . . . 11 ⊢ (𝐻 ∈ (ℤ≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝐻 ∈ ℤ ∧ 𝑀 ≤ 𝐻))
87	82, 84, 85, 86	syl3anbrc 1362	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ (ℤ≥‘𝑀))
88		fzsplit2 13604	. . . . . . . . . 10 ⊢ (((𝑀 + 1) ∈ (ℤ≥‘1) ∧ 𝐻 ∈ (ℤ≥‘𝑀)) → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
89	81, 87, 88	syl2anc 596	. . . . . . . . 9 ⊢ (𝜑 → (1...𝐻) = ((1...𝑀) ∪ ((𝑀 + 1)...𝐻)))
90	14	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (1...𝐻) → 2 ∈ ℤ)
91	68, 90	zmulcld 12731	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (1...𝐻) → (𝑘 · 2) ∈ ℤ)
92	91	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑘 · 2) ∈ ℤ)
93	92	zcnd 12726	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝐻)) → (𝑘 · 2) ∈ ℂ)
94	78, 89, 67, 93	fprodsplit 16053	. . . . . . . 8 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)(𝑘 · 2) = (∏𝑘 ∈ (1...𝑀)(𝑘 · 2) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)))
95		nnnn0 12535	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℕ → 𝑃 ∈ ℕ0)
96	95	anim1i 627	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → (𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃))
97	42, 96	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → (𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃))
98		nn0oddm1d2 16475	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℕ0 → (¬ 2 ∥ 𝑃 ↔ ((𝑃 − 1) / 2) ∈ ℕ0))
99	98	biimpa 482	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃) → ((𝑃 − 1) / 2) ∈ ℕ0)
100	2, 99	eqeltrid 2864	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ ℕ0 ∧ ¬ 2 ∥ 𝑃) → 𝐻 ∈ ℕ0)
101	1, 97, 100	3syl 19	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐻 ∈ ℕ0)
102		fprodfac 16060	. . . . . . . . . . . 12 ⊢ (𝐻 ∈ ℕ0 → (!‘𝐻) = ∏𝑘 ∈ (1...𝐻)𝑘)
103	101, 102	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (!‘𝐻) = ∏𝑘 ∈ (1...𝐻)𝑘)
104	103	eqcomd 2766	. . . . . . . . . 10 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)𝑘 = (!‘𝐻))
105		fzfi 14036	. . . . . . . . . . . 12 ⊢ (1...𝐻) ∈ Fin
106	105, 71	pm3.2i 476	. . . . . . . . . . 11 ⊢ ((1...𝐻) ∈ Fin ∧ 2 ∈ ℂ)
107		fprodconst 16065	. . . . . . . . . . 11 ⊢ (((1...𝐻) ∈ Fin ∧ 2 ∈ ℂ) → ∏𝑘 ∈ (1...𝐻)2 = (2↑(♯‘(1...𝐻))))
108	106, 107	mp1i 14	. . . . . . . . . 10 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝐻)2 = (2↑(♯‘(1...𝐻))))
109	104, 108	oveq12d 7431	. . . . . . . . 9 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝐻)𝑘 · ∏𝑘 ∈ (1...𝐻)2) = ((!‘𝐻) · (2↑(♯‘(1...𝐻)))))
110		hashfz1 14410	. . . . . . . . . . . 12 ⊢ (𝐻 ∈ ℕ0 → (♯‘(1...𝐻)) = 𝐻)
111	101, 110	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘(1...𝐻)) = 𝐻)
112	111	oveq2d 7429	. . . . . . . . . 10 ⊢ (𝜑 → (2↑(♯‘(1...𝐻))) = (2↑𝐻))
113	112	oveq2d 7429	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐻) · (2↑(♯‘(1...𝐻)))) = ((!‘𝐻) · (2↑𝐻)))
114	101	faccld 14348	. . . . . . . . . . 11 ⊢ (𝜑 → (!‘𝐻) ∈ ℕ)
115	114	nncnd 12273	. . . . . . . . . 10 ⊢ (𝜑 → (!‘𝐻) ∈ ℂ)
116		2nn0 12545	. . . . . . . . . . 11 ⊢ 2 ∈ ℕ0
117		nn0expcl 14139	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℕ0 ∧ 𝐻 ∈ ℕ0) → (2↑𝐻) ∈ ℕ0)
118	117	nn0cnd 12591	. . . . . . . . . . 11 ⊢ ((2 ∈ ℕ0 ∧ 𝐻 ∈ ℕ0) → (2↑𝐻) ∈ ℂ)
119	116, 101, 118	sylancr 599	. . . . . . . . . 10 ⊢ (𝜑 → (2↑𝐻) ∈ ℂ)
120	115, 119	mulcomd 11254	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐻) · (2↑𝐻)) = ((2↑𝐻) · (!‘𝐻)))
121	109, 113, 120	3eqtrd 2799	. . . . . . . 8 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝐻)𝑘 · ∏𝑘 ∈ (1...𝐻)2) = ((2↑𝐻) · (!‘𝐻)))
122	73, 94, 121	3eqtr3d 2803	. . . . . . 7 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑘 · 2) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) = ((2↑𝐻) · (!‘𝐻)))
123	66, 122	eqtrd 2795	. . . . . 6 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) = ((2↑𝐻) · (!‘𝐻)))
124	123	oveq2d 7429	. . . . 5 ⊢ (𝜑 → ((-1↑𝑁) · (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) = ((-1↑𝑁) · ((2↑𝐻) · (!‘𝐻))))
125	22	zcnd 12726	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) ∈ ℂ)
126	56	recnd 11261	. . . . . 6 ⊢ (𝜑 → (-1↑𝑁) ∈ ℂ)
127	60	zcnd 12726	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2) ∈ ℂ)
128	125, 126, 127	mul12d 11443	. . . . 5 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) = ((-1↑𝑁) · (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))))
129	126, 119, 115	mulassd 11256	. . . . 5 ⊢ (𝜑 → (((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) = ((-1↑𝑁) · ((2↑𝐻) · (!‘𝐻))))
130	124, 128, 129	3eqtr4d 2805	. . . 4 ⊢ (𝜑 → (∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) = (((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)))
131	130	oveq1d 7428	. . 3 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2))) mod 𝑃) = ((((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) mod 𝑃))
132	52, 64, 131	3eqtrd 2799	. 2 ⊢ (𝜑 → ((∏𝑘 ∈ (1...𝑀)(𝑅‘𝑘) · (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃)) mod 𝑃) = ((((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) mod 𝑃))
133	6, 48, 132	3eqtrd 2799	1 ⊢ (𝜑 → ((!‘𝐻) mod 𝑃) = ((((-1↑𝑁) · (2↑𝐻)) · (!‘𝐻)) mod 𝑃))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  ∀wral 3076   ∖ cdif 3896   ∪ cun 3897   ∩ cin 3898  ∅c0 4279  ifcif 4482  {csn 4584   class class class wbr 5103   ↦ cmpt 5186  ‘cfv 6533  (class class class)co 7413  Fincfn 8952  ℂcc 11122  ℝcr 11123  1c1 11125   + caddc 11127   · cmul 11129   < clt 11267   ≤ cle 11268   − cmin 11465  -cneg 11466   / cdiv 11895  ℕcn 12257  2c2 12319  4c4 12321  ℕ₀cn0 12528  ℤcz 12615  ℤ_≥cuz 12887  ℝ⁺crp 13042  ...cfz 13561  ⌊cfl 13851   mod cmo 13930  ↑cexp 14125  !cfa 14337  ♯chash 14394  ∏cprod 15992   ∥ cdvds 16342  ℙcprime 16761

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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7736  ax-inf2 9620  ax-cnex 11180  ax-resscn 11181  ax-1cn 11182  ax-icn 11183  ax-addcl 11184  ax-addrcl 11185  ax-mulcl 11186  ax-mulrcl 11187  ax-mulcom 11188  ax-addass 11189  ax-mulass 11190  ax-distr 11191  ax-i2m1 11192  ax-1ne0 11193  ax-1rid 11194  ax-rnegex 11195  ax-rrecex 11196  ax-cnre 11197  ax-pre-lttri 11198  ax-pre-lttrn 11199  ax-pre-ltadd 11200  ax-pre-mulgt0 11201  ax-pre-sup 11202

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 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-se 5609  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7863  df-1st 7986  df-2nd 7987  df-frecs 8280  df-wrecs 8311  df-recs 8360  df-rdg 8399  df-1o 8455  df-2o 8456  df-er 8696  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-sup 9412  df-inf 9413  df-oi 9482  df-card 9944  df-pnf 11269  df-mnf 11270  df-xr 11271  df-ltxr 11272  df-le 11273  df-sub 11467  df-neg 11468  df-div 11896  df-nn 12258  df-2 12327  df-3 12328  df-4 12329  df-5 12330  df-6 12331  df-n0 12529  df-z 12616  df-uz 12888  df-rp 13043  df-ioo 13402  df-fz 13562  df-fzo 13710  df-fl 13853  df-mod 13931  df-seq 14066  df-exp 14126  df-fac 14338  df-hash 14395  df-cj 15186  df-re 15187  df-im 15188  df-sqrt 15322  df-abs 15323  df-clim 15575  df-prod 15993  df-dvds 16343  df-prm 16762

This theorem is used by:  gausslemma2dlem7  27609