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

Theorem lgseisenlem4 25946
 Description: Lemma for lgseisen 25947. The function 𝑀 is an injection (and hence a bijection by the pigeonhole principle). (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.
StepHypRef Expression
1 zringbas 20615 . . . . 5 ℤ = (Base‘ℤring)
2 zring0 20619 . . . . 5 0 = (0g‘ℤring)
3 zringabl 20613 . . . . . 6 ring ∈ Abel
4 ablcmn 18905 . . . . . 6 (ℤring ∈ Abel → ℤring ∈ CMnd)
53, 4mp1i 13 . . . . 5 (𝜑 → ℤring ∈ CMnd)
6 lgseisen.1 . . . . . . . . . 10 (𝜑𝑃 ∈ (ℙ ∖ {2}))
76eldifad 3946 . . . . . . . . 9 (𝜑𝑃 ∈ ℙ)
8 lgseisen.7 . . . . . . . . . 10 𝑌 = (ℤ/nℤ‘𝑃)
98znfld 20699 . . . . . . . . 9 (𝑃 ∈ ℙ → 𝑌 ∈ Field)
107, 9syl 17 . . . . . . . 8 (𝜑𝑌 ∈ Field)
11 isfld 19503 . . . . . . . . 9 (𝑌 ∈ Field ↔ (𝑌 ∈ DivRing ∧ 𝑌 ∈ CRing))
1211simprbi 499 . . . . . . . 8 (𝑌 ∈ Field → 𝑌 ∈ CRing)
1310, 12syl 17 . . . . . . 7 (𝜑𝑌 ∈ CRing)
14 lgseisen.8 . . . . . . . 8 𝐺 = (mulGrp‘𝑌)
1514crngmgp 19297 . . . . . . 7 (𝑌 ∈ CRing → 𝐺 ∈ CMnd)
1613, 15syl 17 . . . . . 6 (𝜑𝐺 ∈ CMnd)
17 cmnmnd 18914 . . . . . 6 (𝐺 ∈ CMnd → 𝐺 ∈ Mnd)
1816, 17syl 17 . . . . 5 (𝜑𝐺 ∈ Mnd)
19 fzfid 13333 . . . . 5 (𝜑 → (1...((𝑃 − 1) / 2)) ∈ Fin)
20 crngring 19300 . . . . . . . . . 10 (𝑌 ∈ CRing → 𝑌 ∈ Ring)
2113, 20syl 17 . . . . . . . . 9 (𝜑𝑌 ∈ Ring)
22 lgseisen.9 . . . . . . . . . 10 𝐿 = (ℤRHom‘𝑌)
2322zrhrhm 20651 . . . . . . . . 9 (𝑌 ∈ Ring → 𝐿 ∈ (ℤring RingHom 𝑌))
2421, 23syl 17 . . . . . . . 8 (𝜑𝐿 ∈ (ℤring RingHom 𝑌))
25 eqid 2819 . . . . . . . . 9 (Base‘𝑌) = (Base‘𝑌)
261, 25rhmf 19470 . . . . . . . 8 (𝐿 ∈ (ℤring RingHom 𝑌) → 𝐿:ℤ⟶(Base‘𝑌))
2724, 26syl 17 . . . . . . 7 (𝜑𝐿:ℤ⟶(Base‘𝑌))
28 m1expcl 13444 . . . . . . . 8 (𝑘 ∈ ℤ → (-1↑𝑘) ∈ ℤ)
2928adantl 484 . . . . . . 7 ((𝜑𝑘 ∈ ℤ) → (-1↑𝑘) ∈ ℤ)
3027, 29cofmpt 6887 . . . . . 6 (𝜑 → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) = (𝑘 ∈ ℤ ↦ (𝐿‘(-1↑𝑘))))
31 zringmpg 20631 . . . . . . . . 9 ((mulGrp‘ℂfld) ↾s ℤ) = (mulGrp‘ℤring)
3231, 14rhmmhm 19466 . . . . . . . 8 (𝐿 ∈ (ℤring RingHom 𝑌) → 𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺))
3324, 32syl 17 . . . . . . 7 (𝜑𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺))
34 neg1cn 11743 . . . . . . . . . . 11 -1 ∈ ℂ
35 neg1ne0 11745 . . . . . . . . . . 11 -1 ≠ 0
36 eqid 2819 . . . . . . . . . . . 12 (mulGrp‘ℂfld) = (mulGrp‘ℂfld)
37 eqid 2819 . . . . . . . . . . . 12 ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})) = ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))
3836, 37expghm 20635 . . . . . . . . . . 11 ((-1 ∈ ℂ ∧ -1 ≠ 0) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring GrpHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))))
3934, 35, 38mp2an 690 . . . . . . . . . 10 (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring GrpHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})))
40 ghmmhm 18360 . . . . . . . . . 10 ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring GrpHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))))
4139, 40ax-mp 5 . . . . . . . . 9 (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})))
42 cnring 20559 . . . . . . . . . 10 fld ∈ Ring
43 cnfldbas 20541 . . . . . . . . . . . 12 ℂ = (Base‘ℂfld)
44 cnfld0 20561 . . . . . . . . . . . 12 0 = (0g‘ℂfld)
45 cndrng 20566 . . . . . . . . . . . 12 fld ∈ DivRing
4643, 44, 45drngui 19500 . . . . . . . . . . 11 (ℂ ∖ {0}) = (Unit‘ℂfld)
4746, 36unitsubm 19412 . . . . . . . . . 10 (ℂfld ∈ Ring → (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld)))
4842, 47ax-mp 5 . . . . . . . . 9 (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld))
4937resmhm2 17978 . . . . . . . . 9 (((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))) ∧ (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld))) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld)))
5041, 48, 49mp2an 690 . . . . . . . 8 (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld))
51 zsubrg 20590 . . . . . . . . . 10 ℤ ∈ (SubRing‘ℂfld)
5236subrgsubm 19540 . . . . . . . . . 10 (ℤ ∈ (SubRing‘ℂfld) → ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)))
5351, 52ax-mp 5 . . . . . . . . 9 ℤ ∈ (SubMnd‘(mulGrp‘ℂfld))
5429fmpttd 6872 . . . . . . . . . 10 (𝜑 → (𝑘 ∈ ℤ ↦ (-1↑𝑘)):ℤ⟶ℤ)
5554frnd 6514 . . . . . . . . 9 (𝜑 → ran (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ⊆ ℤ)
56 eqid 2819 . . . . . . . . . 10 ((mulGrp‘ℂfld) ↾s ℤ) = ((mulGrp‘ℂfld) ↾s ℤ)
5756resmhm2b 17979 . . . . . . . . 9 ((ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ ran (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ⊆ ℤ) → ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld)) ↔ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ))))
5853, 55, 57sylancr 589 . . . . . . . 8 (𝜑 → ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld)) ↔ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ))))
5950, 58mpbii 235 . . . . . . 7 (𝜑 → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ)))
60 mhmco 17980 . . . . . . 7 ((𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺) ∧ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ))) → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) ∈ (ℤring MndHom 𝐺))
6133, 59, 60syl2anc 586 . . . . . 6 (𝜑 → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) ∈ (ℤring MndHom 𝐺))
6230, 61eqeltrrd 2912 . . . . 5 (𝜑 → (𝑘 ∈ ℤ ↦ (𝐿‘(-1↑𝑘))) ∈ (ℤring MndHom 𝐺))
63 lgseisen.2 . . . . . . . . . . 11 (𝜑𝑄 ∈ (ℙ ∖ {2}))
6463gausslemma2dlem0a 25924 . . . . . . . . . 10 (𝜑𝑄 ∈ ℕ)
6564nnred 11645 . . . . . . . . 9 (𝜑𝑄 ∈ ℝ)
666gausslemma2dlem0a 25924 . . . . . . . . 9 (𝜑𝑃 ∈ ℕ)
6765, 66nndivred 11683 . . . . . . . 8 (𝜑 → (𝑄 / 𝑃) ∈ ℝ)
6867adantr 483 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 / 𝑃) ∈ ℝ)
69 2nn 11702 . . . . . . . . 9 2 ∈ ℕ
70 elfznn 12928 . . . . . . . . . 10 (𝑥 ∈ (1...((𝑃 − 1) / 2)) → 𝑥 ∈ ℕ)
7170adantl 484 . . . . . . . . 9 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℕ)
72 nnmulcl 11653 . . . . . . . . 9 ((2 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (2 · 𝑥) ∈ ℕ)
7369, 71, 72sylancr 589 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℕ)
7473nnred 11645 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℝ)
7568, 74remulcld 10663 . . . . . 6 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 / 𝑃) · (2 · 𝑥)) ∈ ℝ)
7675flcld 13160 . . . . 5 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)
77 eqid 2819 . . . . . 6 (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
78 fvexd 6678 . . . . . 6 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ V)
79 c0ex 10627 . . . . . . 7 0 ∈ V
8079a1i 11 . . . . . 6 (𝜑 → 0 ∈ V)
8177, 19, 78, 80fsuppmptdm 8836 . . . . 5 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) finSupp 0)
82 oveq2 7156 . . . . . 6 (𝑘 = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) → (-1↑𝑘) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
8382fveq2d 6667 . . . . 5 (𝑘 = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) → (𝐿‘(-1↑𝑘)) = (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
84 oveq2 7156 . . . . . 6 (𝑘 = (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) → (-1↑𝑘) = (-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
8584fveq2d 6667 . . . . 5 (𝑘 = (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) → (𝐿‘(-1↑𝑘)) = (𝐿‘(-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
861, 2, 5, 18, 19, 62, 76, 81, 83, 85gsummhm2 19051 . . . 4 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
8714, 25mgpbas 19237 . . . . . . 7 (Base‘𝑌) = (Base‘𝐺)
88 eqid 2819 . . . . . . . 8 (.r𝑌) = (.r𝑌)
8914, 88mgpplusg 19235 . . . . . . 7 (.r𝑌) = (+g𝐺)
9027adantr 483 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝐿:ℤ⟶(Base‘𝑌))
91 m1expcl 13444 . . . . . . . . 9 ((⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
9276, 91syl 17 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
9390, 92ffvelrnd 6845 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ∈ (Base‘𝑌))
94 neg1z 12010 . . . . . . . . . 10 -1 ∈ ℤ
95 lgseisen.4 . . . . . . . . . . 11 𝑅 = ((𝑄 · (2 · 𝑥)) mod 𝑃)
9663eldifad 3946 . . . . . . . . . . . . . . 15 (𝜑𝑄 ∈ ℙ)
9796adantr 483 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℙ)
98 prmz 16011 . . . . . . . . . . . . . 14 (𝑄 ∈ ℙ → 𝑄 ∈ ℤ)
9997, 98syl 17 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℤ)
10073nnzd 12078 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℤ)
10199, 100zmulcld 12085 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℤ)
1027adantr 483 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℙ)
103 prmnn 16010 . . . . . . . . . . . . 13 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
104102, 103syl 17 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℕ)
105101, 104zmodcld 13252 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) ∈ ℕ0)
10695, 105eqeltrid 2915 . . . . . . . . . 10 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℕ0)
107 zexpcl 13436 . . . . . . . . . 10 ((-1 ∈ ℤ ∧ 𝑅 ∈ ℕ0) → (-1↑𝑅) ∈ ℤ)
10894, 106, 107sylancr 589 . . . . . . . . 9 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℤ)
109108, 99zmulcld 12085 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · 𝑄) ∈ ℤ)
11090, 109ffvelrnd 6845 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑𝑅) · 𝑄)) ∈ (Base‘𝑌))
111 eqid 2819 . . . . . . 7 (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
112 eqid 2819 . . . . . . 7 (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))
11387, 89, 16, 19, 93, 110, 111, 112gsummptfidmadd2 19038 . . . . . 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 2820 . . . . . . . . 9 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
115 eqidd 2820 . . . . . . . . 9 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))
11619, 93, 110, 114, 115offval2 7418 . . . . . . . 8 (𝜑 → ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘f (.r𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄)))))
11724adantr 483 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝐿 ∈ (ℤring RingHom 𝑌))
118 zringmulr 20618 . . . . . . . . . . . 12 · = (.r‘ℤring)
1191, 118, 88rhmmul 19471 . . . . . . . . . . 11 ((𝐿 ∈ (ℤring RingHom 𝑌) ∧ (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ ∧ ((-1↑𝑅) · 𝑄) ∈ ℤ) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄))))
120117, 92, 109, 119syl3anc 1366 . . . . . . . . . 10 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄))))
121101zred 12079 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℝ)
122104nnrpd 12421 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℝ+)
123 modval 13231 . . . . . . . . . . . . . . . . . . . 20 (((𝑄 · (2 · 𝑥)) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((𝑄 · (2 · 𝑥)) mod 𝑃) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
124121, 122, 123syl2anc 586 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
12595, 124syl5eq 2866 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
12699zcnd 12080 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℂ)
12773nncnd 11646 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℂ)
128104nncnd 11646 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℂ)
129104nnne0d 11679 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ≠ 0)
130126, 127, 128, 129div23d 11445 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) / 𝑃) = ((𝑄 / 𝑃) · (2 · 𝑥)))
131130fveq2d 6667 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)) = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
132131oveq2d 7164 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃))) = (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
133132oveq2d 7164 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
134125, 133eqtrd 2854 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
135134oveq2d 7164 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅) = ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
136 prmz 16011 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
137102, 136syl 17 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℤ)
138137, 76zmulcld 12085 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
139138zcnd 12080 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℂ)
140101zcnd 12080 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℂ)
141139, 140pncan3d 10992 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑄 · (2 · 𝑥)))
142 2cnd 11707 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℂ)
14371nncnd 11646 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℂ)
144126, 142, 143mul12d 10841 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) = (2 · (𝑄 · 𝑥)))
145135, 141, 1443eqtrd 2858 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅) = (2 · (𝑄 · 𝑥)))
146145oveq2d 7164 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = (-1↑(2 · (𝑄 · 𝑥))))
14734a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ∈ ℂ)
14835a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ≠ 0)
149106nn0zd 12077 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℤ)
150 expaddz 13465 . . . . . . . . . . . . . . . 16 (((-1 ∈ ℂ ∧ -1 ≠ 0) ∧ ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ ∧ 𝑅 ∈ ℤ)) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)))
151147, 148, 138, 149, 150syl22anc 836 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)))
152 expmulz 13467 . . . . . . . . . . . . . . . . . 18 (((-1 ∈ ℂ ∧ -1 ≠ 0) ∧ (𝑃 ∈ ℤ ∧ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
153147, 148, 137, 76, 152syl22anc 836 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
154 1cnd 10628 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 1 ∈ ℂ)
155 eldifsni 4714 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑃 ∈ (ℙ ∖ {2}) → 𝑃 ≠ 2)
1566, 155syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑𝑃 ≠ 2)
157156necomd 3069 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 2 ≠ 𝑃)
158157neneqd 3019 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ¬ 2 = 𝑃)
159158adantr 483 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 2 = 𝑃)
160 2z 12006 . . . . . . . . . . . . . . . . . . . . . . 23 2 ∈ ℤ
161 uzid 12250 . . . . . . . . . . . . . . . . . . . . . . 23 (2 ∈ ℤ → 2 ∈ (ℤ‘2))
162160, 161ax-mp 5 . . . . . . . . . . . . . . . . . . . . . 22 2 ∈ (ℤ‘2)
163 dvdsprm 16039 . . . . . . . . . . . . . . . . . . . . . 22 ((2 ∈ (ℤ‘2) ∧ 𝑃 ∈ ℙ) → (2 ∥ 𝑃 ↔ 2 = 𝑃))
164162, 102, 163sylancr 589 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 ∥ 𝑃 ↔ 2 = 𝑃))
165159, 164mtbird 327 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 2 ∥ 𝑃)
166 oexpneg 15686 . . . . . . . . . . . . . . . . . . . 20 ((1 ∈ ℂ ∧ 𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → (-1↑𝑃) = -(1↑𝑃))
167154, 104, 165, 166syl3anc 1366 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑃) = -(1↑𝑃))
168 1exp 13450 . . . . . . . . . . . . . . . . . . . . 21 (𝑃 ∈ ℤ → (1↑𝑃) = 1)
169137, 168syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1↑𝑃) = 1)
170169negeqd 10872 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → -(1↑𝑃) = -1)
171167, 170eqtrd 2854 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑃) = -1)
172171oveq1d 7163 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
173153, 172eqtrd 2854 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
174173oveq1d 7163 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)))
175151, 174eqtrd 2854 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)))
176 nnmulcl 11653 . . . . . . . . . . . . . . . . . 18 ((𝑄 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (𝑄 · 𝑥) ∈ ℕ)
17764, 70, 176syl2an 597 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℕ)
178177nnnn0d 11947 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℕ0)
179 2nn0 11906 . . . . . . . . . . . . . . . . 17 2 ∈ ℕ0
180179a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℕ0)
181147, 178, 180expmuld 13505 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(2 · (𝑄 · 𝑥))) = ((-1↑2)↑(𝑄 · 𝑥)))
182 neg1sqe1 13551 . . . . . . . . . . . . . . . . 17 (-1↑2) = 1
183182oveq1i 7158 . . . . . . . . . . . . . . . 16 ((-1↑2)↑(𝑄 · 𝑥)) = (1↑(𝑄 · 𝑥))
184177nnzd 12078 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℤ)
185 1exp 13450 . . . . . . . . . . . . . . . . 17 ((𝑄 · 𝑥) ∈ ℤ → (1↑(𝑄 · 𝑥)) = 1)
186184, 185syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1↑(𝑄 · 𝑥)) = 1)
187183, 186syl5eq 2866 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑2)↑(𝑄 · 𝑥)) = 1)
188181, 187eqtrd 2854 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(2 · (𝑄 · 𝑥))) = 1)
189146, 175, 1883eqtr3d 2862 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) = 1)
190189oveq1d 7163 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) · 𝑄) = (1 · 𝑄))
19192zcnd 12080 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℂ)
192108zcnd 12080 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℂ)
193191, 192, 126mulassd 10656 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) · 𝑄) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄)))
194126mulid2d 10651 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1 · 𝑄) = 𝑄)
195190, 193, 1943eqtr3d 2862 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄)) = 𝑄)
196195fveq2d 6667 . . . . . . . . . 10 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = (𝐿𝑄))
197120, 196eqtr3d 2856 . . . . . . . . 9 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄))) = (𝐿𝑄))
198197mpteq2dva 5152 . . . . . . . 8 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄)))
199116, 198eqtrd 2854 . . . . . . 7 (𝜑 → ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘f (.r𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄)))
200199oveq2d 7164 . . . . . 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 𝑃)
2046, 63, 201, 95, 202, 203, 8, 14, 22lgseisenlem3 25945 . . . . . . 7 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (1r𝑌))
205204oveq2d 7164 . . . . . 6 (𝜑 → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))) = ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)))
206113, 200, 2053eqtr3rd 2863 . . . . 5 (𝜑 → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)) = (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))))
207 eqid 2819 . . . . . . 7 (0g𝐺) = (0g𝐺)
20893fmpttd 6872 . . . . . . 7 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))):(1...((𝑃 − 1) / 2))⟶(Base‘𝑌))
209 fvexd 6678 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ∈ V)
210 fvexd 6678 . . . . . . . 8 (𝜑 → (0g𝐺) ∈ V)
211111, 19, 209, 210fsuppmptdm 8836 . . . . . . 7 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) finSupp (0g𝐺))
21287, 207, 16, 19, 208, 211gsumcl 19027 . . . . . 6 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) ∈ (Base‘𝑌))
213 eqid 2819 . . . . . . 7 (1r𝑌) = (1r𝑌)
21425, 88, 213ringridm 19314 . . . . . 6 ((𝑌 ∈ Ring ∧ (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) ∈ (Base‘𝑌)) → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)) = (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
21521, 212, 214syl2anc 586 . . . . 5 (𝜑 → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)) = (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
21696, 98syl 17 . . . . . . . 8 (𝜑𝑄 ∈ ℤ)
21727, 216ffvelrnd 6845 . . . . . . 7 (𝜑 → (𝐿𝑄) ∈ (Base‘𝑌))
218 eqid 2819 . . . . . . . 8 (.g𝐺) = (.g𝐺)
21987, 218gsumconst 19046 . . . . . . 7 ((𝐺 ∈ Mnd ∧ (1...((𝑃 − 1) / 2)) ∈ Fin ∧ (𝐿𝑄) ∈ (Base‘𝑌)) → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))) = ((♯‘(1...((𝑃 − 1) / 2)))(.g𝐺)(𝐿𝑄)))
22018, 19, 217, 219syl3anc 1366 . . . . . 6 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))) = ((♯‘(1...((𝑃 − 1) / 2)))(.g𝐺)(𝐿𝑄)))
221 oddprm 16139 . . . . . . . . . 10 (𝑃 ∈ (ℙ ∖ {2}) → ((𝑃 − 1) / 2) ∈ ℕ)
2226, 221syl 17 . . . . . . . . 9 (𝜑 → ((𝑃 − 1) / 2) ∈ ℕ)
223222nnnn0d 11947 . . . . . . . 8 (𝜑 → ((𝑃 − 1) / 2) ∈ ℕ0)
224 hashfz1 13698 . . . . . . . 8 (((𝑃 − 1) / 2) ∈ ℕ0 → (♯‘(1...((𝑃 − 1) / 2))) = ((𝑃 − 1) / 2))
225223, 224syl 17 . . . . . . 7 (𝜑 → (♯‘(1...((𝑃 − 1) / 2))) = ((𝑃 − 1) / 2))
226225oveq1d 7163 . . . . . 6 (𝜑 → ((♯‘(1...((𝑃 − 1) / 2)))(.g𝐺)(𝐿𝑄)) = (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)))
22731, 1mgpbas 19237 . . . . . . . . 9 ℤ = (Base‘((mulGrp‘ℂfld) ↾s ℤ))
228 eqid 2819 . . . . . . . . 9 (.g‘((mulGrp‘ℂfld) ↾s ℤ)) = (.g‘((mulGrp‘ℂfld) ↾s ℤ))
229227, 228, 218mhmmulg 18260 . . . . . . . 8 ((𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺) ∧ ((𝑃 − 1) / 2) ∈ ℕ0𝑄 ∈ ℤ) → (𝐿‘(((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄)) = (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)))
23033, 223, 216, 229syl3anc 1366 . . . . . . 7 (𝜑 → (𝐿‘(((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄)) = (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)))
23153a1i 11 . . . . . . . . . 10 (𝜑 → ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)))
232 eqid 2819 . . . . . . . . . . 11 (.g‘(mulGrp‘ℂfld)) = (.g‘(mulGrp‘ℂfld))
233232, 56, 228submmulg 18263 . . . . . . . . . 10 ((ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ ((𝑃 − 1) / 2) ∈ ℕ0𝑄 ∈ ℤ) → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄))
234231, 223, 216, 233syl3anc 1366 . . . . . . . . 9 (𝜑 → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄))
235216zcnd 12080 . . . . . . . . . 10 (𝜑𝑄 ∈ ℂ)
236 cnfldexp 20570 . . . . . . . . . 10 ((𝑄 ∈ ℂ ∧ ((𝑃 − 1) / 2) ∈ ℕ0) → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
237235, 223, 236syl2anc 586 . . . . . . . . 9 (𝜑 → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
238234, 237eqtr3d 2856 . . . . . . . 8 (𝜑 → (((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
239238fveq2d 6667 . . . . . . 7 (𝜑 → (𝐿‘(((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄)) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
240230, 239eqtr3d 2856 . . . . . 6 (𝜑 → (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
241220, 226, 2403eqtrd 2858 . . . . 5 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
242206, 215, 2413eqtr3d 2862 . . . 4 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
243 subrgsubg 19533 . . . . . . . . . 10 (ℤ ∈ (SubRing‘ℂfld) → ℤ ∈ (SubGrp‘ℂfld))
24451, 243ax-mp 5 . . . . . . . . 9 ℤ ∈ (SubGrp‘ℂfld)
245 subgsubm 18293 . . . . . . . . 9 (ℤ ∈ (SubGrp‘ℂfld) → ℤ ∈ (SubMnd‘ℂfld))
246244, 245mp1i 13 . . . . . . . 8 (𝜑 → ℤ ∈ (SubMnd‘ℂfld))
24776fmpttd 6872 . . . . . . . 8 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))):(1...((𝑃 − 1) / 2))⟶ℤ)
248 df-zring 20610 . . . . . . . 8 ring = (ℂflds ℤ)
24919, 246, 247, 248gsumsubm 17991 . . . . . . 7 (𝜑 → (ℂfld Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
25076zcnd 12080 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℂ)
25119, 250gsumfsum 20604 . . . . . . 7 (𝜑 → (ℂfld Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
252249, 251eqtr3d 2856 . . . . . 6 (𝜑 → (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
253252oveq2d 7164 . . . . 5 (𝜑 → (-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
254253fveq2d 6667 . . . 4 (𝜑 → (𝐿‘(-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
25586, 242, 2543eqtr3d 2862 . . 3 (𝜑 → (𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
25666nnnn0d 11947 . . . 4 (𝜑𝑃 ∈ ℕ0)
257 zexpcl 13436 . . . . 5 ((𝑄 ∈ ℤ ∧ ((𝑃 − 1) / 2) ∈ ℕ0) → (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ)
258216, 223, 257syl2anc 586 . . . 4 (𝜑 → (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ)
25919, 76fsumzcl 15084 . . . . 5 (𝜑 → Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)
260 m1expcl 13444 . . . . 5 𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ → (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
261259, 260syl 17 . . . 4 (𝜑 → (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
2628, 22zndvds 20688 . . . 4 ((𝑃 ∈ ℕ0 ∧ (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ ∧ (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ) → ((𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
263256, 258, 261, 262syl3anc 1366 . . 3 (𝜑 → ((𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
264255, 263mpbid 234 . 2 (𝜑𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
265 moddvds 15610 . . 3 ((𝑃 ∈ ℕ ∧ (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ ∧ (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ) → (((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
26666, 258, 261, 265syl3anc 1366 . 2 (𝜑 → (((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
267264, 266mpbird 259 1 (𝜑 → ((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃))
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1531   ∈ wcel 2108   ≠ wne 3014  Vcvv 3493   ∖ cdif 3931   ⊆ wss 3934  {csn 4559   class class class wbr 5057   ↦ cmpt 5137  ran crn 5549   ∘ ccom 5552  ⟶wf 6344  ‘cfv 6348  (class class class)co 7148   ∘f cof 7399  Fincfn 8501  ℂcc 10527  ℝcr 10528  0cc0 10529  1c1 10530   + caddc 10532   · cmul 10534   − cmin 10862  -cneg 10863   / cdiv 11289  ℕcn 11630  2c2 11684  ℕ0cn0 11889  ℤcz 11973  ℤ≥cuz 12235  ℝ+crp 12381  ...cfz 12884  ⌊cfl 13152   mod cmo 13229  ↑cexp 13421  ♯chash 13682  Σcsu 15034   ∥ cdvds 15599  ℙcprime 16007  Basecbs 16475   ↾s cress 16476  .rcmulr 16558  0gc0g 16705   Σg cgsu 16706  Mndcmnd 17903   MndHom cmhm 17946  SubMndcsubmnd 17947  .gcmg 18216  SubGrpcsubg 18265   GrpHom cghm 18347  CMndccmn 18898  Abelcabl 18899  mulGrpcmgp 19231  1rcur 19243  Ringcrg 19289  CRingccrg 19290   RingHom crh 19456  DivRingcdr 19494  Fieldcfield 19495  SubRingcsubrg 19523  ℂfldccnfld 20537  ℤringzring 20609  ℤRHomczrh 20639  ℤ/nℤczn 20642 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1905  ax-6 1964  ax-7 2009  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2154  ax-12 2170  ax-ext 2791  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7453  ax-inf2 9096  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606  ax-pre-sup 10607  ax-addf 10608  ax-mulf 10609 This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1083  df-3an 1084  df-tru 1534  df-fal 1544  df-ex 1775  df-nf 1779  df-sb 2064  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-nel 3122  df-ral 3141  df-rex 3142  df-reu 3143  df-rmo 3144  df-rab 3145  df-v 3495  df-sbc 3771  df-csb 3882  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-pss 3952  df-nul 4290  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4831  df-int 4868  df-iun 4912  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-se 5508  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141  df-ord 6187  df-on 6188  df-lim 6189  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-isom 6357  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-of 7401  df-om 7573  df-1st 7681  df-2nd 7682  df-supp 7823  df-tpos 7884  df-wrecs 7939  df-recs 8000  df-rdg 8038  df-1o 8094  df-2o 8095  df-oadd 8098  df-er 8281  df-ec 8283  df-qs 8287  df-map 8400  df-en 8502  df-dom 8503  df-sdom 8504  df-fin 8505  df-fsupp 8826  df-sup 8898  df-inf 8899  df-oi 8966  df-dju 9322  df-card 9360  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-div 11290  df-nn 11631  df-2 11692  df-3 11693  df-4 11694  df-5 11695  df-6 11696  df-7 11697  df-8 11698  df-9 11699  df-n0 11890  df-xnn0 11960  df-z 11974  df-dec 12091  df-uz 12236  df-rp 12382  df-fz 12885  df-fzo 13026  df-fl 13154  df-mod 13230  df-seq 13362  df-exp 13422  df-hash 13683  df-cj 14450  df-re 14451  df-im 14452  df-sqrt 14586  df-abs 14587  df-clim 14837  df-sum 15035  df-dvds 15600  df-gcd 15836  df-prm 16008  df-struct 16477  df-ndx 16478  df-slot 16479  df-base 16481  df-sets 16482  df-ress 16483  df-plusg 16570  df-mulr 16571  df-starv 16572  df-sca 16573  df-vsca 16574  df-ip 16575  df-tset 16576  df-ple 16577  df-ds 16579  df-unif 16580  df-0g 16707  df-gsum 16708  df-imas 16773  df-qus 16774  df-mgm 17844  df-sgrp 17893  df-mnd 17904  df-mhm 17948  df-submnd 17949  df-grp 18098  df-minusg 18099  df-sbg 18100  df-mulg 18217  df-subg 18268  df-nsg 18269  df-eqg 18270  df-ghm 18348  df-cntz 18439  df-cmn 18900  df-abl 18901  df-mgp 19232  df-ur 19244  df-ring 19291  df-cring 19292  df-oppr 19365  df-dvdsr 19383  df-unit 19384  df-invr 19414  df-dvr 19425  df-rnghom 19459  df-drng 19496  df-field 19497  df-subrg 19525  df-lmod 19628  df-lss 19696  df-lsp 19736  df-sra 19936  df-rgmod 19937  df-lidl 19938  df-rsp 19939  df-2idl 19997  df-nzr 20023  df-rlreg 20048  df-domn 20049  df-idom 20050  df-cnfld 20538  df-zring 20610  df-zrh 20643  df-zn 20646 This theorem is referenced by:  lgseisen  25947
 Copyright terms: Public domain W3C validator