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

Theorem ablfac1eu 19124
Description: The factorization of ablfac1b 19121 is unique, in that any other factorization into prime power factors (even if the exponents are different) must be equal to 𝑆. (Contributed by Mario Carneiro, 21-Apr-2016.)
Hypotheses
Ref Expression
ablfac1.b 𝐵 = (Base‘𝐺)
ablfac1.o 𝑂 = (od‘𝐺)
ablfac1.s 𝑆 = (𝑝𝐴 ↦ {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (♯‘𝐵)))})
ablfac1.g (𝜑𝐺 ∈ Abel)
ablfac1.f (𝜑𝐵 ∈ Fin)
ablfac1.1 (𝜑𝐴 ⊆ ℙ)
ablfac1c.d 𝐷 = {𝑤 ∈ ℙ ∣ 𝑤 ∥ (♯‘𝐵)}
ablfac1.2 (𝜑𝐷𝐴)
ablfac1eu.1 (𝜑 → (𝐺dom DProd 𝑇 ∧ (𝐺 DProd 𝑇) = 𝐵))
ablfac1eu.2 (𝜑 → dom 𝑇 = 𝐴)
ablfac1eu.3 ((𝜑𝑞𝐴) → 𝐶 ∈ ℕ0)
ablfac1eu.4 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) = (𝑞𝐶))
Assertion
Ref Expression
ablfac1eu (𝜑𝑇 = 𝑆)
Distinct variable groups:   𝑞,𝑝,𝑤,𝑥,𝐵   𝐷,𝑝,𝑞,𝑥   𝜑,𝑝,𝑞,𝑤,𝑥   𝑆,𝑞   𝐴,𝑝,𝑞,𝑥   𝑂,𝑝,𝑞,𝑥   𝑇,𝑞,𝑥   𝐺,𝑝,𝑞,𝑥
Allowed substitution hints:   𝐴(𝑤)   𝐶(𝑥,𝑤,𝑞,𝑝)   𝐷(𝑤)   𝑆(𝑥,𝑤,𝑝)   𝑇(𝑤,𝑝)   𝐺(𝑤)   𝑂(𝑤)

