Theorem gausslemma2dlem5 27336

Description: Lemma 5 for gausslemma2d 27339. (Contributed by AV, 9-Jul-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
gausslemma2dlem5	⊢ (𝜑 → (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃) = (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃))

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

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

Proof of Theorem gausslemma2dlem5

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		gausslemma2d.m	. . 3 ⊢ 𝑀 = (⌊‘(𝑃 / 4))
5	1, 2, 3, 4	gausslemma2dlem5a 27335	. 2 ⊢ (𝜑 → (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃) = (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(-1 · (𝑘 · 2)) mod 𝑃))
6		fzfi 13893	. . . . . 6 ⊢ ((𝑀 + 1)...𝐻) ∈ Fin
7	6	a1i 11	. . . . 5 ⊢ (𝜑 → ((𝑀 + 1)...𝐻) ∈ Fin)
8		neg1cn 12128	. . . . . 6 ⊢ -1 ∈ ℂ
9	8	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → -1 ∈ ℂ)
10		elfzelz 13438	. . . . . . . 8 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → 𝑘 ∈ ℤ)
11		2z 12521	. . . . . . . . 9 ⊢ 2 ∈ ℤ
12	11	a1i 11	. . . . . . . 8 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → 2 ∈ ℤ)
13	10, 12	zmulcld 12600	. . . . . . 7 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → (𝑘 · 2) ∈ ℤ)
14	13	zcnd 12595	. . . . . 6 ⊢ (𝑘 ∈ ((𝑀 + 1)...𝐻) → (𝑘 · 2) ∈ ℂ)
15	14	adantl 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑀 + 1)...𝐻)) → (𝑘 · 2) ∈ ℂ)
16	7, 9, 15	fprodmul 15881	. . . 4 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(-1 · (𝑘 · 2)) = (∏𝑘 ∈ ((𝑀 + 1)...𝐻)-1 · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)))
17	6, 8	pm3.2i 470	. . . . . . 7 ⊢ (((𝑀 + 1)...𝐻) ∈ Fin ∧ -1 ∈ ℂ)
18		fprodconst 15899	. . . . . . 7 ⊢ ((((𝑀 + 1)...𝐻) ∈ Fin ∧ -1 ∈ ℂ) → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)-1 = (-1↑(♯‘((𝑀 + 1)...𝐻))))
19	17, 18	mp1i 13	. . . . . 6 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)-1 = (-1↑(♯‘((𝑀 + 1)...𝐻))))
20		nnoddn2prm 16737	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → (𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃))
21		nnre 12150	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ ℕ → 𝑃 ∈ ℝ)
22	21	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → 𝑃 ∈ ℝ)
23	1, 20, 22	3syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑃 ∈ ℝ)
24		4re 12227	. . . . . . . . . . . . . . 15 ⊢ 4 ∈ ℝ
25	24	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 4 ∈ ℝ)
26		4ne0 12251	. . . . . . . . . . . . . . 15 ⊢ 4 ≠ 0
27	26	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 4 ≠ 0)
28	23, 25, 27	redivcld 11967	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑃 / 4) ∈ ℝ)
29	28	flcld 13716	. . . . . . . . . . . 12 ⊢ (𝜑 → (⌊‘(𝑃 / 4)) ∈ ℤ)
30	4, 29	eqeltrid 2838	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℤ)
31	30	peano2zd 12597	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 + 1) ∈ ℤ)
32		nnz 12507	. . . . . . . . . . . . . 14 ⊢ (𝑃 ∈ ℕ → 𝑃 ∈ ℤ)
33		oddm1d2 16285	. . . . . . . . . . . . . 14 ⊢ (𝑃 ∈ ℤ → (¬ 2 ∥ 𝑃 ↔ ((𝑃 − 1) / 2) ∈ ℤ))
34	32, 33	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℕ → (¬ 2 ∥ 𝑃 ↔ ((𝑃 − 1) / 2) ∈ ℤ))
35	34	biimpa 476	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → ((𝑃 − 1) / 2) ∈ ℤ)
36	1, 20, 35	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑃 − 1) / 2) ∈ ℤ)
37	2, 36	eqeltrid 2838	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ ℤ)
38	1, 4, 2	gausslemma2dlem0f 27326	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 + 1) ≤ 𝐻)
39		eluz2 12755	. . . . . . . . . 10 ⊢ (𝐻 ∈ (ℤ≥‘(𝑀 + 1)) ↔ ((𝑀 + 1) ∈ ℤ ∧ 𝐻 ∈ ℤ ∧ (𝑀 + 1) ≤ 𝐻))
40	31, 37, 38, 39	syl3anbrc 1344	. . . . . . . . 9 ⊢ (𝜑 → 𝐻 ∈ (ℤ≥‘(𝑀 + 1)))
41		hashfz 14348	. . . . . . . . 9 ⊢ (𝐻 ∈ (ℤ≥‘(𝑀 + 1)) → (♯‘((𝑀 + 1)...𝐻)) = ((𝐻 − (𝑀 + 1)) + 1))
42	40, 41	syl 17	. . . . . . . 8 ⊢ (𝜑 → (♯‘((𝑀 + 1)...𝐻)) = ((𝐻 − (𝑀 + 1)) + 1))
43	37	zcnd 12595	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ ℂ)
44	30	zcnd 12595	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ ℂ)
45		1cnd 11125	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ ℂ)
46	43, 44, 45	nppcan2d 11516	. . . . . . . . 9 ⊢ (𝜑 → ((𝐻 − (𝑀 + 1)) + 1) = (𝐻 − 𝑀))
47		gausslemma2d.n	. . . . . . . . 9 ⊢ 𝑁 = (𝐻 − 𝑀)
48	46, 47	eqtr4di 2787	. . . . . . . 8 ⊢ (𝜑 → ((𝐻 − (𝑀 + 1)) + 1) = 𝑁)
49	42, 48	eqtrd 2769	. . . . . . 7 ⊢ (𝜑 → (♯‘((𝑀 + 1)...𝐻)) = 𝑁)
50	49	oveq2d 7372	. . . . . 6 ⊢ (𝜑 → (-1↑(♯‘((𝑀 + 1)...𝐻))) = (-1↑𝑁))
51	19, 50	eqtrd 2769	. . . . 5 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)-1 = (-1↑𝑁))
52	51	oveq1d 7371	. . . 4 ⊢ (𝜑 → (∏𝑘 ∈ ((𝑀 + 1)...𝐻)-1 · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) = ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)))
53	16, 52	eqtrd 2769	. . 3 ⊢ (𝜑 → ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(-1 · (𝑘 · 2)) = ((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)))
54	53	oveq1d 7371	. 2 ⊢ (𝜑 → (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(-1 · (𝑘 · 2)) mod 𝑃) = (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃))
55	5, 54	eqtrd 2769	1 ⊢ (𝜑 → (∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑅‘𝑘) mod 𝑃) = (((-1↑𝑁) · ∏𝑘 ∈ ((𝑀 + 1)...𝐻)(𝑘 · 2)) mod 𝑃))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113   ≠ wne 2930   ∖ cdif 3896  ifcif 4477  {csn 4578   class class class wbr 5096   ↦ cmpt 5177  ‘cfv 6490  (class class class)co 7356  Fincfn 8881  ℂcc 11022  ℝcr 11023  0cc0 11024  1c1 11025   + caddc 11027   · cmul 11029   < clt 11164   ≤ cle 11165   − cmin 11362  -cneg 11363   / cdiv 11792  ℕcn 12143  2c2 12198  4c4 12200  ℤcz 12486  ℤ_≥cuz 12749  ...cfz 13421  ⌊cfl 13708   mod cmo 13787  ↑cexp 13982  ♯chash 14251  ∏cprod 15824   ∥ cdvds 16177  ℙcprime 16596

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-inf2 9548  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101  ax-pre-sup 11102

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-tp 4583  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8633  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-sup 9343  df-inf 9344  df-oi 9413  df-card 9849  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-div 11793  df-nn 12144  df-2 12206  df-3 12207  df-4 12208  df-5 12209  df-6 12210  df-n0 12400  df-z 12487  df-uz 12750  df-rp 12904  df-fz 13422  df-fzo 13569  df-fl 13710  df-mod 13788  df-seq 13923  df-exp 13983  df-hash 14252  df-cj 15020  df-re 15021  df-im 15022  df-sqrt 15156  df-abs 15157  df-clim 15409  df-prod 15825  df-dvds 16178  df-prm 16597

This theorem is referenced by:  gausslemma2dlem6  27337