lgseisenlem4 - Metamath Proof Explorer

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

Theorem lgseisenlem4 27612

Description: Lemma for lgseisen 27613. (Contributed by Mario Carneiro, 18-Jun-2015.) (Proof shortened by AV, 15-Jun-2019.)

**Hypotheses**
Ref	Expression
lgseisen.1	⊢ (𝜑 → 𝑃 ∈ (ℙ ∖ {2}))
lgseisen.2	⊢ (𝜑 → 𝑄 ∈ (ℙ ∖ {2}))
lgseisen.3	⊢ (𝜑 → 𝑃 ≠ 𝑄)
lgseisen.4	⊢ 𝑅 = ((𝑄 · (2 · 𝑥)) mod 𝑃)
lgseisen.5	⊢ 𝑀 = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2))
lgseisen.6	⊢ 𝑆 = ((𝑄 · (2 · 𝑦)) mod 𝑃)
lgseisen.7	⊢ 𝑌 = (ℤ/nℤ‘𝑃)
lgseisen.8	⊢ 𝐺 = (mulGrp‘𝑌)
lgseisen.9	⊢ 𝐿 = (ℤRHom‘𝑌)

**Assertion**
Ref	Expression
lgseisenlem4	⊢ (𝜑 → ((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃))

Distinct variable groups: 𝑥,𝐺 𝑥,𝐿 𝑥,𝑦,𝑃 𝜑,𝑥,𝑦 𝑦,𝑀 𝑥,𝑄,𝑦 𝑥,𝑌 𝑥,𝑆 Allowed substitution hints: 𝑅(𝑥, 𝑦) 𝑆(𝑦) 𝐺(𝑦) 𝐿(𝑦) 𝑀(𝑥) 𝑌(𝑦)

Proof of Theorem lgseisenlem4 Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		zringbas 21667	. . . . 5 ⊢ ℤ = (Base‘ℤ_ring)
2		zring0 21672	. . . . 5 ⊢ 0 = (0_g‘ℤ_ring)
3		zringabl 21665	. . . . . 6 ⊢ ℤ_ring ∈ Abel
4		ablcmn 19915	. . . . . 6 ⊢ (ℤ_ring ∈ Abel → ℤ_ring ∈ CMnd)
5	3, 4	mp1i 14	. . . . 5 ⊢ (𝜑 → ℤ_ring ∈ CMnd)
6		lgseisen.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ (ℙ ∖ {2}))
7	6	eldifad 3914	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℙ)
8		lgseisen.7	. . . . . . . . . 10 ⊢ 𝑌 = (ℤ/nℤ‘𝑃)
9	8	znfld 21774	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → 𝑌 ∈ Field)
10	7, 9	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑌 ∈ Field)
11		isfld 20904	. . . . . . . . 9 ⊢ (𝑌 ∈ Field ↔ (𝑌 ∈ DivRing ∧ 𝑌 ∈ CRing))
12	11	simprbi 503	. . . . . . . 8 ⊢ (𝑌 ∈ Field → 𝑌 ∈ CRing)
13	10, 12	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ CRing)
14		lgseisen.8	. . . . . . . 8 ⊢ 𝐺 = (mulGrp‘𝑌)
15	14	crngmgp 20381	. . . . . . 7 ⊢ (𝑌 ∈ CRing → 𝐺 ∈ CMnd)
16	13, 15	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐺 ∈ CMnd)
17		cmnmnd 19925	. . . . . 6 ⊢ (𝐺 ∈ CMnd → 𝐺 ∈ Mnd)
18	16, 17	syl 18	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ Mnd)
19		fzfid 14039	. . . . 5 ⊢ (𝜑 → (1...((𝑃 − 1) / 2)) ∈ Fin)
20		crngring 20385	. . . . . . . . . 10 ⊢ (𝑌 ∈ CRing → 𝑌 ∈ Ring)
21	13, 20	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ Ring)
22		lgseisen.9	. . . . . . . . . 10 ⊢ 𝐿 = (ℤRHom‘𝑌)
23	22	zrhrhm 21725	. . . . . . . . 9 ⊢ (𝑌 ∈ Ring → 𝐿 ∈ (ℤ_ring RingHom 𝑌))
24	21, 23	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ (ℤ_ring RingHom 𝑌))
25		eqid 2762	. . . . . . . . 9 ⊢ (Base‘𝑌) = (Base‘𝑌)
26	1, 25	rhmf 20627	. . . . . . . 8 ⊢ (𝐿 ∈ (ℤ_ring RingHom 𝑌) → 𝐿:ℤ⟶(Base‘𝑌))
27	24, 26	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘𝑌))
28		m1expcl 14152	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ → (-1↑𝑘) ∈ ℤ)
29	28	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℤ) → (-1↑𝑘) ∈ ℤ)
30	27, 29	cofmpt 7129	. . . . . 6 ⊢ (𝜑 → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) = (𝑘 ∈ ℤ ↦ (𝐿‘(-1↑𝑘))))
31		zringmpg 21685	. . . . . . . . 9 ⊢ ((mulGrp‘ℂ_fld) ↾_s ℤ) = (mulGrp‘ℤ_ring)
32	31, 14	rhmmhm 20622	. . . . . . . 8 ⊢ (𝐿 ∈ (ℤ_ring RingHom 𝑌) → 𝐿 ∈ (((mulGrp‘ℂ_fld) ↾_s ℤ) MndHom 𝐺))
33	24, 32	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ (((mulGrp‘ℂ_fld) ↾_s ℤ) MndHom 𝐺))
34		neg1cn 12230	. . . . . . . . . . 11 ⊢ -1 ∈ ℂ
35		neg1ne0 12232	. . . . . . . . . . 11 ⊢ -1 ≠ 0
36		eqid 2762	. . . . . . . . . . . 12 ⊢ (mulGrp‘ℂ_fld) = (mulGrp‘ℂ_fld)
37		eqid 2762	. . . . . . . . . . . 12 ⊢ ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0})) = ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0}))
38	36, 37	expghm 21689	. . . . . . . . . . 11 ⊢ ((-1 ∈ ℂ ∧ -1 ≠ 0) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring GrpHom ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0}))))
39	34, 35, 38	mp2an 705	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring GrpHom ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0})))
40		ghmmhm 19354	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring GrpHom ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0}))) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0}))))
41	39, 40	ax-mp 5	. . . . . . . . 9 ⊢ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0})))
42		cnring 21608	. . . . . . . . . 10 ⊢ ℂ_fld ∈ Ring
43		cnfldbas 21590	. . . . . . . . . . . 12 ⊢ ℂ = (Base‘ℂ_fld)
44		cnfld0 21610	. . . . . . . . . . . 12 ⊢ 0 = (0_g‘ℂ_fld)
45		cndrng 21615	. . . . . . . . . . . 12 ⊢ ℂ_fld ∈ DivRing
46	43, 44, 45	drngui 20897	. . . . . . . . . . 11 ⊢ (ℂ ∖ {0}) = (Unit‘ℂ_fld)
47	46, 36	unitsubm 20528	. . . . . . . . . 10 ⊢ (ℂ_fld ∈ Ring → (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂ_fld)))
48	42, 47	ax-mp 5	. . . . . . . . 9 ⊢ (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂ_fld))
49	37	resmhm2 18931	. . . . . . . . 9 ⊢ (((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom ((mulGrp‘ℂ_fld) ↾_s (ℂ ∖ {0}))) ∧ (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂ_fld))) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom (mulGrp‘ℂ_fld)))
50	41, 48, 49	mp2an 705	. . . . . . . 8 ⊢ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom (mulGrp‘ℂ_fld))
51		zsubrg 21634	. . . . . . . . . 10 ⊢ ℤ ∈ (SubRing‘ℂ_fld)
52	36	subrgsubm 20748	. . . . . . . . . 10 ⊢ (ℤ ∈ (SubRing‘ℂ_fld) → ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)))
53	51, 52	ax-mp 5	. . . . . . . . 9 ⊢ ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld))
54	29	fmpttd 7111	. . . . . . . . . 10 ⊢ (𝜑 → (𝑘 ∈ ℤ ↦ (-1↑𝑘)):ℤ⟶ℤ)
55	54	frnd 6715	. . . . . . . . 9 ⊢ (𝜑 → ran (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ⊆ ℤ)
56		eqid 2762	. . . . . . . . . 10 ⊢ ((mulGrp‘ℂ_fld) ↾_s ℤ) = ((mulGrp‘ℂ_fld) ↾_s ℤ)
57	56	resmhm2b 18932	. . . . . . . . 9 ⊢ ((ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)) ∧ ran (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ⊆ ℤ) → ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom (mulGrp‘ℂ_fld)) ↔ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom ((mulGrp‘ℂ_fld) ↾_s ℤ))))
58	53, 55, 57	sylancr 599	. . . . . . . 8 ⊢ (𝜑 → ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom (mulGrp‘ℂ_fld)) ↔ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom ((mulGrp‘ℂ_fld) ↾_s ℤ))))
59	50, 58	mpbii 236	. . . . . . 7 ⊢ (𝜑 → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom ((mulGrp‘ℂ_fld) ↾_s ℤ)))
60		mhmco 18933	. . . . . . 7 ⊢ ((𝐿 ∈ (((mulGrp‘ℂ_fld) ↾_s ℤ) MndHom 𝐺) ∧ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤ_ring MndHom ((mulGrp‘ℂ_fld) ↾_s ℤ))) → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) ∈ (ℤ_ring MndHom 𝐺))
61	33, 59, 60	syl2anc 596	. . . . . 6 ⊢ (𝜑 → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) ∈ (ℤ_ring MndHom 𝐺))
62	30, 61	eqeltrrd 2863	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ ℤ ↦ (𝐿‘(-1↑𝑘))) ∈ (ℤ_ring MndHom 𝐺))
63		lgseisen.2	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑄 ∈ (ℙ ∖ {2}))
64	63	gausslemma2dlem0a 27590	. . . . . . . . . 10 ⊢ (𝜑 → 𝑄 ∈ ℕ)
65	64	nnred 12275	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ ℝ)
66	6	gausslemma2dlem0a 27590	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℕ)
67	65, 66	nndivred 12317	. . . . . . . 8 ⊢ (𝜑 → (𝑄 / 𝑃) ∈ ℝ)
68	67	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 / 𝑃) ∈ ℝ)
69		2nn 12341	. . . . . . . . 9 ⊢ 2 ∈ ℕ
70		elfznn 13610	. . . . . . . . . 10 ⊢ (𝑥 ∈ (1...((𝑃 − 1) / 2)) → 𝑥 ∈ ℕ)
71	70	adantl 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℕ)
72		nnmulcl 12284	. . . . . . . . 9 ⊢ ((2 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (2 · 𝑥) ∈ ℕ)
73	69, 71, 72	sylancr 599	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℕ)
74	73	nnred 12275	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℝ)
75	68, 74	remulcld 11266	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 / 𝑃) · (2 · 𝑥)) ∈ ℝ)
76	75	flcld 13861	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)
77		eqid 2762	. . . . . 6 ⊢ (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
78		fvexd 6897	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ V)
79		c0ex 11227	. . . . . . 7 ⊢ 0 ∈ V
80	79	a1i 11	. . . . . 6 ⊢ (𝜑 → 0 ∈ V)
81	77, 19, 78, 80	fsuppmptdm 9349	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) finSupp 0)
82		oveq2 7424	. . . . . 6 ⊢ (𝑘 = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) → (-1↑𝑘) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
83	82	fveq2d 6886	. . . . 5 ⊢ (𝑘 = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) → (𝐿‘(-1↑𝑘)) = (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
84		oveq2 7424	. . . . . 6 ⊢ (𝑘 = (ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) → (-1↑𝑘) = (-1↑(ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
85	84	fveq2d 6886	. . . . 5 ⊢ (𝑘 = (ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) → (𝐿‘(-1↑𝑘)) = (𝐿‘(-1↑(ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
86	1, 2, 5, 18, 19, 62, 76, 81, 83, 85	gsummhm2 20067	. . . 4 ⊢ (𝜑 → (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(-1↑(ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
87	14, 25	mgpbas 20279	. . . . . . 7 ⊢ (Base‘𝑌) = (Base‘𝐺)
88		eqid 2762	. . . . . . . 8 ⊢ (._r‘𝑌) = (._r‘𝑌)
89	14, 88	mgpplusg 20278	. . . . . . 7 ⊢ (._r‘𝑌) = (+_g‘𝐺)
90	27	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝐿:ℤ⟶(Base‘𝑌))
91		m1expcl 14152	. . . . . . . . 9 ⊢ ((⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
92	76, 91	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
93	90, 92	ffvelcdmd 7081	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ∈ (Base‘𝑌))
94		neg1z 12657	. . . . . . . . . 10 ⊢ -1 ∈ ℤ
95		lgseisen.4	. . . . . . . . . . 11 ⊢ 𝑅 = ((𝑄 · (2 · 𝑥)) mod 𝑃)
96	63	eldifad 3914	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑄 ∈ ℙ)
97	96	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℙ)
98		prmz 16769	. . . . . . . . . . . . . 14 ⊢ (𝑄 ∈ ℙ → 𝑄 ∈ ℤ)
99	97, 98	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℤ)
100	73	nnzd 12644	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℤ)
101	99, 100	zmulcld 12734	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℤ)
102	7	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℙ)
103		prmnn 16768	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
104	102, 103	syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℕ)
105	101, 104	zmodcld 13955	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) ∈ ℕ₀)
106	95, 105	eqeltrid 2866	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℕ₀)
107		zexpcl 14142	. . . . . . . . . 10 ⊢ ((-1 ∈ ℤ ∧ 𝑅 ∈ ℕ₀) → (-1↑𝑅) ∈ ℤ)
108	94, 106, 107	sylancr 599	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℤ)
109	108, 99	zmulcld 12734	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · 𝑄) ∈ ℤ)
110	90, 109	ffvelcdmd 7081	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑𝑅) · 𝑄)) ∈ (Base‘𝑌))
111		eqid 2762	. . . . . . 7 ⊢ (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
112		eqid 2762	. . . . . . 7 ⊢ (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))
113	87, 89, 16, 19, 93, 110, 111, 112	gsummptfidmadd2 20054	. . . . . 6 ⊢ (𝜑 → (𝐺 Σ_g ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘_f (._r‘𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))) = ((𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(._r‘𝑌)(𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))))
114		eqidd 2763	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
115		eqidd 2763	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))
116	19, 93, 110, 114, 115	offval2 7701	. . . . . . . 8 ⊢ (𝜑 → ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘_f (._r‘𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(._r‘𝑌)(𝐿‘((-1↑𝑅) · 𝑄)))))
117	24	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝐿 ∈ (ℤ_ring RingHom 𝑌))
118		zringmulr 21671	. . . . . . . . . . . 12 ⊢ · = (._r‘ℤ_ring)
119	1, 118, 88	rhmmul 20632	. . . . . . . . . . 11 ⊢ ((𝐿 ∈ (ℤ_ring RingHom 𝑌) ∧ (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ ∧ ((-1↑𝑅) · 𝑄) ∈ ℤ) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(._r‘𝑌)(𝐿‘((-1↑𝑅) · 𝑄))))
120	117, 92, 109, 119	syl3anc 1398	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(._r‘𝑌)(𝐿‘((-1↑𝑅) · 𝑄))))
121	101	zred 12728	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℝ)
122	104	nnrpd 13086	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℝ⁺)
123		modval 13934	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑄 · (2 · 𝑥)) ∈ ℝ ∧ 𝑃 ∈ ℝ⁺) → ((𝑄 · (2 · 𝑥)) mod 𝑃) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
124	121, 122, 123	syl2anc 596	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
125	95, 124	eqtrid 2809	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
126	99	zcnd 12729	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℂ)
127	73	nncnd 12276	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℂ)
128	104	nncnd 12276	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℂ)
129	104	nnne0d 12313	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ≠ 0)
130	126, 127, 128, 129	div23d 12055	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) / 𝑃) = ((𝑄 / 𝑃) · (2 · 𝑥)))
131	130	fveq2d 6886	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)) = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
132	131	oveq2d 7432	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃))) = (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
133	132	oveq2d 7432	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
134	125, 133	eqtrd 2797	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
135	134	oveq2d 7432	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅) = ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
136		prmz 16769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
137	102, 136	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℤ)
138	137, 76	zmulcld 12734	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
139	138	zcnd 12729	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℂ)
140	101	zcnd 12729	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℂ)
141	139, 140	pncan3d 11599	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑄 · (2 · 𝑥)))
142		2cnd 12346	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℂ)
143	71	nncnd 12276	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℂ)
144	126, 142, 143	mul12d 11446	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) = (2 · (𝑄 · 𝑥)))
145	135, 141, 144	3eqtrd 2801	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅) = (2 · (𝑄 · 𝑥)))
146	145	oveq2d 7432	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = (-1↑(2 · (𝑄 · 𝑥))))
147	34	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ∈ ℂ)
148	35	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ≠ 0)
149	106	nn0zd 12643	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℤ)
150		expaddz 14172	. . . . . . . . . . . . . . . 16 ⊢ (((-1 ∈ ℂ ∧ -1 ≠ 0) ∧ ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ ∧ 𝑅 ∈ ℤ)) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)))
151	147, 148, 138, 149, 150	syl22anc 852	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)))
152		expmulz 14174	. . . . . . . . . . . . . . . . . 18 ⊢ (((-1 ∈ ℂ ∧ -1 ≠ 0) ∧ (𝑃 ∈ ℤ ∧ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
153	147, 148, 137, 76, 152	syl22anc 852	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
154		1cnd 11229	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 1 ∈ ℂ)
155		eldifsni 4756	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → 𝑃 ≠ 2)
156	6, 155	syl 18	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝑃 ≠ 2)
157	156	necomd 3012	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 2 ≠ 𝑃)
158	157	neneqd 2962	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ¬ 2 = 𝑃)
159	158	adantr 486	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 2 = 𝑃)
160		2z 12653	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 2 ∈ ℤ
161		uzid 12905	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (2 ∈ ℤ → 2 ∈ (ℤ_≥‘2))
162	160, 161	ax-mp 5	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 2 ∈ (ℤ_≥‘2)
163		dvdsprm 16798	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((2 ∈ (ℤ_≥‘2) ∧ 𝑃 ∈ ℙ) → (2 ∥ 𝑃 ↔ 2 = 𝑃))
164	162, 102, 163	sylancr 599	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 ∥ 𝑃 ↔ 2 = 𝑃))
165	159, 164	mtbird 328	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 2 ∥ 𝑃)
166		oexpneg 16439	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1 ∈ ℂ ∧ 𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → (-1↑𝑃) = -(1↑𝑃))
167	154, 104, 165, 166	syl3anc 1398	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑃) = -(1↑𝑃))
168		1exp 14157	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑃 ∈ ℤ → (1↑𝑃) = 1)
169	137, 168	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1↑𝑃) = 1)
170	169	negeqd 11478	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → -(1↑𝑃) = -1)
171	167, 170	eqtrd 2797	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑃) = -1)
172	171	oveq1d 7431	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
173	153, 172	eqtrd 2797	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
174	173	oveq1d 7431	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)))
175	151, 174	eqtrd 2797	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)))
176		nnmulcl 12284	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑄 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (𝑄 · 𝑥) ∈ ℕ)
177	64, 70, 176	syl2an 608	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℕ)
178	177	nnnn0d 12592	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℕ₀)
179		2nn0 12548	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℕ₀
180	179	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℕ₀)
181	147, 178, 180	expmuld 14215	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(2 · (𝑄 · 𝑥))) = ((-1↑2)↑(𝑄 · 𝑥)))
182		neg1sqe1 14262	. . . . . . . . . . . . . . . . 17 ⊢ (-1↑2) = 1
183	182	oveq1i 7426	. . . . . . . . . . . . . . . 16 ⊢ ((-1↑2)↑(𝑄 · 𝑥)) = (1↑(𝑄 · 𝑥))
184	177	nnzd 12644	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℤ)
185		1exp 14157	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑄 · 𝑥) ∈ ℤ → (1↑(𝑄 · 𝑥)) = 1)
186	184, 185	syl 18	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1↑(𝑄 · 𝑥)) = 1)
187	183, 186	eqtrid 2809	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑2)↑(𝑄 · 𝑥)) = 1)
188	181, 187	eqtrd 2797	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(2 · (𝑄 · 𝑥))) = 1)
189	146, 175, 188	3eqtr3d 2805	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) = 1)
190	189	oveq1d 7431	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) · 𝑄) = (1 · 𝑄))
191	92	zcnd 12729	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℂ)
192	108	zcnd 12729	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℂ)
193	191, 192, 126	mulassd 11259	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) · 𝑄) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄)))
194	126	mullidd 11254	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1 · 𝑄) = 𝑄)
195	190, 193, 194	3eqtr3d 2805	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄)) = 𝑄)
196	195	fveq2d 6886	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = (𝐿‘𝑄))
197	120, 196	eqtr3d 2799	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(._r‘𝑌)(𝐿‘((-1↑𝑅) · 𝑄))) = (𝐿‘𝑄))
198	197	mpteq2dva 5202	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(._r‘𝑌)(𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘𝑄)))
199	116, 198	eqtrd 2797	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘_f (._r‘𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘𝑄)))
200	199	oveq2d 7432	. . . . . 6 ⊢ (𝜑 → (𝐺 Σ_g ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘_f (._r‘𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))) = (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘𝑄))))
201		lgseisen.3	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ≠ 𝑄)
202		lgseisen.5	. . . . . . . 8 ⊢ 𝑀 = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2))
203		lgseisen.6	. . . . . . . 8 ⊢ 𝑆 = ((𝑄 · (2 · 𝑦)) mod 𝑃)
204	6, 63, 201, 95, 202, 203, 8, 14, 22	lgseisenlem3 27611	. . . . . . 7 ⊢ (𝜑 → (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (1_r‘𝑌))
205	204	oveq2d 7432	. . . . . 6 ⊢ (𝜑 → ((𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(._r‘𝑌)(𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))) = ((𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(._r‘𝑌)(1_r‘𝑌)))
206	113, 200, 205	3eqtr3rd 2806	. . . . 5 ⊢ (𝜑 → ((𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(._r‘𝑌)(1_r‘𝑌)) = (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘𝑄))))
207		eqid 2762	. . . . . . 7 ⊢ (0_g‘𝐺) = (0_g‘𝐺)
208	93	fmpttd 7111	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))):(1...((𝑃 − 1) / 2))⟶(Base‘𝑌))
209		fvexd 6897	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ∈ V)
210		fvexd 6897	. . . . . . . 8 ⊢ (𝜑 → (0_g‘𝐺) ∈ V)
211	111, 19, 209, 210	fsuppmptdm 9349	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) finSupp (0_g‘𝐺))
212	87, 207, 16, 19, 208, 211	gsumcl 20043	. . . . . 6 ⊢ (𝜑 → (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) ∈ (Base‘𝑌))
213		eqid 2762	. . . . . . 7 ⊢ (1_r‘𝑌) = (1_r‘𝑌)
214	25, 88, 213	ringridm 20412	. . . . . 6 ⊢ ((𝑌 ∈ Ring ∧ (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) ∈ (Base‘𝑌)) → ((𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(._r‘𝑌)(1_r‘𝑌)) = (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
215	21, 212, 214	syl2anc 596	. . . . 5 ⊢ (𝜑 → ((𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(._r‘𝑌)(1_r‘𝑌)) = (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
216	96, 98	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ ℤ)
217	27, 216	ffvelcdmd 7081	. . . . . . 7 ⊢ (𝜑 → (𝐿‘𝑄) ∈ (Base‘𝑌))
218		eqid 2762	. . . . . . . 8 ⊢ (._g‘𝐺) = (._g‘𝐺)
219	87, 218	gsumconst 20062	. . . . . . 7 ⊢ ((𝐺 ∈ Mnd ∧ (1...((𝑃 − 1) / 2)) ∈ Fin ∧ (𝐿‘𝑄) ∈ (Base‘𝑌)) → (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘𝑄))) = ((♯‘(1...((𝑃 − 1) / 2)))(._g‘𝐺)(𝐿‘𝑄)))
220	18, 19, 217, 219	syl3anc 1398	. . . . . 6 ⊢ (𝜑 → (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘𝑄))) = ((♯‘(1...((𝑃 − 1) / 2)))(._g‘𝐺)(𝐿‘𝑄)))
221		oddprm 16906	. . . . . . . . . 10 ⊢ (𝑃 ∈ (ℙ ∖ {2}) → ((𝑃 − 1) / 2) ∈ ℕ)
222	6, 221	syl 18	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 − 1) / 2) ∈ ℕ)
223	222	nnnn0d 12592	. . . . . . . 8 ⊢ (𝜑 → ((𝑃 − 1) / 2) ∈ ℕ₀)
224		hashfz1 14412	. . . . . . . 8 ⊢ (((𝑃 − 1) / 2) ∈ ℕ₀ → (♯‘(1...((𝑃 − 1) / 2))) = ((𝑃 − 1) / 2))
225	223, 224	syl 18	. . . . . . 7 ⊢ (𝜑 → (♯‘(1...((𝑃 − 1) / 2))) = ((𝑃 − 1) / 2))
226	225	oveq1d 7431	. . . . . 6 ⊢ (𝜑 → ((♯‘(1...((𝑃 − 1) / 2)))(._g‘𝐺)(𝐿‘𝑄)) = (((𝑃 − 1) / 2)(._g‘𝐺)(𝐿‘𝑄)))
227	31, 1	mgpbas 20279	. . . . . . . . 9 ⊢ ℤ = (Base‘((mulGrp‘ℂ_fld) ↾_s ℤ))
228		eqid 2762	. . . . . . . . 9 ⊢ (._g‘((mulGrp‘ℂ_fld) ↾_s ℤ)) = (._g‘((mulGrp‘ℂ_fld) ↾_s ℤ))
229	227, 228, 218	mhmmulg 19239	. . . . . . . 8 ⊢ ((𝐿 ∈ (((mulGrp‘ℂ_fld) ↾_s ℤ) MndHom 𝐺) ∧ ((𝑃 − 1) / 2) ∈ ℕ₀ ∧ 𝑄 ∈ ℤ) → (𝐿‘(((𝑃 − 1) / 2)(._g‘((mulGrp‘ℂ_fld) ↾_s ℤ))𝑄)) = (((𝑃 − 1) / 2)(._g‘𝐺)(𝐿‘𝑄)))
230	33, 223, 216, 229	syl3anc 1398	. . . . . . 7 ⊢ (𝜑 → (𝐿‘(((𝑃 − 1) / 2)(._g‘((mulGrp‘ℂ_fld) ↾_s ℤ))𝑄)) = (((𝑃 − 1) / 2)(._g‘𝐺)(𝐿‘𝑄)))
231	53	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)))
232		eqid 2762	. . . . . . . . . . 11 ⊢ (._g‘(mulGrp‘ℂ_fld)) = (._g‘(mulGrp‘ℂ_fld))
233	232, 56, 228	submmulg 19242	. . . . . . . . . 10 ⊢ ((ℤ ∈ (SubMnd‘(mulGrp‘ℂ_fld)) ∧ ((𝑃 − 1) / 2) ∈ ℕ₀ ∧ 𝑄 ∈ ℤ) → (((𝑃 − 1) / 2)(._g‘(mulGrp‘ℂ_fld))𝑄) = (((𝑃 − 1) / 2)(._g‘((mulGrp‘ℂ_fld) ↾_s ℤ))𝑄))
234	231, 223, 216, 233	syl3anc 1398	. . . . . . . . 9 ⊢ (𝜑 → (((𝑃 − 1) / 2)(._g‘(mulGrp‘ℂ_fld))𝑄) = (((𝑃 − 1) / 2)(._g‘((mulGrp‘ℂ_fld) ↾_s ℤ))𝑄))
235	216	zcnd 12729	. . . . . . . . . 10 ⊢ (𝜑 → 𝑄 ∈ ℂ)
236		cnfldexp 21619	. . . . . . . . . 10 ⊢ ((𝑄 ∈ ℂ ∧ ((𝑃 − 1) / 2) ∈ ℕ₀) → (((𝑃 − 1) / 2)(._g‘(mulGrp‘ℂ_fld))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
237	235, 223, 236	syl2anc 596	. . . . . . . . 9 ⊢ (𝜑 → (((𝑃 − 1) / 2)(._g‘(mulGrp‘ℂ_fld))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
238	234, 237	eqtr3d 2799	. . . . . . . 8 ⊢ (𝜑 → (((𝑃 − 1) / 2)(._g‘((mulGrp‘ℂ_fld) ↾_s ℤ))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
239	238	fveq2d 6886	. . . . . . 7 ⊢ (𝜑 → (𝐿‘(((𝑃 − 1) / 2)(._g‘((mulGrp‘ℂ_fld) ↾_s ℤ))𝑄)) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
240	230, 239	eqtr3d 2799	. . . . . 6 ⊢ (𝜑 → (((𝑃 − 1) / 2)(._g‘𝐺)(𝐿‘𝑄)) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
241	220, 226, 240	3eqtrd 2801	. . . . 5 ⊢ (𝜑 → (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘𝑄))) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
242	206, 215, 241	3eqtr3d 2805	. . . 4 ⊢ (𝜑 → (𝐺 Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
243		subrgsubg 20740	. . . . . . . . . 10 ⊢ (ℤ ∈ (SubRing‘ℂ_fld) → ℤ ∈ (SubGrp‘ℂ_fld))
244	51, 243	ax-mp 5	. . . . . . . . 9 ⊢ ℤ ∈ (SubGrp‘ℂ_fld)
245		subgsubm 19273	. . . . . . . . 9 ⊢ (ℤ ∈ (SubGrp‘ℂ_fld) → ℤ ∈ (SubMnd‘ℂ_fld))
246	244, 245	mp1i 14	. . . . . . . 8 ⊢ (𝜑 → ℤ ∈ (SubMnd‘ℂ_fld))
247	76	fmpttd 7111	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))):(1...((𝑃 − 1) / 2))⟶ℤ)
248		df-zring 21661	. . . . . . . 8 ⊢ ℤ_ring = (ℂ_fld ↾_s ℤ)
249	19, 246, 247, 248	gsumsubm 18945	. . . . . . 7 ⊢ (𝜑 → (ℂ_fld Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = (ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
250	76	zcnd 12729	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℂ)
251	19, 250	gsumfsum 21648	. . . . . . 7 ⊢ (𝜑 → (ℂ_fld Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
252	249, 251	eqtr3d 2799	. . . . . 6 ⊢ (𝜑 → (ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
253	252	oveq2d 7432	. . . . 5 ⊢ (𝜑 → (-1↑(ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
254	253	fveq2d 6886	. . . 4 ⊢ (𝜑 → (𝐿‘(-1↑(ℤ_ring Σ_g (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
255	86, 242, 254	3eqtr3d 2805	. . 3 ⊢ (𝜑 → (𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
256	66	nnnn0d 12592	. . . 4 ⊢ (𝜑 → 𝑃 ∈ ℕ₀)
257		zexpcl 14142	. . . . 5 ⊢ ((𝑄 ∈ ℤ ∧ ((𝑃 − 1) / 2) ∈ ℕ₀) → (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ)
258	216, 223, 257	syl2anc 596	. . . 4 ⊢ (𝜑 → (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ)
259	19, 76	fsumzcl 15823	. . . . 5 ⊢ (𝜑 → Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)
260		m1expcl 14152	. . . . 5 ⊢ (Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ → (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
261	259, 260	syl 18	. . . 4 ⊢ (𝜑 → (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
262	8, 22	zndvds 21763	. . . 4 ⊢ ((𝑃 ∈ ℕ₀ ∧ (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ ∧ (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ) → ((𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
263	256, 258, 261, 262	syl3anc 1398	. . 3 ⊢ (𝜑 → ((𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
264	255, 263	mpbid 235	. 2 ⊢ (𝜑 → 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
265		moddvds 16357	. . 3 ⊢ ((𝑃 ∈ ℕ ∧ (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ ∧ (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ) → (((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
266	66, 258, 261, 265	syl3anc 1398	. 2 ⊢ (𝜑 → (((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
267	264, 266	mpbird 260	1 ⊢ (𝜑 → ((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ≠ wne 2957 Vcvv 3453 ∖ cdif 3899 ⊆ wss 3902 {csn 4587 class class class wbr 5107 ↦ cmpt 5190 ran crn 5660 ∘ ccom 5663 ⟶wf 6533 ‘cfv 6537 (class class class)co 7416 ∘_f cof 7679 Fincfn 8955 ℂcc 11125 ℝcr 11126 0cc0 11127 1c1 11128 + caddc 11130 · cmul 11132 − cmin 11468 -cneg 11469 / cdiv 11898 ℕcn 12260 2c2 12322 ℕ₀cn0 12531 ℤcz 12618 ℤ_≥cuz 12890 ℝ⁺crp 13044 ...cfz 13563 ⌊cfl 13853 mod cmo 13932 ↑cexp 14127 ♯chash 14396 Σcsu 15775 ∥ cdvds 16346 ℙcprime 16765 Basecbs 17305 ↾_s cress 17326 ._rcmulr 17347 0_gc0g 17528 Σ_g cgsu 17529 Mndcmnd 18838 MndHom cmhm 18890 SubMndcsubmnd 18891 ._gcmg 19191 SubGrpcsubg 19244 GrpHom cghm 19341 CMndccmn 19908 Abelcabl 19909 mulGrpcmgp 20274 1_rcur 20321 Ringcrg 20373 CRingccrg 20374 RingHom crh 20611 SubRingcsubrg 20732 DivRingcdr 20891 Fieldcfield 20892 ℂ_fldccnfld 21586 ℤ_ringczring 21660 ℤRHomczrh 21713 ℤ/nℤczn 21716

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 2215 ax-ext 2734 ax-rep 5236 ax-sep 5255 ax-nul 5267 ax-pow 5334 ax-pr 5402 ax-un 7739 ax-inf2 9623 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205 ax-addf 11206 ax-mulf 11207

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 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3064 df-ral 3079 df-rex 3089 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4283 df-if 4486 df-pw 4562 df-sn 4588 df-pr 4590 df-tp 4592 df-op 4594 df-uni 4871 df-int 4911 df-iun 4956 df-br 5108 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5554 df-eprel 5559 df-po 5567 df-so 5568 df-fr 5612 df-se 5613 df-we 5614 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-isom 6546 df-riota 7373 df-ov 7419 df-oprab 7420 df-mpo 7421 df-of 7681 df-om 7866 df-1st 7989 df-2nd 7990 df-supp 8162 df-tpos 8227 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8458 df-2o 8459 df-oadd 8462 df-er 8699 df-ec 8701 df-qs 8705 df-map 8831 df-en 8956 df-dom 8957 df-sdom 8958 df-fin 8959 df-fsupp 9335 df-sup 9415 df-inf 9416 df-oi 9485 df-dju 9909 df-card 9947 df-pnf 11272 df-mnf 11273 df-xr 11274 df-ltxr 11275 df-le 11276 df-sub 11470 df-neg 11471 df-div 11899 df-nn 12261 df-2 12330 df-3 12331 df-4 12332 df-5 12333 df-6 12334 df-7 12335 df-8 12336 df-9 12337 df-n0 12532 df-xnn0 12605 df-z 12619 df-dec 12740 df-uz 12891 df-rp 13045 df-fz 13564 df-fzo 13712 df-fl 13855 df-mod 13933 df-seq 14068 df-exp 14128 df-hash 14397 df-cj 15188 df-re 15189 df-im 15190 df-sqrt 15324 df-abs 15325 df-clim 15577 df-sum 15776 df-dvds 16347 df-gcd 16589 df-prm 16766 df-struct 17243 df-sets 17260 df-slot 17278 df-ndx 17290 df-base 17306 df-ress 17327 df-plusg 17359 df-mulr 17360 df-starv 17361 df-sca 17362 df-vsca 17363 df-ip 17364 df-tset 17365 df-ple 17366 df-ds 17368 df-unif 17369 df-0g 17530 df-gsum 17531 df-imas 17598 df-qus 17599 df-mgm 18734 df-sgrp 18823 df-mnd 18839 df-mhm 18892 df-submnd 18893 df-grp 19061 df-minusg 19062 df-sbg 19063 df-mulg 19192 df-subg 19247 df-nsg 19248 df-eqg 19249 df-ghm 19342 df-cntz 19445 df-cmn 19910 df-abl 19911 df-mgp 20275 df-rng 20289 df-ur 20322 df-ring 20375 df-cring 20376 df-oppr 20479 df-dvdsr 20499 df-unit 20500 df-invr 20530 df-dvr 20543 df-rhm 20614 df-nzr 20674 df-subrng 20709 df-subrg 20733 df-rlreg 20857 df-domn 20858 df-idom 20859 df-drng 20893 df-field 20894 df-lmod 21047 df-lss 21117 df-lsp 21157 df-sra 21358 df-rgmod 21359 df-lidl 21396 df-rsp 21397 df-2idl 21453 df-cnfld 21587 df-zring 21661 df-zrh 21717 df-zn 21720

This theorem is used by: lgseisen 27613

W3C validator