Proof of Theorem ablfac1eu
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 ablfac1eu.1 . . . . 5 (𝜑 → (𝐺dom DProd 𝑇 ∧ (𝐺 DProd 𝑇) = 𝐵))
21simpld 495 . . . 4 (𝜑𝐺dom DProd 𝑇)
3 ablfac1eu.2 . . . 4 (𝜑 → dom 𝑇 = 𝐴)
42, 3dprdf2 19058 . . 3 (𝜑𝑇:𝐴⟶(SubGrp‘𝐺))
54ffnd 6508 . 2 (𝜑𝑇 Fn 𝐴)
6 ablfac1.b . . . . 5 𝐵 = (Base‘𝐺)
7 ablfac1.o . . . . 5 𝑂 = (od‘𝐺)
8 ablfac1.s . . . . 5 𝑆 = (𝑝𝐴 ↦ {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (♯‘𝐵)))})
9 ablfac1.g . . . . 5 (𝜑𝐺 ∈ Abel)
10 ablfac1.f . . . . 5 (𝜑𝐵 ∈ Fin)
11 ablfac1.1 . . . . 5 (𝜑𝐴 ⊆ ℙ)
126, 7, 8, 9, 10, 11ablfac1b 19121 . . . 4 (𝜑𝐺dom DProd 𝑆)
136fvexi 6677 . . . . . . 7 𝐵 ∈ V
1413rabex 5226 . . . . . 6 {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (♯‘𝐵)))} ∈ V
1514, 8dmmpti 6485 . . . . 5 dom 𝑆 = 𝐴
1615a1i 11 . . . 4 (𝜑 → dom 𝑆 = 𝐴)
1712, 16dprdf2 19058 . . 3 (𝜑𝑆:𝐴⟶(SubGrp‘𝐺))
1817ffnd 6508 . 2 (𝜑𝑆 Fn 𝐴)
1910adantr 481 . . . 4 ((𝜑𝑞𝐴) → 𝐵 ∈ Fin)
2017ffvelrnda 6843 . . . . 5 ((𝜑𝑞𝐴) → (𝑆𝑞) ∈ (SubGrp‘𝐺))
216subgss 18218 . . . . 5 ((𝑆𝑞) ∈ (SubGrp‘𝐺) → (𝑆𝑞) ⊆ 𝐵)
2220, 21syl 17 . . . 4 ((𝜑𝑞𝐴) → (𝑆𝑞) ⊆ 𝐵)
2319, 22ssfid 8729 . . 3 ((𝜑𝑞𝐴) → (𝑆𝑞) ∈ Fin)
244ffvelrnda 6843 . . . . . 6 ((𝜑𝑞𝐴) → (𝑇𝑞) ∈ (SubGrp‘𝐺))
256subgss 18218 . . . . . 6 ((𝑇𝑞) ∈ (SubGrp‘𝐺) → (𝑇𝑞) ⊆ 𝐵)
2624, 25syl 17 . . . . 5 ((𝜑𝑞𝐴) → (𝑇𝑞) ⊆ 𝐵)
2724adantr 481 . . . . . . 7 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑇𝑞) ∈ (SubGrp‘𝐺))
2819, 26ssfid 8729 . . . . . . . 8 ((𝜑𝑞𝐴) → (𝑇𝑞) ∈ Fin)
2928adantr 481 . . . . . . 7 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑇𝑞) ∈ Fin)
30 simpr 485 . . . . . . 7 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → 𝑥 ∈ (𝑇𝑞))
317odsubdvds 18625 . . . . . . 7 (((𝑇𝑞) ∈ (SubGrp‘𝐺) ∧ (𝑇𝑞) ∈ Fin ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑂𝑥) ∥ (♯‘(𝑇𝑞)))
3227, 29, 30, 31syl3anc 1363 . . . . . 6 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑂𝑥) ∥ (♯‘(𝑇𝑞)))
33 ablfac1eu.4 . . . . . . . 8 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) = (𝑞𝐶))
3411sselda 3964 . . . . . . . . . 10 ((𝜑𝑞𝐴) → 𝑞 ∈ ℙ)
35 prmz 16007 . . . . . . . . . 10 (𝑞 ∈ ℙ → 𝑞 ∈ ℤ)
3634, 35syl 17 . . . . . . . . 9 ((𝜑𝑞𝐴) → 𝑞 ∈ ℤ)
37 ablfac1eu.3 . . . . . . . . 9 ((𝜑𝑞𝐴) → 𝐶 ∈ ℕ0)
3837nn0zd 12073 . . . . . . . . . 10 ((𝜑𝑞𝐴) → 𝐶 ∈ ℤ)
39 ablgrp 18840 . . . . . . . . . . . . . . . 16 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
409, 39syl 17 . . . . . . . . . . . . . . 15 (𝜑𝐺 ∈ Grp)
416grpbn0 18070 . . . . . . . . . . . . . . 15 (𝐺 ∈ Grp → 𝐵 ≠ ∅)
4240, 41syl 17 . . . . . . . . . . . . . 14 (𝜑𝐵 ≠ ∅)
43 hashnncl 13715 . . . . . . . . . . . . . . 15 (𝐵 ∈ Fin → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
4410, 43syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((♯‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
4542, 44mpbird 258 . . . . . . . . . . . . 13 (𝜑 → (♯‘𝐵) ∈ ℕ)
4645adantr 481 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (♯‘𝐵) ∈ ℕ)
4734, 46pccld 16175 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝑞 pCnt (♯‘𝐵)) ∈ ℕ0)
4847nn0zd 12073 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (𝑞 pCnt (♯‘𝐵)) ∈ ℤ)
496lagsubg 18280 . . . . . . . . . . . . 13 (((𝑇𝑞) ∈ (SubGrp‘𝐺) ∧ 𝐵 ∈ Fin) → (♯‘(𝑇𝑞)) ∥ (♯‘𝐵))
5024, 19, 49syl2anc 584 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) ∥ (♯‘𝐵))
5133, 50eqbrtrrd 5081 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝑞𝐶) ∥ (♯‘𝐵))
5246nnzd 12074 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (♯‘𝐵) ∈ ℤ)
53 pcdvdsb 16193 . . . . . . . . . . . 12 ((𝑞 ∈ ℙ ∧ (♯‘𝐵) ∈ ℤ ∧ 𝐶 ∈ ℕ0) → (𝐶 ≤ (𝑞 pCnt (♯‘𝐵)) ↔ (𝑞𝐶) ∥ (♯‘𝐵)))
5434, 52, 37, 53syl3anc 1363 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝐶 ≤ (𝑞 pCnt (♯‘𝐵)) ↔ (𝑞𝐶) ∥ (♯‘𝐵)))
5551, 54mpbird 258 . . . . . . . . . 10 ((𝜑𝑞𝐴) → 𝐶 ≤ (𝑞 pCnt (♯‘𝐵)))
56 eluz2 12237 . . . . . . . . . 10 ((𝑞 pCnt (♯‘𝐵)) ∈ (ℤ𝐶) ↔ (𝐶 ∈ ℤ ∧ (𝑞 pCnt (♯‘𝐵)) ∈ ℤ ∧ 𝐶 ≤ (𝑞 pCnt (♯‘𝐵))))
5738, 48, 55, 56syl3anbrc 1335 . . . . . . . . 9 ((𝜑𝑞𝐴) → (𝑞 pCnt (♯‘𝐵)) ∈ (ℤ𝐶))
58 dvdsexp 15665 . . . . . . . . 9 ((𝑞 ∈ ℤ ∧ 𝐶 ∈ ℕ0 ∧ (𝑞 pCnt (♯‘𝐵)) ∈ (ℤ𝐶)) → (𝑞𝐶) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵))))
5936, 37, 57, 58syl3anc 1363 . . . . . . . 8 ((𝜑𝑞𝐴) → (𝑞𝐶) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵))))
6033, 59eqbrtrd 5079 . . . . . . 7 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵))))
6160adantr 481 . . . . . 6 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (♯‘(𝑇𝑞)) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵))))
6226sselda 3964 . . . . . . . . 9 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → 𝑥𝐵)
636, 7odcl 18593 . . . . . . . . 9 (𝑥𝐵 → (𝑂𝑥) ∈ ℕ0)
6462, 63syl 17 . . . . . . . 8 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑂𝑥) ∈ ℕ0)
6564nn0zd 12073 . . . . . . 7 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑂𝑥) ∈ ℤ)
66 hashcl 13705 . . . . . . . . . 10 ((𝑇𝑞) ∈ Fin → (♯‘(𝑇𝑞)) ∈ ℕ0)
6728, 66syl 17 . . . . . . . . 9 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) ∈ ℕ0)
6867nn0zd 12073 . . . . . . . 8 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) ∈ ℤ)
6968adantr 481 . . . . . . 7 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (♯‘(𝑇𝑞)) ∈ ℤ)
70 prmnn 16006 . . . . . . . . . . 11 (𝑞 ∈ ℙ → 𝑞 ∈ ℕ)
7134, 70syl 17 . . . . . . . . . 10 ((𝜑𝑞𝐴) → 𝑞 ∈ ℕ)
7271, 47nnexpcld 13594 . . . . . . . . 9 ((𝜑𝑞𝐴) → (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℕ)
7372nnzd 12074 . . . . . . . 8 ((𝜑𝑞𝐴) → (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℤ)
7473adantr 481 . . . . . . 7 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℤ)
75 dvdstr 15634 . . . . . . 7 (((𝑂𝑥) ∈ ℤ ∧ (♯‘(𝑇𝑞)) ∈ ℤ ∧ (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℤ) → (((𝑂𝑥) ∥ (♯‘(𝑇𝑞)) ∧ (♯‘(𝑇𝑞)) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))) → (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))))
7665, 69, 74, 75syl3anc 1363 . . . . . 6 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (((𝑂𝑥) ∥ (♯‘(𝑇𝑞)) ∧ (♯‘(𝑇𝑞)) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))) → (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))))
7732, 61, 76mp2and 695 . . . . 5 (((𝜑𝑞𝐴) ∧ 𝑥 ∈ (𝑇𝑞)) → (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵))))
7826, 77ssrabdv 4047 . . . 4 ((𝜑𝑞𝐴) → (𝑇𝑞) ⊆ {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))})
79 id 22 . . . . . . . . 9 (𝑝 = 𝑞𝑝 = 𝑞)
80 oveq1 7152 . . . . . . . . 9 (𝑝 = 𝑞 → (𝑝 pCnt (♯‘𝐵)) = (𝑞 pCnt (♯‘𝐵)))
8179, 80oveq12d 7163 . . . . . . . 8 (𝑝 = 𝑞 → (𝑝↑(𝑝 pCnt (♯‘𝐵))) = (𝑞↑(𝑞 pCnt (♯‘𝐵))))
8281breq2d 5069 . . . . . . 7 (𝑝 = 𝑞 → ((𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (♯‘𝐵))) ↔ (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))))
8382rabbidv 3478 . . . . . 6 (𝑝 = 𝑞 → {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (♯‘𝐵)))} = {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))})
8483, 8, 14fvmpt3i 6766 . . . . 5 (𝑞𝐴 → (𝑆𝑞) = {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))})
8584adantl 482 . . . 4 ((𝜑𝑞𝐴) → (𝑆𝑞) = {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵)))})
8678, 85sseqtrrd 4005 . . 3 ((𝜑𝑞𝐴) → (𝑇𝑞) ⊆ (𝑆𝑞))
8772nnnn0d 11943 . . . . . 6 ((𝜑𝑞𝐴) → (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℕ0)
88 pcdvds 16188 . . . . . . . . . 10 ((𝑞 ∈ ℙ ∧ (♯‘𝐵) ∈ ℕ) → (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘𝐵))
8934, 46, 88syl2anc 584 . . . . . . . . 9 ((𝜑𝑞𝐴) → (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘𝐵))
902adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑞𝐴) → 𝐺dom DProd 𝑇)
913adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑞𝐴) → dom 𝑇 = 𝐴)
92 ablfac1.2 . . . . . . . . . . . . . . . 16 (𝜑𝐷𝐴)
9392adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑞𝐴) → 𝐷𝐴)
9490, 91, 93dprdres 19079 . . . . . . . . . . . . . 14 ((𝜑𝑞𝐴) → (𝐺dom DProd (𝑇𝐷) ∧ (𝐺 DProd (𝑇𝐷)) ⊆ (𝐺 DProd 𝑇)))
9594simpld 495 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → 𝐺dom DProd (𝑇𝐷))
964adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑞𝐴) → 𝑇:𝐴⟶(SubGrp‘𝐺))
9796, 93fssresd 6538 . . . . . . . . . . . . . 14 ((𝜑𝑞𝐴) → (𝑇𝐷):𝐷⟶(SubGrp‘𝐺))
9897fdmd 6516 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → dom (𝑇𝐷) = 𝐷)
99 difssd 4106 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (𝐷 ∖ {𝑞}) ⊆ 𝐷)
10095, 98, 99dprdres 19079 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (𝐺dom DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})) ∧ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ⊆ (𝐺 DProd (𝑇𝐷))))
101100simpld 495 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → 𝐺dom DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))
102 dprdsubg 19075 . . . . . . . . . . 11 (𝐺dom DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ∈ (SubGrp‘𝐺))
103101, 102syl 17 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ∈ (SubGrp‘𝐺))
1046lagsubg 18280 . . . . . . . . . 10 (((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ∈ (SubGrp‘𝐺) ∧ 𝐵 ∈ Fin) → (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∥ (♯‘𝐵))
105103, 19, 104syl2anc 584 . . . . . . . . 9 ((𝜑𝑞𝐴) → (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∥ (♯‘𝐵))
106 eqid 2818 . . . . . . . . . . . . . . 15 (0g𝐺) = (0g𝐺)
107106subg0cl 18225 . . . . . . . . . . . . . 14 ((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ∈ (SubGrp‘𝐺) → (0g𝐺) ∈ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))
108103, 107syl 17 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (0g𝐺) ∈ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))
109108ne0d 4298 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ≠ ∅)
1106dprdssv 19067 . . . . . . . . . . . . . 14 (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ⊆ 𝐵
111 ssfi 8726 . . . . . . . . . . . . . 14 ((𝐵 ∈ Fin ∧ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ⊆ 𝐵) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ∈ Fin)
11219, 110, 111sylancl 586 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ∈ Fin)
113 hashnncl 13715 . . . . . . . . . . . . 13 ((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ∈ Fin → ((♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℕ ↔ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ≠ ∅))
114112, 113syl 17 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → ((♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℕ ↔ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))) ≠ ∅))
115109, 114mpbird 258 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℕ)
116115nnzd 12074 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℤ)
117 id 22 . . . . . . . . . . . . . . 15 (𝑥 = 𝑞𝑥 = 𝑞)
118 sneq 4567 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑞 → {𝑥} = {𝑞})
119118difeq2d 4096 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑞 → (𝐷 ∖ {𝑥}) = (𝐷 ∖ {𝑞}))
120119reseq2d 5846 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑞 → ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥})) = ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))
121120oveq2d 7161 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑞 → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥}))) = (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))
122121fveq2d 6667 . . . . . . . . . . . . . . 15 (𝑥 = 𝑞 → (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥})))) = (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))))
123117, 122breq12d 5070 . . . . . . . . . . . . . 14 (𝑥 = 𝑞 → (𝑥 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥})))) ↔ 𝑞 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))))
124123notbid 319 . . . . . . . . . . . . 13 (𝑥 = 𝑞 → (¬ 𝑥 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥})))) ↔ ¬ 𝑞 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))))
125 eqid 2818 . . . . . . . . . . . . . . . 16 (𝑝𝐷 ↦ {𝑦𝐵 ∣ (𝑂𝑦) ∥ (𝑝↑(𝑝 pCnt (♯‘𝐵)))}) = (𝑝𝐷 ↦ {𝑦𝐵 ∣ (𝑂𝑦) ∥ (𝑝↑(𝑝 pCnt (♯‘𝐵)))})
1269adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → 𝐺 ∈ Abel)
12710adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → 𝐵 ∈ Fin)
128 ablfac1c.d . . . . . . . . . . . . . . . . . 18 𝐷 = {𝑤 ∈ ℙ ∣ 𝑤 ∥ (♯‘𝐵)}
129128ssrab3 4054 . . . . . . . . . . . . . . . . 17 𝐷 ⊆ ℙ
130129a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → 𝐷 ⊆ ℙ)
131 ssidd 3987 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → 𝐷𝐷)
1322, 3, 92dprdres 19079 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐺dom DProd (𝑇𝐷) ∧ (𝐺 DProd (𝑇𝐷)) ⊆ (𝐺 DProd 𝑇)))
133132simpld 495 . . . . . . . . . . . . . . . . . 18 (𝜑𝐺dom DProd (𝑇𝐷))
134 dprdsubg 19075 . . . . . . . . . . . . . . . . . . . . 21 (𝐺dom DProd (𝑇𝐷) → (𝐺 DProd (𝑇𝐷)) ∈ (SubGrp‘𝐺))
135133, 134syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐺 DProd (𝑇𝐷)) ∈ (SubGrp‘𝐺))
136 difssd 4106 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (𝐴𝐷) ⊆ 𝐴)
1372, 3, 136dprdres 19079 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝐺dom DProd (𝑇 ↾ (𝐴𝐷)) ∧ (𝐺 DProd (𝑇 ↾ (𝐴𝐷))) ⊆ (𝐺 DProd 𝑇)))
138137simpld 495 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐺dom DProd (𝑇 ↾ (𝐴𝐷)))
139 dprdsubg 19075 . . . . . . . . . . . . . . . . . . . . 21 (𝐺dom DProd (𝑇 ↾ (𝐴𝐷)) → (𝐺 DProd (𝑇 ↾ (𝐴𝐷))) ∈ (SubGrp‘𝐺))
140138, 139syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐺 DProd (𝑇 ↾ (𝐴𝐷))) ∈ (SubGrp‘𝐺))
141 difss 4105 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐴𝐷) ⊆ 𝐴
142 fssres 6537 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑇:𝐴⟶(SubGrp‘𝐺) ∧ (𝐴𝐷) ⊆ 𝐴) → (𝑇 ↾ (𝐴𝐷)):(𝐴𝐷)⟶(SubGrp‘𝐺))
1434, 141, 142sylancl 586 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝑇 ↾ (𝐴𝐷)):(𝐴𝐷)⟶(SubGrp‘𝐺))
144143fdmd 6516 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → dom (𝑇 ↾ (𝐴𝐷)) = (𝐴𝐷))
145 fvres 6682 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑞 ∈ (𝐴𝐷) → ((𝑇 ↾ (𝐴𝐷))‘𝑞) = (𝑇𝑞))
146145adantl 482 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑞 ∈ (𝐴𝐷)) → ((𝑇 ↾ (𝐴𝐷))‘𝑞) = (𝑇𝑞))
147 eldif 3943 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑞 ∈ (𝐴𝐷) ↔ (𝑞𝐴 ∧ ¬ 𝑞𝐷))
14828adantrr 713 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝑇𝑞) ∈ Fin)
149106subg0cl 18225 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑇𝑞) ∈ (SubGrp‘𝐺) → (0g𝐺) ∈ (𝑇𝑞))
15024, 149syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑞𝐴) → (0g𝐺) ∈ (𝑇𝑞))
151150snssd 4734 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑞𝐴) → {(0g𝐺)} ⊆ (𝑇𝑞))
152151adantrr 713 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → {(0g𝐺)} ⊆ (𝑇𝑞))
15333adantrr 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (♯‘(𝑇𝑞)) = (𝑞𝐶))
15434adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑞𝐴) ∧ 𝐶 ∈ ℕ) → 𝑞 ∈ ℙ)
155 iddvdsexp 15621 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑞 ∈ ℤ ∧ 𝐶 ∈ ℕ) → 𝑞 ∥ (𝑞𝐶))
15636, 155sylan 580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑞𝐴) ∧ 𝐶 ∈ ℕ) → 𝑞 ∥ (𝑞𝐶))
15751adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑞𝐴) ∧ 𝐶 ∈ ℕ) → (𝑞𝐶) ∥ (♯‘𝐵))
15833, 68eqeltrrd 2911 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝜑𝑞𝐴) → (𝑞𝐶) ∈ ℤ)
159 dvdstr 15634 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑞 ∈ ℤ ∧ (𝑞𝐶) ∈ ℤ ∧ (♯‘𝐵) ∈ ℤ) → ((𝑞 ∥ (𝑞𝐶) ∧ (𝑞𝐶) ∥ (♯‘𝐵)) → 𝑞 ∥ (♯‘𝐵)))
16036, 158, 52, 159syl3anc 1363 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝜑𝑞𝐴) → ((𝑞 ∥ (𝑞𝐶) ∧ (𝑞𝐶) ∥ (♯‘𝐵)) → 𝑞 ∥ (♯‘𝐵)))
161160adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑞𝐴) ∧ 𝐶 ∈ ℕ) → ((𝑞 ∥ (𝑞𝐶) ∧ (𝑞𝐶) ∥ (♯‘𝐵)) → 𝑞 ∥ (♯‘𝐵)))
162156, 157, 161mp2and 695 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑞𝐴) ∧ 𝐶 ∈ ℕ) → 𝑞 ∥ (♯‘𝐵))
163 breq1 5060 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑤 = 𝑞 → (𝑤 ∥ (♯‘𝐵) ↔ 𝑞 ∥ (♯‘𝐵)))
164163, 128elrab2 3680 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑞𝐷 ↔ (𝑞 ∈ ℙ ∧ 𝑞 ∥ (♯‘𝐵)))
165154, 162, 164sylanbrc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑞𝐴) ∧ 𝐶 ∈ ℕ) → 𝑞𝐷)
166165ex 413 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝜑𝑞𝐴) → (𝐶 ∈ ℕ → 𝑞𝐷))
167166con3d 155 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑𝑞𝐴) → (¬ 𝑞𝐷 → ¬ 𝐶 ∈ ℕ))
168167impr 455 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → ¬ 𝐶 ∈ ℕ)
16937adantrr 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → 𝐶 ∈ ℕ0)
170 elnn0 11887 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝐶 ∈ ℕ0 ↔ (𝐶 ∈ ℕ ∨ 𝐶 = 0))
171169, 170sylib 219 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝐶 ∈ ℕ ∨ 𝐶 = 0))
172171ord 858 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (¬ 𝐶 ∈ ℕ → 𝐶 = 0))
173168, 172mpd 15 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → 𝐶 = 0)
174173oveq2d 7161 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝑞𝐶) = (𝑞↑0))
17571adantrr 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → 𝑞 ∈ ℕ)
176175nncnd 11642 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → 𝑞 ∈ ℂ)
177176exp0d 13492 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝑞↑0) = 1)
178153, 174, 1773eqtrd 2857 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (♯‘(𝑇𝑞)) = 1)
179 fvex 6676 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (0g𝐺) ∈ V
180 hashsng 13718 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((0g𝐺) ∈ V → (♯‘{(0g𝐺)}) = 1)
181179, 180ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (♯‘{(0g𝐺)}) = 1
182178, 181syl6reqr 2872 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (♯‘{(0g𝐺)}) = (♯‘(𝑇𝑞)))
183 snfi 8582 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 {(0g𝐺)} ∈ Fin
184 hashen 13695 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (({(0g𝐺)} ∈ Fin ∧ (𝑇𝑞) ∈ Fin) → ((♯‘{(0g𝐺)}) = (♯‘(𝑇𝑞)) ↔ {(0g𝐺)} ≈ (𝑇𝑞)))
185183, 148, 184sylancr 587 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → ((♯‘{(0g𝐺)}) = (♯‘(𝑇𝑞)) ↔ {(0g𝐺)} ≈ (𝑇𝑞)))
186182, 185mpbid 233 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → {(0g𝐺)} ≈ (𝑇𝑞))
187 fisseneq 8717 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑇𝑞) ∈ Fin ∧ {(0g𝐺)} ⊆ (𝑇𝑞) ∧ {(0g𝐺)} ≈ (𝑇𝑞)) → {(0g𝐺)} = (𝑇𝑞))
188148, 152, 186, 187syl3anc 1363 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → {(0g𝐺)} = (𝑇𝑞))
189106subg0cl 18225 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝐺 DProd (𝑇𝐷)) ∈ (SubGrp‘𝐺) → (0g𝐺) ∈ (𝐺 DProd (𝑇𝐷)))
190135, 189syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (0g𝐺) ∈ (𝐺 DProd (𝑇𝐷)))
191190adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (0g𝐺) ∈ (𝐺 DProd (𝑇𝐷)))
192191snssd 4734 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → {(0g𝐺)} ⊆ (𝐺 DProd (𝑇𝐷)))
193188, 192eqsstrrd 4003 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝑇𝑞) ⊆ (𝐺 DProd (𝑇𝐷)))
194147, 193sylan2b 593 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑞 ∈ (𝐴𝐷)) → (𝑇𝑞) ⊆ (𝐺 DProd (𝑇𝐷)))
195146, 194eqsstrd 4002 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑞 ∈ (𝐴𝐷)) → ((𝑇 ↾ (𝐴𝐷))‘𝑞) ⊆ (𝐺 DProd (𝑇𝐷)))
196138, 144, 135, 195dprdlub 19077 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐺 DProd (𝑇 ↾ (𝐴𝐷))) ⊆ (𝐺 DProd (𝑇𝐷)))
197 eqid 2818 . . . . . . . . . . . . . . . . . . . . 21 (LSSum‘𝐺) = (LSSum‘𝐺)
198197lsmss2 18722 . . . . . . . . . . . . . . . . . . . 20 (((𝐺 DProd (𝑇𝐷)) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑇 ↾ (𝐴𝐷))) ∈ (SubGrp‘𝐺) ∧ (𝐺 DProd (𝑇 ↾ (𝐴𝐷))) ⊆ (𝐺 DProd (𝑇𝐷))) → ((𝐺 DProd (𝑇𝐷))(LSSum‘𝐺)(𝐺 DProd (𝑇 ↾ (𝐴𝐷)))) = (𝐺 DProd (𝑇𝐷)))
199135, 140, 196, 198syl3anc 1363 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝐺 DProd (𝑇𝐷))(LSSum‘𝐺)(𝐺 DProd (𝑇 ↾ (𝐴𝐷)))) = (𝐺 DProd (𝑇𝐷)))
200 disjdif 4417 . . . . . . . . . . . . . . . . . . . . . 22 (𝐷 ∩ (𝐴𝐷)) = ∅
201200a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (𝐷 ∩ (𝐴𝐷)) = ∅)
202 undif2 4421 . . . . . . . . . . . . . . . . . . . . . 22 (𝐷 ∪ (𝐴𝐷)) = (𝐷𝐴)
203 ssequn1 4153 . . . . . . . . . . . . . . . . . . . . . . 23 (𝐷𝐴 ↔ (𝐷𝐴) = 𝐴)
20492, 203sylib 219 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝐷𝐴) = 𝐴)
205202, 204syl5req 2866 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐴 = (𝐷 ∪ (𝐴𝐷)))
2064, 201, 205, 197, 2dprdsplit 19099 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐺 DProd 𝑇) = ((𝐺 DProd (𝑇𝐷))(LSSum‘𝐺)(𝐺 DProd (𝑇 ↾ (𝐴𝐷)))))
2071simprd 496 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐺 DProd 𝑇) = 𝐵)
208206, 207eqtr3d 2855 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝐺 DProd (𝑇𝐷))(LSSum‘𝐺)(𝐺 DProd (𝑇 ↾ (𝐴𝐷)))) = 𝐵)
209199, 208eqtr3d 2855 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐺 DProd (𝑇𝐷)) = 𝐵)
210133, 209jca 512 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐺dom DProd (𝑇𝐷) ∧ (𝐺 DProd (𝑇𝐷)) = 𝐵))
211210adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → (𝐺dom DProd (𝑇𝐷) ∧ (𝐺 DProd (𝑇𝐷)) = 𝐵))
2124, 92fssresd 6538 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑇𝐷):𝐷⟶(SubGrp‘𝐺))
213212fdmd 6516 . . . . . . . . . . . . . . . . 17 (𝜑 → dom (𝑇𝐷) = 𝐷)
214213adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → dom (𝑇𝐷) = 𝐷)
21592sselda 3964 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑞𝐷) → 𝑞𝐴)
216215, 37syldan 591 . . . . . . . . . . . . . . . . 17 ((𝜑𝑞𝐷) → 𝐶 ∈ ℕ0)
217216adantlr 711 . . . . . . . . . . . . . . . 16 (((𝜑𝑥 ∈ ℙ) ∧ 𝑞𝐷) → 𝐶 ∈ ℕ0)
218 fvres 6682 . . . . . . . . . . . . . . . . . . . 20 (𝑞𝐷 → ((𝑇𝐷)‘𝑞) = (𝑇𝑞))
219218adantl 482 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑞𝐷) → ((𝑇𝐷)‘𝑞) = (𝑇𝑞))
220219fveq2d 6667 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑞𝐷) → (♯‘((𝑇𝐷)‘𝑞)) = (♯‘(𝑇𝑞)))
221215, 33syldan 591 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑞𝐷) → (♯‘(𝑇𝑞)) = (𝑞𝐶))
222220, 221eqtrd 2853 . . . . . . . . . . . . . . . . 17 ((𝜑𝑞𝐷) → (♯‘((𝑇𝐷)‘𝑞)) = (𝑞𝐶))
223222adantlr 711 . . . . . . . . . . . . . . . 16 (((𝜑𝑥 ∈ ℙ) ∧ 𝑞𝐷) → (♯‘((𝑇𝐷)‘𝑞)) = (𝑞𝐶))
224 simpr 485 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → 𝑥 ∈ ℙ)
225 fzfid 13329 . . . . . . . . . . . . . . . . . 18 (𝜑 → (1...(♯‘𝐵)) ∈ Fin)
226 prmnn 16006 . . . . . . . . . . . . . . . . . . . . . 22 (𝑤 ∈ ℙ → 𝑤 ∈ ℕ)
2272263ad2ant2 1126 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (♯‘𝐵)) → 𝑤 ∈ ℕ)
228 prmz 16007 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 ∈ ℙ → 𝑤 ∈ ℤ)
229 dvdsle 15648 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑤 ∈ ℤ ∧ (♯‘𝐵) ∈ ℕ) → (𝑤 ∥ (♯‘𝐵) → 𝑤 ≤ (♯‘𝐵)))
230228, 45, 229syl2anr 596 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑤 ∈ ℙ) → (𝑤 ∥ (♯‘𝐵) → 𝑤 ≤ (♯‘𝐵)))
2312303impia 1109 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (♯‘𝐵)) → 𝑤 ≤ (♯‘𝐵))
23245nnzd 12074 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (♯‘𝐵) ∈ ℤ)
2332323ad2ant1 1125 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (♯‘𝐵)) → (♯‘𝐵) ∈ ℤ)
234 fznn 12963 . . . . . . . . . . . . . . . . . . . . . 22 ((♯‘𝐵) ∈ ℤ → (𝑤 ∈ (1...(♯‘𝐵)) ↔ (𝑤 ∈ ℕ ∧ 𝑤 ≤ (♯‘𝐵))))
235233, 234syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (♯‘𝐵)) → (𝑤 ∈ (1...(♯‘𝐵)) ↔ (𝑤 ∈ ℕ ∧ 𝑤 ≤ (♯‘𝐵))))
236227, 231, 235mpbir2and 709 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (♯‘𝐵)) → 𝑤 ∈ (1...(♯‘𝐵)))
237236rabssdv 4048 . . . . . . . . . . . . . . . . . . 19 (𝜑 → {𝑤 ∈ ℙ ∣ 𝑤 ∥ (♯‘𝐵)} ⊆ (1...(♯‘𝐵)))
238128, 237eqsstrid 4012 . . . . . . . . . . . . . . . . . 18 (𝜑𝐷 ⊆ (1...(♯‘𝐵)))
239225, 238ssfid 8729 . . . . . . . . . . . . . . . . 17 (𝜑𝐷 ∈ Fin)
240239adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℙ) → 𝐷 ∈ Fin)
2416, 7, 125, 126, 127, 130, 128, 131, 211, 214, 217, 223, 224, 240ablfac1eulem 19123 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ ℙ) → ¬ 𝑥 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥})))))
242241ralrimiva 3179 . . . . . . . . . . . . . 14 (𝜑 → ∀𝑥 ∈ ℙ ¬ 𝑥 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥})))))
243242adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → ∀𝑥 ∈ ℙ ¬ 𝑥 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑥})))))
244124, 243, 34rspcdva 3622 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → ¬ 𝑞 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))))
245 coprm 16043 . . . . . . . . . . . . 13 ((𝑞 ∈ ℙ ∧ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℤ) → (¬ 𝑞 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ↔ (𝑞 gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1))
24634, 116, 245syl2anc 584 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (¬ 𝑞 ∥ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ↔ (𝑞 gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1))
247244, 246mpbid 233 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝑞 gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1)
248 rpexp1i 16053 . . . . . . . . . . . 12 ((𝑞 ∈ ℤ ∧ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℤ ∧ (𝑞 pCnt (♯‘𝐵)) ∈ ℕ0) → ((𝑞 gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1 → ((𝑞↑(𝑞 pCnt (♯‘𝐵))) gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1))
24936, 116, 47, 248syl3anc 1363 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → ((𝑞 gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1 → ((𝑞↑(𝑞 pCnt (♯‘𝐵))) gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1))
250247, 249mpd 15 . . . . . . . . . 10 ((𝜑𝑞𝐴) → ((𝑞↑(𝑞 pCnt (♯‘𝐵))) gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1)
251 coprmdvds2 15986 . . . . . . . . . 10 ((((𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℤ ∧ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℤ ∧ (♯‘𝐵) ∈ ℤ) ∧ ((𝑞↑(𝑞 pCnt (♯‘𝐵))) gcd (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = 1) → (((𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘𝐵) ∧ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∥ (♯‘𝐵)) → ((𝑞↑(𝑞 pCnt (♯‘𝐵))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ∥ (♯‘𝐵)))
25273, 116, 52, 250, 251syl31anc 1365 . . . . . . . . 9 ((𝜑𝑞𝐴) → (((𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘𝐵) ∧ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∥ (♯‘𝐵)) → ((𝑞↑(𝑞 pCnt (♯‘𝐵))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ∥ (♯‘𝐵)))
25389, 105, 252mp2and 695 . . . . . . . 8 ((𝜑𝑞𝐴) → ((𝑞↑(𝑞 pCnt (♯‘𝐵))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ∥ (♯‘𝐵))
254 eqid 2818 . . . . . . . . . 10 (Cntz‘𝐺) = (Cntz‘𝐺)
255 inss1 4202 . . . . . . . . . . . . . 14 (𝐷 ∩ {𝑞}) ⊆ 𝐷
256255a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (𝐷 ∩ {𝑞}) ⊆ 𝐷)
25795, 98, 256dprdres 19079 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (𝐺dom DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})) ∧ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ⊆ (𝐺 DProd (𝑇𝐷))))
258257simpld 495 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → 𝐺dom DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))
259 dprdsubg 19075 . . . . . . . . . . 11 (𝐺dom DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ∈ (SubGrp‘𝐺))
260258, 259syl 17 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ∈ (SubGrp‘𝐺))
261 inass 4193 . . . . . . . . . . . . 13 ((𝐷 ∩ {𝑞}) ∩ (𝐷 ∖ {𝑞})) = (𝐷 ∩ ({𝑞} ∩ (𝐷 ∖ {𝑞})))
262 disjdif 4417 . . . . . . . . . . . . . 14 ({𝑞} ∩ (𝐷 ∖ {𝑞})) = ∅
263262ineq2i 4183 . . . . . . . . . . . . 13 (𝐷 ∩ ({𝑞} ∩ (𝐷 ∖ {𝑞}))) = (𝐷 ∩ ∅)
264 in0 4342 . . . . . . . . . . . . 13 (𝐷 ∩ ∅) = ∅
265261, 263, 2643eqtri 2845 . . . . . . . . . . . 12 ((𝐷 ∩ {𝑞}) ∩ (𝐷 ∖ {𝑞})) = ∅
266265a1i 11 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → ((𝐷 ∩ {𝑞}) ∩ (𝐷 ∖ {𝑞})) = ∅)
26795, 98, 256, 99, 266, 106dprddisj2 19090 . . . . . . . . . 10 ((𝜑𝑞𝐴) → ((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ∩ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) = {(0g𝐺)})
26895, 98, 256, 99, 266, 254dprdcntz2 19089 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ⊆ ((Cntz‘𝐺)‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))))
2696dprdssv 19067 . . . . . . . . . . 11 (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ⊆ 𝐵
270 ssfi 8726 . . . . . . . . . . 11 ((𝐵 ∈ Fin ∧ (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ⊆ 𝐵) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ∈ Fin)
27119, 269, 270sylancl 586 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) ∈ Fin)
272197, 106, 254, 260, 103, 267, 268, 271, 112lsmhash 18760 . . . . . . . . 9 ((𝜑𝑞𝐴) → (♯‘((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))(LSSum‘𝐺)(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = ((♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))))
273 inundif 4423 . . . . . . . . . . . . . 14 ((𝐷 ∩ {𝑞}) ∪ (𝐷 ∖ {𝑞})) = 𝐷
274273eqcomi 2827 . . . . . . . . . . . . 13 𝐷 = ((𝐷 ∩ {𝑞}) ∪ (𝐷 ∖ {𝑞}))
275274a1i 11 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → 𝐷 = ((𝐷 ∩ {𝑞}) ∪ (𝐷 ∖ {𝑞})))
27697, 266, 275, 197, 95dprdsplit 19099 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝐺 DProd (𝑇𝐷)) = ((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))(LSSum‘𝐺)(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))))
277209adantr 481 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝐺 DProd (𝑇𝐷)) = 𝐵)
278276, 277eqtr3d 2855 . . . . . . . . . 10 ((𝜑𝑞𝐴) → ((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))(LSSum‘𝐺)(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) = 𝐵)
279278fveq2d 6667 . . . . . . . . 9 ((𝜑𝑞𝐴) → (♯‘((𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))(LSSum‘𝐺)(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = (♯‘𝐵))
280 snssi 4733 . . . . . . . . . . . . . . . . 17 (𝑞𝐷 → {𝑞} ⊆ 𝐷)
281280adantl 482 . . . . . . . . . . . . . . . 16 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → {𝑞} ⊆ 𝐷)
282 sseqin2 4189 . . . . . . . . . . . . . . . 16 ({𝑞} ⊆ 𝐷 ↔ (𝐷 ∩ {𝑞}) = {𝑞})
283281, 282sylib 219 . . . . . . . . . . . . . . 15 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → (𝐷 ∩ {𝑞}) = {𝑞})
284283reseq2d 5846 . . . . . . . . . . . . . 14 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})) = ((𝑇𝐷) ↾ {𝑞}))
285284oveq2d 7161 . . . . . . . . . . . . 13 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) = (𝐺 DProd ((𝑇𝐷) ↾ {𝑞})))
28695adantr 481 . . . . . . . . . . . . . 14 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → 𝐺dom DProd (𝑇𝐷))
287213ad2antrr 722 . . . . . . . . . . . . . 14 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → dom (𝑇𝐷) = 𝐷)
288 simpr 485 . . . . . . . . . . . . . 14 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → 𝑞𝐷)
289286, 287, 288dpjlem 19102 . . . . . . . . . . . . 13 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → (𝐺 DProd ((𝑇𝐷) ↾ {𝑞})) = ((𝑇𝐷)‘𝑞))
290218adantl 482 . . . . . . . . . . . . 13 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → ((𝑇𝐷)‘𝑞) = (𝑇𝑞))
291285, 289, 2903eqtrd 2857 . . . . . . . . . . . 12 (((𝜑𝑞𝐴) ∧ 𝑞𝐷) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) = (𝑇𝑞))
292 simprr 769 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → ¬ 𝑞𝐷)
293 disjsn 4639 . . . . . . . . . . . . . . . . . 18 ((𝐷 ∩ {𝑞}) = ∅ ↔ ¬ 𝑞𝐷)
294292, 293sylibr 235 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝐷 ∩ {𝑞}) = ∅)
295294reseq2d 5846 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})) = ((𝑇𝐷) ↾ ∅))
296 res0 5850 . . . . . . . . . . . . . . . 16 ((𝑇𝐷) ↾ ∅) = ∅
297295, 296syl6eq 2869 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})) = ∅)
298297oveq2d 7161 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) = (𝐺 DProd ∅))
299106dprd0 19082 . . . . . . . . . . . . . . . . 17 (𝐺 ∈ Grp → (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = {(0g𝐺)}))
30040, 299syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐺dom DProd ∅ ∧ (𝐺 DProd ∅) = {(0g𝐺)}))
301300simprd 496 . . . . . . . . . . . . . . 15 (𝜑 → (𝐺 DProd ∅) = {(0g𝐺)})
302301adantr 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝐺 DProd ∅) = {(0g𝐺)})
303298, 302, 1883eqtrd 2857 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑞𝐴 ∧ ¬ 𝑞𝐷)) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) = (𝑇𝑞))
304303anassrs 468 . . . . . . . . . . . 12 (((𝜑𝑞𝐴) ∧ ¬ 𝑞𝐷) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) = (𝑇𝑞))
305291, 304pm2.61dan 809 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞}))) = (𝑇𝑞))
306305fveq2d 6667 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))) = (♯‘(𝑇𝑞)))
307306oveq1d 7160 . . . . . . . . 9 ((𝜑𝑞𝐴) → ((♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∩ {𝑞})))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) = ((♯‘(𝑇𝑞)) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))))
308272, 279, 3073eqtr3d 2861 . . . . . . . 8 ((𝜑𝑞𝐴) → (♯‘𝐵) = ((♯‘(𝑇𝑞)) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))))
309253, 308breqtrd 5083 . . . . . . 7 ((𝜑𝑞𝐴) → ((𝑞↑(𝑞 pCnt (♯‘𝐵))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ∥ ((♯‘(𝑇𝑞)) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))))
310115nnne0d 11675 . . . . . . . 8 ((𝜑𝑞𝐴) → (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ≠ 0)
311 dvdsmulcr 15627 . . . . . . . 8 (((𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℤ ∧ (♯‘(𝑇𝑞)) ∈ ℤ ∧ ((♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ∈ ℤ ∧ (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞})))) ≠ 0)) → (((𝑞↑(𝑞 pCnt (♯‘𝐵))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ∥ ((♯‘(𝑇𝑞)) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ↔ (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘(𝑇𝑞))))
31273, 68, 116, 310, 311syl112anc 1366 . . . . . . 7 ((𝜑𝑞𝐴) → (((𝑞↑(𝑞 pCnt (♯‘𝐵))) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ∥ ((♯‘(𝑇𝑞)) · (♯‘(𝐺 DProd ((𝑇𝐷) ↾ (𝐷 ∖ {𝑞}))))) ↔ (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘(𝑇𝑞))))
313309, 312mpbid 233 . . . . . 6 ((𝜑𝑞𝐴) → (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘(𝑇𝑞)))
314 dvdseq 15652 . . . . . 6 ((((♯‘(𝑇𝑞)) ∈ ℕ0 ∧ (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∈ ℕ0) ∧ ((♯‘(𝑇𝑞)) ∥ (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∧ (𝑞↑(𝑞 pCnt (♯‘𝐵))) ∥ (♯‘(𝑇𝑞)))) → (♯‘(𝑇𝑞)) = (𝑞↑(𝑞 pCnt (♯‘𝐵))))
31567, 87, 60, 313, 314syl22anc 834 . . . . 5 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) = (𝑞↑(𝑞 pCnt (♯‘𝐵))))
3166, 7, 8, 9, 10, 11ablfac1a 19120 . . . . 5 ((𝜑𝑞𝐴) → (♯‘(𝑆𝑞)) = (𝑞↑(𝑞 pCnt (♯‘𝐵))))
317315, 316eqtr4d 2856 . . . 4 ((𝜑𝑞𝐴) → (♯‘(𝑇𝑞)) = (♯‘(𝑆𝑞)))
318 hashen 13695 . . . . 5 (((𝑇𝑞) ∈ Fin ∧ (𝑆𝑞) ∈ Fin) → ((♯‘(𝑇𝑞)) = (♯‘(𝑆𝑞)) ↔ (𝑇𝑞) ≈ (𝑆𝑞)))
31928, 23, 318syl2anc 584 . . . 4 ((𝜑𝑞𝐴) → ((♯‘(𝑇𝑞)) = (♯‘(𝑆𝑞)) ↔ (𝑇𝑞) ≈ (𝑆𝑞)))
320317, 319mpbid 233 . . 3 ((𝜑𝑞𝐴) → (𝑇𝑞) ≈ (𝑆𝑞))
321 fisseneq 8717 . . 3 (((𝑆𝑞) ∈ Fin ∧ (𝑇𝑞) ⊆ (𝑆𝑞) ∧ (𝑇𝑞) ≈ (𝑆𝑞)) → (𝑇𝑞) = (𝑆𝑞))
32223, 86, 320, 321syl3anc 1363 . 2 ((𝜑𝑞𝐴) → (𝑇𝑞) = (𝑆𝑞))
3235, 18, 322eqfnfvd 6797 1 (𝜑𝑇 = 𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  wo 841  w3a 1079   = wceq 1528  wcel 2105  wne 3013  wral 3135  {crab 3139  Vcvv 3492  cdif 3930  cun 3931  cin 3932  wss 3933  c0 4288  {csn 4557   class class class wbr 5057  cmpt 5137  dom cdm 5548  cres 5550  wf 6344  cfv 6348  (class class class)co 7145  cen 8494  Fincfn 8497  0cc0 10525  1c1 10526   · cmul 10530  cle 10664  cn 11626  0cn0 11885  cz 11969  cuz 12231  ...cfz 12880  cexp 13417  chash 13678  cdvds 15595   gcd cgcd 15831  cprime 16003   pCnt cpc 16161  Basecbs 16471  0gc0g 16701  Grpcgrp 18041  SubGrpcsubg 18211  Cntzccntz 18383  odcod 18581  LSSumclsm 18688  Abelcabl 18836   DProd cdprd 19044
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2790  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7450  ax-inf2 9092  ax-cnex 10581  ax-resscn 10582  ax-1cn 10583  ax-icn 10584  ax-addcl 10585  ax-addrcl 10586  ax-mulcl 10587  ax-mulrcl 10588  ax-mulcom 10589  ax-addass 10590  ax-mulass 10591  ax-distr 10592  ax-i2m1 10593  ax-1ne0 10594  ax-1rid 10595  ax-rnegex 10596  ax-rrecex 10597  ax-cnre 10598  ax-pre-lttri 10599  ax-pre-lttrn 10600  ax-pre-ltadd 10601  ax-pre-mulgt0 10602  ax-pre-sup 10603
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-3or 1080  df-3an 1081  df-tru 1531  df-fal 1541  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2615  df-eu 2647  df-clab 2797  df-cleq 2811  df-clel 2890  df-nfc 2960  df-ne 3014  df-nel 3121  df-ral 3140  df-rex 3141  df-reu 3142  df-rmo 3143  df-rab 3144  df-v 3494  df-sbc 3770  df-csb 3881  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-pss 3951  df-nul 4289  df-if 4464  df-pw 4537  df-sn 4558  df-pr 4560  df-tp 4562  df-op 4564  df-uni 4831  df-int 4868  df-iun 4912  df-iin 4913  df-disj 5023  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 7103  df-ov 7148  df-oprab 7149  df-mpo 7150  df-of 7398  df-om 7570  df-1st 7678  df-2nd 7679  df-supp 7820  df-tpos 7881  df-wrecs 7936  df-recs 7997  df-rdg 8035  df-1o 8091  df-2o 8092  df-oadd 8095  df-omul 8096  df-er 8278  df-ec 8280  df-qs 8284  df-map 8397  df-ixp 8450  df-en 8498  df-dom 8499  df-sdom 8500  df-fin 8501  df-fsupp 8822  df-sup 8894  df-inf 8895  df-oi 8962  df-dju 9318  df-card 9356  df-acn 9359  df-pnf 10665  df-mnf 10666  df-xr 10667  df-ltxr 10668  df-le 10669  df-sub 10860  df-neg 10861  df-div 11286  df-nn 11627  df-2 11688  df-3 11689  df-n0 11886  df-xnn0 11956  df-z 11970  df-uz 12232  df-q 12337  df-rp 12378  df-fz 12881  df-fzo 13022  df-fl 13150  df-mod 13226  df-seq 13358  df-exp 13418  df-fac 13622  df-bc 13651  df-hash 13679  df-cj 14446  df-re 14447  df-im 14448  df-sqrt 14582  df-abs 14583  df-clim 14833  df-sum 15031  df-dvds 15596  df-gcd 15832  df-prm 16004  df-pc 16162  df-ndx 16474  df-slot 16475  df-base 16477  df-sets 16478  df-ress 16479  df-plusg 16566  df-0g 16703  df-gsum 16704  df-mre 16845  df-mrc 16846  df-acs 16848  df-mgm 17840  df-sgrp 17889  df-mnd 17900  df-mhm 17944  df-submnd 17945  df-grp 18044  df-minusg 18045  df-sbg 18046  df-mulg 18163  df-subg 18214  df-eqg 18216  df-ghm 18294  df-gim 18337  df-ga 18358  df-cntz 18385  df-oppg 18412  df-od 18585  df-lsm 18690  df-pj1 18691  df-cmn 18837  df-abl 18838  df-dprd 19046
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator