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

Theorem lgseisenlem4 25298
Description: Lemma for lgseisen 25299. 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 20022 . . . . 5 ℤ = (Base‘ℤring)
2 zring0 20026 . . . . 5 0 = (0g‘ℤring)
3 zringabl 20020 . . . . . 6 ring ∈ Abel
4 ablcmn 18395 . . . . . 6 (ℤring ∈ Abel → ℤring ∈ CMnd)
53, 4mp1i 13 . . . . 5 (𝜑 → ℤring ∈ CMnd)
6 lgseisen.1 . . . . . . . . . 10 (𝜑𝑃 ∈ (ℙ ∖ {2}))
76eldifad 3723 . . . . . . . . 9 (𝜑𝑃 ∈ ℙ)
8 lgseisen.7 . . . . . . . . . 10 𝑌 = (ℤ/nℤ‘𝑃)
98znfld 20107 . . . . . . . . 9 (𝑃 ∈ ℙ → 𝑌 ∈ Field)
107, 9syl 17 . . . . . . . 8 (𝜑𝑌 ∈ Field)
11 isfld 18954 . . . . . . . . 9 (𝑌 ∈ Field ↔ (𝑌 ∈ DivRing ∧ 𝑌 ∈ CRing))
1211simprbi 483 . . . . . . . 8 (𝑌 ∈ Field → 𝑌 ∈ CRing)
1310, 12syl 17 . . . . . . 7 (𝜑𝑌 ∈ CRing)
14 lgseisen.8 . . . . . . . 8 𝐺 = (mulGrp‘𝑌)
1514crngmgp 18751 . . . . . . 7 (𝑌 ∈ CRing → 𝐺 ∈ CMnd)
1613, 15syl 17 . . . . . 6 (𝜑𝐺 ∈ CMnd)
17 cmnmnd 18404 . . . . . 6 (𝐺 ∈ CMnd → 𝐺 ∈ Mnd)
1816, 17syl 17 . . . . 5 (𝜑𝐺 ∈ Mnd)
19 fzfid 12962 . . . . 5 (𝜑 → (1...((𝑃 − 1) / 2)) ∈ Fin)
20 m1expcl 13073 . . . . . . . 8 (𝑘 ∈ ℤ → (-1↑𝑘) ∈ ℤ)
2120adantl 473 . . . . . . 7 ((𝜑𝑘 ∈ ℤ) → (-1↑𝑘) ∈ ℤ)
22 eqidd 2757 . . . . . . 7 (𝜑 → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) = (𝑘 ∈ ℤ ↦ (-1↑𝑘)))
23 crngring 18754 . . . . . . . . . . 11 (𝑌 ∈ CRing → 𝑌 ∈ Ring)
2413, 23syl 17 . . . . . . . . . 10 (𝜑𝑌 ∈ Ring)
25 lgseisen.9 . . . . . . . . . . 11 𝐿 = (ℤRHom‘𝑌)
2625zrhrhm 20058 . . . . . . . . . 10 (𝑌 ∈ Ring → 𝐿 ∈ (ℤring RingHom 𝑌))
2724, 26syl 17 . . . . . . . . 9 (𝜑𝐿 ∈ (ℤring RingHom 𝑌))
28 eqid 2756 . . . . . . . . . 10 (Base‘𝑌) = (Base‘𝑌)
291, 28rhmf 18924 . . . . . . . . 9 (𝐿 ∈ (ℤring RingHom 𝑌) → 𝐿:ℤ⟶(Base‘𝑌))
3027, 29syl 17 . . . . . . . 8 (𝜑𝐿:ℤ⟶(Base‘𝑌))
3130feqmptd 6407 . . . . . . 7 (𝜑𝐿 = (𝑥 ∈ ℤ ↦ (𝐿𝑥)))
32 fveq2 6348 . . . . . . 7 (𝑥 = (-1↑𝑘) → (𝐿𝑥) = (𝐿‘(-1↑𝑘)))
3321, 22, 31, 32fmptco 6555 . . . . . 6 (𝜑 → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) = (𝑘 ∈ ℤ ↦ (𝐿‘(-1↑𝑘))))
34 zringmpg 20038 . . . . . . . . 9 ((mulGrp‘ℂfld) ↾s ℤ) = (mulGrp‘ℤring)
3534, 14rhmmhm 18920 . . . . . . . 8 (𝐿 ∈ (ℤring RingHom 𝑌) → 𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺))
3627, 35syl 17 . . . . . . 7 (𝜑𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺))
37 neg1cn 11312 . . . . . . . . . . 11 -1 ∈ ℂ
38 neg1ne0 11314 . . . . . . . . . . 11 -1 ≠ 0
39 eqid 2756 . . . . . . . . . . . 12 (mulGrp‘ℂfld) = (mulGrp‘ℂfld)
40 eqid 2756 . . . . . . . . . . . 12 ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})) = ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))
4139, 40expghm 20042 . . . . . . . . . . 11 ((-1 ∈ ℂ ∧ -1 ≠ 0) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring GrpHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))))
4237, 38, 41mp2an 710 . . . . . . . . . 10 (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring GrpHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})))
43 ghmmhm 17867 . . . . . . . . . 10 ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring GrpHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))))
4442, 43ax-mp 5 . . . . . . . . 9 (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})))
45 cnring 19966 . . . . . . . . . 10 fld ∈ Ring
46 cnfldbas 19948 . . . . . . . . . . . 12 ℂ = (Base‘ℂfld)
47 cnfld0 19968 . . . . . . . . . . . 12 0 = (0g‘ℂfld)
48 cndrng 19973 . . . . . . . . . . . 12 fld ∈ DivRing
4946, 47, 48drngui 18951 . . . . . . . . . . 11 (ℂ ∖ {0}) = (Unit‘ℂfld)
5049, 39unitsubm 18866 . . . . . . . . . 10 (ℂfld ∈ Ring → (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld)))
5145, 50ax-mp 5 . . . . . . . . 9 (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld))
5240resmhm2 17557 . . . . . . . . 9 (((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))) ∧ (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld))) → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld)))
5344, 51, 52mp2an 710 . . . . . . . 8 (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld))
54 zsubrg 19997 . . . . . . . . . 10 ℤ ∈ (SubRing‘ℂfld)
5539subrgsubm 18991 . . . . . . . . . 10 (ℤ ∈ (SubRing‘ℂfld) → ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)))
5654, 55ax-mp 5 . . . . . . . . 9 ℤ ∈ (SubMnd‘(mulGrp‘ℂfld))
57 eqid 2756 . . . . . . . . . . 11 (𝑘 ∈ ℤ ↦ (-1↑𝑘)) = (𝑘 ∈ ℤ ↦ (-1↑𝑘))
5821, 57fmptd 6544 . . . . . . . . . 10 (𝜑 → (𝑘 ∈ ℤ ↦ (-1↑𝑘)):ℤ⟶ℤ)
59 frn 6210 . . . . . . . . . 10 ((𝑘 ∈ ℤ ↦ (-1↑𝑘)):ℤ⟶ℤ → ran (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ⊆ ℤ)
6058, 59syl 17 . . . . . . . . 9 (𝜑 → ran (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ⊆ ℤ)
61 eqid 2756 . . . . . . . . . 10 ((mulGrp‘ℂfld) ↾s ℤ) = ((mulGrp‘ℂfld) ↾s ℤ)
6261resmhm2b 17558 . . . . . . . . 9 ((ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ ran (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ⊆ ℤ) → ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld)) ↔ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ))))
6356, 60, 62sylancr 698 . . . . . . . 8 (𝜑 → ((𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom (mulGrp‘ℂfld)) ↔ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ))))
6453, 63mpbii 223 . . . . . . 7 (𝜑 → (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ)))
65 mhmco 17559 . . . . . . 7 ((𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺) ∧ (𝑘 ∈ ℤ ↦ (-1↑𝑘)) ∈ (ℤring MndHom ((mulGrp‘ℂfld) ↾s ℤ))) → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) ∈ (ℤring MndHom 𝐺))
6636, 64, 65syl2anc 696 . . . . . 6 (𝜑 → (𝐿 ∘ (𝑘 ∈ ℤ ↦ (-1↑𝑘))) ∈ (ℤring MndHom 𝐺))
6733, 66eqeltrrd 2836 . . . . 5 (𝜑 → (𝑘 ∈ ℤ ↦ (𝐿‘(-1↑𝑘))) ∈ (ℤring MndHom 𝐺))
68 lgseisen.2 . . . . . . . . . . . 12 (𝜑𝑄 ∈ (ℙ ∖ {2}))
6968eldifad 3723 . . . . . . . . . . 11 (𝜑𝑄 ∈ ℙ)
70 prmnn 15586 . . . . . . . . . . 11 (𝑄 ∈ ℙ → 𝑄 ∈ ℕ)
7169, 70syl 17 . . . . . . . . . 10 (𝜑𝑄 ∈ ℕ)
7271nnred 11223 . . . . . . . . 9 (𝜑𝑄 ∈ ℝ)
73 prmnn 15586 . . . . . . . . . 10 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
747, 73syl 17 . . . . . . . . 9 (𝜑𝑃 ∈ ℕ)
7572, 74nndivred 11257 . . . . . . . 8 (𝜑 → (𝑄 / 𝑃) ∈ ℝ)
7675adantr 472 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 / 𝑃) ∈ ℝ)
77 2nn 11373 . . . . . . . . 9 2 ∈ ℕ
78 elfznn 12559 . . . . . . . . . 10 (𝑥 ∈ (1...((𝑃 − 1) / 2)) → 𝑥 ∈ ℕ)
7978adantl 473 . . . . . . . . 9 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℕ)
80 nnmulcl 11231 . . . . . . . . 9 ((2 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (2 · 𝑥) ∈ ℕ)
8177, 79, 80sylancr 698 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℕ)
8281nnred 11223 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℝ)
8376, 82remulcld 10258 . . . . . 6 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 / 𝑃) · (2 · 𝑥)) ∈ ℝ)
8483flcld 12789 . . . . 5 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)
85 eqid 2756 . . . . . 6 (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
86 fvexd 6360 . . . . . 6 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ V)
87 c0ex 10222 . . . . . . 7 0 ∈ V
8887a1i 11 . . . . . 6 (𝜑 → 0 ∈ V)
8985, 19, 86, 88fsuppmptdm 8447 . . . . 5 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) finSupp 0)
90 oveq2 6817 . . . . . 6 (𝑘 = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) → (-1↑𝑘) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
9190fveq2d 6352 . . . . 5 (𝑘 = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) → (𝐿‘(-1↑𝑘)) = (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
92 oveq2 6817 . . . . . 6 (𝑘 = (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) → (-1↑𝑘) = (-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
9392fveq2d 6352 . . . . 5 (𝑘 = (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) → (𝐿‘(-1↑𝑘)) = (𝐿‘(-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
941, 2, 5, 18, 19, 67, 84, 89, 91, 93gsummhm2 18535 . . . 4 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
9514, 28mgpbas 18691 . . . . . . 7 (Base‘𝑌) = (Base‘𝐺)
96 eqid 2756 . . . . . . . 8 (.r𝑌) = (.r𝑌)
9714, 96mgpplusg 18689 . . . . . . 7 (.r𝑌) = (+g𝐺)
9830adantr 472 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝐿:ℤ⟶(Base‘𝑌))
99 m1expcl 13073 . . . . . . . . 9 ((⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
10084, 99syl 17 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
10198, 100ffvelrnd 6519 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ∈ (Base‘𝑌))
102 neg1z 11601 . . . . . . . . . 10 -1 ∈ ℤ
103 lgseisen.4 . . . . . . . . . . 11 𝑅 = ((𝑄 · (2 · 𝑥)) mod 𝑃)
10469adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℙ)
105 prmz 15587 . . . . . . . . . . . . . 14 (𝑄 ∈ ℙ → 𝑄 ∈ ℤ)
106104, 105syl 17 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℤ)
10781nnzd 11669 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℤ)
108106, 107zmulcld 11676 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℤ)
1097adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℙ)
110109, 73syl 17 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℕ)
111108, 110zmodcld 12881 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) ∈ ℕ0)
112103, 111syl5eqel 2839 . . . . . . . . . 10 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℕ0)
113 zexpcl 13065 . . . . . . . . . 10 ((-1 ∈ ℤ ∧ 𝑅 ∈ ℕ0) → (-1↑𝑅) ∈ ℤ)
114102, 112, 113sylancr 698 . . . . . . . . 9 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℤ)
115114, 106zmulcld 11676 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑅) · 𝑄) ∈ ℤ)
11698, 115ffvelrnd 6519 . . . . . . 7 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑𝑅) · 𝑄)) ∈ (Base‘𝑌))
117 eqid 2756 . . . . . . 7 (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
118 eqid 2756 . . . . . . 7 (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))
11995, 97, 16, 19, 101, 116, 117, 118gsummptfidmadd2 18522 . . . . . 6 (𝜑 → (𝐺 Σg ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘𝑓 (.r𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))) = ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))))
120 eqidd 2757 . . . . . . . . 9 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
121 eqidd 2757 . . . . . . . . 9 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))
12219, 101, 116, 120, 121offval2 7075 . . . . . . . 8 (𝜑 → ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘𝑓 (.r𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄)))))
12327adantr 472 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝐿 ∈ (ℤring RingHom 𝑌))
124 zringmulr 20025 . . . . . . . . . . . 12 · = (.r‘ℤring)
1251, 124, 96rhmmul 18925 . . . . . . . . . . 11 ((𝐿 ∈ (ℤring RingHom 𝑌) ∧ (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ ∧ ((-1↑𝑅) · 𝑄) ∈ ℤ) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄))))
126123, 100, 115, 125syl3anc 1477 . . . . . . . . . 10 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄))))
127108zred 11670 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℝ)
128110nnrpd 12059 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℝ+)
129 modval 12860 . . . . . . . . . . . . . . . . . . . 20 (((𝑄 · (2 · 𝑥)) ∈ ℝ ∧ 𝑃 ∈ ℝ+) → ((𝑄 · (2 · 𝑥)) mod 𝑃) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
130127, 128, 129syl2anc 696 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) mod 𝑃) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
131103, 130syl5eq 2802 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))))
132106zcnd 11671 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑄 ∈ ℂ)
13381nncnd 11224 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 · 𝑥) ∈ ℂ)
134110nncnd 11224 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℂ)
135110nnne0d 11253 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ≠ 0)
136132, 133, 134, 135div23d 11026 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) / 𝑃) = ((𝑄 / 𝑃) · (2 · 𝑥)))
137136fveq2d 6352 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)) = (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
138137oveq2d 6825 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃))) = (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
139138oveq2d 6825 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 · (2 · 𝑥)) / 𝑃)))) = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
140131, 139eqtrd 2790 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 = ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
141140oveq2d 6825 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅) = ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
142 prmz 15587 . . . . . . . . . . . . . . . . . . . 20 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
143109, 142syl 17 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑃 ∈ ℤ)
144143, 84zmulcld 11676 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
145144zcnd 11671 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℂ)
146108zcnd 11671 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) ∈ ℂ)
147145, 146pncan3d 10583 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + ((𝑄 · (2 · 𝑥)) − (𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (𝑄 · (2 · 𝑥)))
148 2cnd 11281 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℂ)
14979nncnd 11224 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑥 ∈ ℂ)
150132, 148, 149mul12d 10433 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · (2 · 𝑥)) = (2 · (𝑄 · 𝑥)))
151141, 147, 1503eqtrd 2794 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅) = (2 · (𝑄 · 𝑥)))
152151oveq2d 6825 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = (-1↑(2 · (𝑄 · 𝑥))))
15337a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ∈ ℂ)
15438a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → -1 ≠ 0)
155112nn0zd 11668 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 𝑅 ∈ ℤ)
156 expaddz 13094 . . . . . . . . . . . . . . . 16 (((-1 ∈ ℂ ∧ -1 ≠ 0) ∧ ((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ ∧ 𝑅 ∈ ℤ)) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)))
157153, 154, 144, 155, 156syl22anc 1478 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)))
158 expmulz 13096 . . . . . . . . . . . . . . . . . 18 (((-1 ∈ ℂ ∧ -1 ≠ 0) ∧ (𝑃 ∈ ℤ ∧ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
159153, 154, 143, 84, 158syl22anc 1478 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
160 1cnd 10244 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 1 ∈ ℂ)
161 eldifsni 4462 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑃 ∈ (ℙ ∖ {2}) → 𝑃 ≠ 2)
1626, 161syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑𝑃 ≠ 2)
163162necomd 2983 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 2 ≠ 𝑃)
164163neneqd 2933 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ¬ 2 = 𝑃)
165164adantr 472 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 2 = 𝑃)
166 2z 11597 . . . . . . . . . . . . . . . . . . . . . . 23 2 ∈ ℤ
167 uzid 11890 . . . . . . . . . . . . . . . . . . . . . . 23 (2 ∈ ℤ → 2 ∈ (ℤ‘2))
168166, 167ax-mp 5 . . . . . . . . . . . . . . . . . . . . . 22 2 ∈ (ℤ‘2)
169 dvdsprm 15613 . . . . . . . . . . . . . . . . . . . . . 22 ((2 ∈ (ℤ‘2) ∧ 𝑃 ∈ ℙ) → (2 ∥ 𝑃 ↔ 2 = 𝑃))
170168, 109, 169sylancr 698 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (2 ∥ 𝑃 ↔ 2 = 𝑃))
171165, 170mtbird 314 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ¬ 2 ∥ 𝑃)
172 oexpneg 15267 . . . . . . . . . . . . . . . . . . . 20 ((1 ∈ ℂ ∧ 𝑃 ∈ ℕ ∧ ¬ 2 ∥ 𝑃) → (-1↑𝑃) = -(1↑𝑃))
173160, 110, 171, 172syl3anc 1477 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑃) = -(1↑𝑃))
174 1exp 13079 . . . . . . . . . . . . . . . . . . . . 21 (𝑃 ∈ ℤ → (1↑𝑃) = 1)
175143, 174syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1↑𝑃) = 1)
176175negeqd 10463 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → -(1↑𝑃) = -1)
177173, 176eqtrd 2790 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑃) = -1)
178177oveq1d 6824 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑𝑃)↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
179159, 178eqtrd 2790 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
180179oveq1d 6824 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) · (-1↑𝑅)) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)))
181157, 180eqtrd 2790 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑((𝑃 · (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) + 𝑅)) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)))
182 nnmulcl 11231 . . . . . . . . . . . . . . . . . 18 ((𝑄 ∈ ℕ ∧ 𝑥 ∈ ℕ) → (𝑄 · 𝑥) ∈ ℕ)
18371, 78, 182syl2an 495 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℕ)
184183nnnn0d 11539 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℕ0)
185 2nn0 11497 . . . . . . . . . . . . . . . . 17 2 ∈ ℕ0
186185a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → 2 ∈ ℕ0)
187153, 184, 186expmuld 13201 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(2 · (𝑄 · 𝑥))) = ((-1↑2)↑(𝑄 · 𝑥)))
188 neg1sqe1 13149 . . . . . . . . . . . . . . . . 17 (-1↑2) = 1
189188oveq1i 6819 . . . . . . . . . . . . . . . 16 ((-1↑2)↑(𝑄 · 𝑥)) = (1↑(𝑄 · 𝑥))
190183nnzd 11669 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝑄 · 𝑥) ∈ ℤ)
191 1exp 13079 . . . . . . . . . . . . . . . . 17 ((𝑄 · 𝑥) ∈ ℤ → (1↑(𝑄 · 𝑥)) = 1)
192190, 191syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1↑(𝑄 · 𝑥)) = 1)
193189, 192syl5eq 2802 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑2)↑(𝑄 · 𝑥)) = 1)
194187, 193eqtrd 2790 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(2 · (𝑄 · 𝑥))) = 1)
195152, 181, 1943eqtr3d 2798 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) = 1)
196195oveq1d 6824 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) · 𝑄) = (1 · 𝑄))
197100zcnd 11671 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℂ)
198114zcnd 11671 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (-1↑𝑅) ∈ ℂ)
199197, 198, 132mulassd 10251 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · (-1↑𝑅)) · 𝑄) = ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄)))
200132mulid2d 10246 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (1 · 𝑄) = 𝑄)
201196, 199, 2003eqtr3d 2798 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄)) = 𝑄)
202201fveq2d 6352 . . . . . . . . . 10 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘((-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) · ((-1↑𝑅) · 𝑄))) = (𝐿𝑄))
203126, 202eqtr3d 2792 . . . . . . . . 9 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄))) = (𝐿𝑄))
204203mpteq2dva 4892 . . . . . . . 8 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))(.r𝑌)(𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄)))
205122, 204eqtrd 2790 . . . . . . 7 (𝜑 → ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘𝑓 (.r𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄)))
206205oveq2d 6825 . . . . . 6 (𝜑 → (𝐺 Σg ((𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) ∘𝑓 (.r𝑌)(𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))) = (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))))
207 lgseisen.3 . . . . . . . 8 (𝜑𝑃𝑄)
208 lgseisen.5 . . . . . . . 8 𝑀 = (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ ((((-1↑𝑅) · 𝑅) mod 𝑃) / 2))
209 lgseisen.6 . . . . . . . 8 𝑆 = ((𝑄 · (2 · 𝑦)) mod 𝑃)
2106, 68, 207, 103, 208, 209, 8, 14, 25lgseisenlem3 25297 . . . . . . 7 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄)))) = (1r𝑌))
211210oveq2d 6825 . . . . . 6 (𝜑 → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘((-1↑𝑅) · 𝑄))))) = ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)))
212119, 206, 2113eqtr3rd 2799 . . . . 5 (𝜑 → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)) = (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))))
213 eqid 2756 . . . . . . 7 (0g𝐺) = (0g𝐺)
214101, 117fmptd 6544 . . . . . . 7 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))):(1...((𝑃 − 1) / 2))⟶(Base‘𝑌))
215 fvexd 6360 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ∈ V)
216 fvexd 6360 . . . . . . . 8 (𝜑 → (0g𝐺) ∈ V)
217117, 19, 215, 216fsuppmptdm 8447 . . . . . . 7 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) finSupp (0g𝐺))
21895, 213, 16, 19, 214, 217gsumcl 18512 . . . . . 6 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) ∈ (Base‘𝑌))
219 eqid 2756 . . . . . . 7 (1r𝑌) = (1r𝑌)
22028, 96, 219ringridm 18768 . . . . . 6 ((𝑌 ∈ Ring ∧ (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) ∈ (Base‘𝑌)) → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)) = (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
22124, 218, 220syl2anc 696 . . . . 5 (𝜑 → ((𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))(.r𝑌)(1r𝑌)) = (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))))
22269, 105syl 17 . . . . . . . 8 (𝜑𝑄 ∈ ℤ)
22330, 222ffvelrnd 6519 . . . . . . 7 (𝜑 → (𝐿𝑄) ∈ (Base‘𝑌))
224 eqid 2756 . . . . . . . 8 (.g𝐺) = (.g𝐺)
22595, 224gsumconst 18530 . . . . . . 7 ((𝐺 ∈ Mnd ∧ (1...((𝑃 − 1) / 2)) ∈ Fin ∧ (𝐿𝑄) ∈ (Base‘𝑌)) → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))) = ((♯‘(1...((𝑃 − 1) / 2)))(.g𝐺)(𝐿𝑄)))
22618, 19, 223, 225syl3anc 1477 . . . . . 6 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))) = ((♯‘(1...((𝑃 − 1) / 2)))(.g𝐺)(𝐿𝑄)))
227 oddprm 15713 . . . . . . . . . 10 (𝑃 ∈ (ℙ ∖ {2}) → ((𝑃 − 1) / 2) ∈ ℕ)
2286, 227syl 17 . . . . . . . . 9 (𝜑 → ((𝑃 − 1) / 2) ∈ ℕ)
229228nnnn0d 11539 . . . . . . . 8 (𝜑 → ((𝑃 − 1) / 2) ∈ ℕ0)
230 hashfz1 13324 . . . . . . . 8 (((𝑃 − 1) / 2) ∈ ℕ0 → (♯‘(1...((𝑃 − 1) / 2))) = ((𝑃 − 1) / 2))
231229, 230syl 17 . . . . . . 7 (𝜑 → (♯‘(1...((𝑃 − 1) / 2))) = ((𝑃 − 1) / 2))
232231oveq1d 6824 . . . . . 6 (𝜑 → ((♯‘(1...((𝑃 − 1) / 2)))(.g𝐺)(𝐿𝑄)) = (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)))
23334, 1mgpbas 18691 . . . . . . . . 9 ℤ = (Base‘((mulGrp‘ℂfld) ↾s ℤ))
234 eqid 2756 . . . . . . . . 9 (.g‘((mulGrp‘ℂfld) ↾s ℤ)) = (.g‘((mulGrp‘ℂfld) ↾s ℤ))
235233, 234, 224mhmmulg 17780 . . . . . . . 8 ((𝐿 ∈ (((mulGrp‘ℂfld) ↾s ℤ) MndHom 𝐺) ∧ ((𝑃 − 1) / 2) ∈ ℕ0𝑄 ∈ ℤ) → (𝐿‘(((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄)) = (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)))
23636, 229, 222, 235syl3anc 1477 . . . . . . 7 (𝜑 → (𝐿‘(((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄)) = (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)))
23756a1i 11 . . . . . . . . . 10 (𝜑 → ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)))
238 eqid 2756 . . . . . . . . . . 11 (.g‘(mulGrp‘ℂfld)) = (.g‘(mulGrp‘ℂfld))
239238, 61, 234submmulg 17783 . . . . . . . . . 10 ((ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ ((𝑃 − 1) / 2) ∈ ℕ0𝑄 ∈ ℤ) → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄))
240237, 229, 222, 239syl3anc 1477 . . . . . . . . 9 (𝜑 → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄))
241222zcnd 11671 . . . . . . . . . 10 (𝜑𝑄 ∈ ℂ)
242 cnfldexp 19977 . . . . . . . . . 10 ((𝑄 ∈ ℂ ∧ ((𝑃 − 1) / 2) ∈ ℕ0) → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
243241, 229, 242syl2anc 696 . . . . . . . . 9 (𝜑 → (((𝑃 − 1) / 2)(.g‘(mulGrp‘ℂfld))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
244240, 243eqtr3d 2792 . . . . . . . 8 (𝜑 → (((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄) = (𝑄↑((𝑃 − 1) / 2)))
245244fveq2d 6352 . . . . . . 7 (𝜑 → (𝐿‘(((𝑃 − 1) / 2)(.g‘((mulGrp‘ℂfld) ↾s ℤ))𝑄)) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
246236, 245eqtr3d 2792 . . . . . 6 (𝜑 → (((𝑃 − 1) / 2)(.g𝐺)(𝐿𝑄)) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
247226, 232, 2463eqtrd 2794 . . . . 5 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿𝑄))) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
248212, 221, 2473eqtr3d 2798 . . . 4 (𝜑 → (𝐺 Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (𝐿‘(-1↑(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(𝑄↑((𝑃 − 1) / 2))))
249 subrgsubg 18984 . . . . . . . . . 10 (ℤ ∈ (SubRing‘ℂfld) → ℤ ∈ (SubGrp‘ℂfld))
25054, 249ax-mp 5 . . . . . . . . 9 ℤ ∈ (SubGrp‘ℂfld)
251 subgsubm 17813 . . . . . . . . 9 (ℤ ∈ (SubGrp‘ℂfld) → ℤ ∈ (SubMnd‘ℂfld))
252250, 251mp1i 13 . . . . . . . 8 (𝜑 → ℤ ∈ (SubMnd‘ℂfld))
25384, 85fmptd 6544 . . . . . . . 8 (𝜑 → (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))):(1...((𝑃 − 1) / 2))⟶ℤ)
254 df-zring 20017 . . . . . . . 8 ring = (ℂflds ℤ)
25519, 252, 253, 254gsumsubm 17570 . . . . . . 7 (𝜑 → (ℂfld Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
25684zcnd 11671 . . . . . . . 8 ((𝜑𝑥 ∈ (1...((𝑃 − 1) / 2))) → (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℂ)
25719, 256gsumfsum 20011 . . . . . . 7 (𝜑 → (ℂfld Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
258255, 257eqtr3d 2792 . . . . . 6 (𝜑 → (ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) = Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))
259258oveq2d 6825 . . . . 5 (𝜑 → (-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))) = (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))
260259fveq2d 6352 . . . 4 (𝜑 → (𝐿‘(-1↑(ℤring Σg (𝑥 ∈ (1...((𝑃 − 1) / 2)) ↦ (⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
26194, 248, 2603eqtr3d 2798 . . 3 (𝜑 → (𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
26274nnnn0d 11539 . . . 4 (𝜑𝑃 ∈ ℕ0)
263 zexpcl 13065 . . . . 5 ((𝑄 ∈ ℤ ∧ ((𝑃 − 1) / 2) ∈ ℕ0) → (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ)
264222, 229, 263syl2anc 696 . . . 4 (𝜑 → (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ)
26519, 84fsumzcl 14661 . . . . 5 (𝜑 → Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ)
266 m1expcl 13073 . . . . 5 𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))) ∈ ℤ → (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
267265, 266syl 17 . . . 4 (𝜑 → (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ)
2688, 25zndvds 20096 . . . 4 ((𝑃 ∈ ℕ0 ∧ (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ ∧ (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ) → ((𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
269262, 264, 267, 268syl3anc 1477 . . 3 (𝜑 → ((𝐿‘(𝑄↑((𝑃 − 1) / 2))) = (𝐿‘(-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
270261, 269mpbid 222 . 2 (𝜑𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥))))))
271 moddvds 15189 . . 3 ((𝑃 ∈ ℕ ∧ (𝑄↑((𝑃 − 1) / 2)) ∈ ℤ ∧ (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) ∈ ℤ) → (((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
27274, 264, 267, 271syl3anc 1477 . 2 (𝜑 → (((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃) ↔ 𝑃 ∥ ((𝑄↑((𝑃 − 1) / 2)) − (-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))))))
273270, 272mpbird 247 1 (𝜑 → ((𝑄↑((𝑃 − 1) / 2)) mod 𝑃) = ((-1↑Σ𝑥 ∈ (1...((𝑃 − 1) / 2))(⌊‘((𝑄 / 𝑃) · (2 · 𝑥)))) mod 𝑃))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 383   = wceq 1628  wcel 2135  wne 2928  Vcvv 3336  cdif 3708  wss 3711  {csn 4317   class class class wbr 4800  cmpt 4877  ran crn 5263  ccom 5266  wf 6041  cfv 6045  (class class class)co 6809  𝑓 cof 7056  Fincfn 8117  cc 10122  cr 10123  0cc0 10124  1c1 10125   + caddc 10127   · cmul 10129  cmin 10454  -cneg 10455   / cdiv 10872  cn 11208  2c2 11258  0cn0 11480  cz 11565  cuz 11875  +crp 12021  ...cfz 12515  cfl 12781   mod cmo 12858  cexp 13050  chash 13307  Σcsu 14611  cdvds 15178  cprime 15583  Basecbs 16055  s cress 16056  .rcmulr 16140  0gc0g 16298   Σg cgsu 16299  Mndcmnd 17491   MndHom cmhm 17530  SubMndcsubmnd 17531  .gcmg 17737  SubGrpcsubg 17785   GrpHom cghm 17854  CMndccmn 18389  Abelcabl 18390  mulGrpcmgp 18685  1rcur 18697  Ringcrg 18743  CRingccrg 18744   RingHom crh 18910  DivRingcdr 18945  Fieldcfield 18946  SubRingcsubrg 18974  fldccnfld 19944  ringzring 20016  ℤRHomczrh 20046  ℤ/nczn 20049
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1867  ax-4 1882  ax-5 1984  ax-6 2050  ax-7 2086  ax-8 2137  ax-9 2144  ax-10 2164  ax-11 2179  ax-12 2192  ax-13 2387  ax-ext 2736  ax-rep 4919  ax-sep 4929  ax-nul 4937  ax-pow 4988  ax-pr 5051  ax-un 7110  ax-inf2 8707  ax-cnex 10180  ax-resscn 10181  ax-1cn 10182  ax-icn 10183  ax-addcl 10184  ax-addrcl 10185  ax-mulcl 10186  ax-mulrcl 10187  ax-mulcom 10188  ax-addass 10189  ax-mulass 10190  ax-distr 10191  ax-i2m1 10192  ax-1ne0 10193  ax-1rid 10194  ax-rnegex 10195  ax-rrecex 10196  ax-cnre 10197  ax-pre-lttri 10198  ax-pre-lttrn 10199  ax-pre-ltadd 10200  ax-pre-mulgt0 10201  ax-pre-sup 10202  ax-addf 10203  ax-mulf 10204
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1631  df-fal 1634  df-ex 1850  df-nf 1855  df-sb 2043  df-eu 2607  df-mo 2608  df-clab 2743  df-cleq 2749  df-clel 2752  df-nfc 2887  df-ne 2929  df-nel 3032  df-ral 3051  df-rex 3052  df-reu 3053  df-rmo 3054  df-rab 3055  df-v 3338  df-sbc 3573  df-csb 3671  df-dif 3714  df-un 3716  df-in 3718  df-ss 3725  df-pss 3727  df-nul 4055  df-if 4227  df-pw 4300  df-sn 4318  df-pr 4320  df-tp 4322  df-op 4324  df-uni 4585  df-int 4624  df-iun 4670  df-br 4801  df-opab 4861  df-mpt 4878  df-tr 4901  df-id 5170  df-eprel 5175  df-po 5183  df-so 5184  df-fr 5221  df-se 5222  df-we 5223  df-xp 5268  df-rel 5269  df-cnv 5270  df-co 5271  df-dm 5272  df-rn 5273  df-res 5274  df-ima 5275  df-pred 5837  df-ord 5883  df-on 5884  df-lim 5885  df-suc 5886  df-iota 6008  df-fun 6047  df-fn 6048  df-f 6049  df-f1 6050  df-fo 6051  df-f1o 6052  df-fv 6053  df-isom 6054  df-riota 6770  df-ov 6812  df-oprab 6813  df-mpt2 6814  df-of 7058  df-om 7227  df-1st 7329  df-2nd 7330  df-supp 7460  df-tpos 7517  df-wrecs 7572  df-recs 7633  df-rdg 7671  df-1o 7725  df-2o 7726  df-oadd 7729  df-er 7907  df-ec 7909  df-qs 7913  df-map 8021  df-en 8118  df-dom 8119  df-sdom 8120  df-fin 8121  df-fsupp 8437  df-sup 8509  df-inf 8510  df-oi 8576  df-card 8951  df-cda 9178  df-pnf 10264  df-mnf 10265  df-xr 10266  df-ltxr 10267  df-le 10268  df-sub 10456  df-neg 10457  df-div 10873  df-nn 11209  df-2 11267  df-3 11268  df-4 11269  df-5 11270  df-6 11271  df-7 11272  df-8 11273  df-9 11274  df-n0 11481  df-xnn0 11552  df-z 11566  df-dec 11682  df-uz 11876  df-rp 12022  df-fz 12516  df-fzo 12656  df-fl 12783  df-mod 12859  df-seq 12992  df-exp 13051  df-hash 13308  df-cj 14034  df-re 14035  df-im 14036  df-sqrt 14170  df-abs 14171  df-clim 14414  df-sum 14612  df-dvds 15179  df-gcd 15415  df-prm 15584  df-struct 16057  df-ndx 16058  df-slot 16059  df-base 16061  df-sets 16062  df-ress 16063  df-plusg 16152  df-mulr 16153  df-starv 16154  df-sca 16155  df-vsca 16156  df-ip 16157  df-tset 16158  df-ple 16159  df-ds 16162  df-unif 16163  df-0g 16300  df-gsum 16301  df-imas 16366  df-qus 16367  df-mgm 17439  df-sgrp 17481  df-mnd 17492  df-mhm 17532  df-submnd 17533  df-grp 17622  df-minusg 17623  df-sbg 17624  df-mulg 17738  df-subg 17788  df-nsg 17789  df-eqg 17790  df-ghm 17855  df-cntz 17946  df-cmn 18391  df-abl 18392  df-mgp 18686  df-ur 18698  df-ring 18745  df-cring 18746  df-oppr 18819  df-dvdsr 18837  df-unit 18838  df-invr 18868  df-dvr 18879  df-rnghom 18913  df-drng 18947  df-field 18948  df-subrg 18976  df-lmod 19063  df-lss 19131  df-lsp 19170  df-sra 19370  df-rgmod 19371  df-lidl 19372  df-rsp 19373  df-2idl 19430  df-nzr 19456  df-rlreg 19481  df-domn 19482  df-idom 19483  df-cnfld 19945  df-zring 20017  df-zrh 20050  df-zn 20053
This theorem is referenced by:  lgseisen  25299
  Copyright terms: Public domain W3C validator