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

Theorem ablfaclem3 18418
Description: Lemma for ablfac 18419. (Contributed by Mario Carneiro, 27-Apr-2016.) (Revised by Mario Carneiro, 3-May-2016.)
Hypotheses
Ref Expression
ablfac.b 𝐵 = (Base‘𝐺)
ablfac.c 𝐶 = {𝑟 ∈ (SubGrp‘𝐺) ∣ (𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
ablfac.1 (𝜑𝐺 ∈ Abel)
ablfac.2 (𝜑𝐵 ∈ Fin)
ablfac.o 𝑂 = (od‘𝐺)
ablfac.a 𝐴 = {𝑤 ∈ ℙ ∣ 𝑤 ∥ (#‘𝐵)}
ablfac.s 𝑆 = (𝑝𝐴 ↦ {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))})
ablfac.w 𝑊 = (𝑔 ∈ (SubGrp‘𝐺) ↦ {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑔)})
Assertion
Ref Expression
ablfaclem3 (𝜑 → (𝑊𝐵) ≠ ∅)
Distinct variable groups:   𝑠,𝑝,𝑥,𝐴   𝑔,𝑟,𝑠,𝑆   𝑔,𝑝,𝑤,𝑥,𝐵,𝑟,𝑠   𝑂,𝑝,𝑥   𝐶,𝑔,𝑝,𝑠,𝑤,𝑥   𝑊,𝑝,𝑤,𝑥   𝜑,𝑝,𝑠,𝑤,𝑥   𝑔,𝐺,𝑝,𝑟,𝑠,𝑤,𝑥
Allowed substitution hints:   𝜑(𝑔,𝑟)   𝐴(𝑤,𝑔,𝑟)   𝐶(𝑟)   𝑆(𝑥,𝑤,𝑝)   𝑂(𝑤,𝑔,𝑠,𝑟)   𝑊(𝑔,𝑠,𝑟)

Proof of Theorem ablfaclem3
Dummy variables 𝑎 𝑏 𝑐 𝑓 𝑞 𝑡 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fzfid 12720 . . . 4 (𝜑 → (1...(#‘𝐵)) ∈ Fin)
2 ablfac.a . . . . 5 𝐴 = {𝑤 ∈ ℙ ∣ 𝑤 ∥ (#‘𝐵)}
3 prmnn 15323 . . . . . . . 8 (𝑤 ∈ ℙ → 𝑤 ∈ ℕ)
433ad2ant2 1081 . . . . . . 7 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (#‘𝐵)) → 𝑤 ∈ ℕ)
5 prmz 15324 . . . . . . . . 9 (𝑤 ∈ ℙ → 𝑤 ∈ ℤ)
6 ablfac.1 . . . . . . . . . . 11 (𝜑𝐺 ∈ Abel)
7 ablgrp 18130 . . . . . . . . . . 11 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
8 ablfac.b . . . . . . . . . . . 12 𝐵 = (Base‘𝐺)
98grpbn0 17383 . . . . . . . . . . 11 (𝐺 ∈ Grp → 𝐵 ≠ ∅)
106, 7, 93syl 18 . . . . . . . . . 10 (𝜑𝐵 ≠ ∅)
11 ablfac.2 . . . . . . . . . . 11 (𝜑𝐵 ∈ Fin)
12 hashnncl 13105 . . . . . . . . . . 11 (𝐵 ∈ Fin → ((#‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
1311, 12syl 17 . . . . . . . . . 10 (𝜑 → ((#‘𝐵) ∈ ℕ ↔ 𝐵 ≠ ∅))
1410, 13mpbird 247 . . . . . . . . 9 (𝜑 → (#‘𝐵) ∈ ℕ)
15 dvdsle 14967 . . . . . . . . 9 ((𝑤 ∈ ℤ ∧ (#‘𝐵) ∈ ℕ) → (𝑤 ∥ (#‘𝐵) → 𝑤 ≤ (#‘𝐵)))
165, 14, 15syl2anr 495 . . . . . . . 8 ((𝜑𝑤 ∈ ℙ) → (𝑤 ∥ (#‘𝐵) → 𝑤 ≤ (#‘𝐵)))
17163impia 1258 . . . . . . 7 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (#‘𝐵)) → 𝑤 ≤ (#‘𝐵))
1814nnzd 11433 . . . . . . . . 9 (𝜑 → (#‘𝐵) ∈ ℤ)
19183ad2ant1 1080 . . . . . . . 8 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (#‘𝐵)) → (#‘𝐵) ∈ ℤ)
20 fznn 12358 . . . . . . . 8 ((#‘𝐵) ∈ ℤ → (𝑤 ∈ (1...(#‘𝐵)) ↔ (𝑤 ∈ ℕ ∧ 𝑤 ≤ (#‘𝐵))))
2119, 20syl 17 . . . . . . 7 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (#‘𝐵)) → (𝑤 ∈ (1...(#‘𝐵)) ↔ (𝑤 ∈ ℕ ∧ 𝑤 ≤ (#‘𝐵))))
224, 17, 21mpbir2and 956 . . . . . 6 ((𝜑𝑤 ∈ ℙ ∧ 𝑤 ∥ (#‘𝐵)) → 𝑤 ∈ (1...(#‘𝐵)))
2322rabssdv 3666 . . . . 5 (𝜑 → {𝑤 ∈ ℙ ∣ 𝑤 ∥ (#‘𝐵)} ⊆ (1...(#‘𝐵)))
242, 23syl5eqss 3633 . . . 4 (𝜑𝐴 ⊆ (1...(#‘𝐵)))
25 ssfi 8132 . . . 4 (((1...(#‘𝐵)) ∈ Fin ∧ 𝐴 ⊆ (1...(#‘𝐵))) → 𝐴 ∈ Fin)
261, 24, 25syl2anc 692 . . 3 (𝜑𝐴 ∈ Fin)
27 dfin5 3567 . . . . . . . 8 (Word 𝐶 ∩ (𝑊‘(𝑆𝑞))) = {𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞))}
28 ablfac.o . . . . . . . . . . . . . 14 𝑂 = (od‘𝐺)
29 ablfac.s . . . . . . . . . . . . . 14 𝑆 = (𝑝𝐴 ↦ {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))})
30 ssrab2 3671 . . . . . . . . . . . . . . . 16 {𝑤 ∈ ℙ ∣ 𝑤 ∥ (#‘𝐵)} ⊆ ℙ
312, 30eqsstri 3619 . . . . . . . . . . . . . . 15 𝐴 ⊆ ℙ
3231a1i 11 . . . . . . . . . . . . . 14 (𝜑𝐴 ⊆ ℙ)
338, 28, 29, 6, 11, 32ablfac1b 18401 . . . . . . . . . . . . 13 (𝜑𝐺dom DProd 𝑆)
34 fvex 6163 . . . . . . . . . . . . . . . . 17 (Base‘𝐺) ∈ V
358, 34eqeltri 2694 . . . . . . . . . . . . . . . 16 𝐵 ∈ V
3635rabex 4778 . . . . . . . . . . . . . . 15 {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))} ∈ V
3736, 29dmmpti 5985 . . . . . . . . . . . . . 14 dom 𝑆 = 𝐴
3837a1i 11 . . . . . . . . . . . . 13 (𝜑 → dom 𝑆 = 𝐴)
3933, 38dprdf2 18338 . . . . . . . . . . . 12 (𝜑𝑆:𝐴⟶(SubGrp‘𝐺))
4039ffvelrnda 6320 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝑆𝑞) ∈ (SubGrp‘𝐺))
41 ablfac.c . . . . . . . . . . . 12 𝐶 = {𝑟 ∈ (SubGrp‘𝐺) ∣ (𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
42 ablfac.w . . . . . . . . . . . 12 𝑊 = (𝑔 ∈ (SubGrp‘𝐺) ↦ {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑔)})
438, 41, 6, 11, 28, 2, 29, 42ablfaclem1 18416 . . . . . . . . . . 11 ((𝑆𝑞) ∈ (SubGrp‘𝐺) → (𝑊‘(𝑆𝑞)) = {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))})
4440, 43syl 17 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (𝑊‘(𝑆𝑞)) = {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))})
45 ssrab2 3671 . . . . . . . . . 10 {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))} ⊆ Word 𝐶
4644, 45syl6eqss 3639 . . . . . . . . 9 ((𝜑𝑞𝐴) → (𝑊‘(𝑆𝑞)) ⊆ Word 𝐶)
47 sseqin2 3800 . . . . . . . . 9 ((𝑊‘(𝑆𝑞)) ⊆ Word 𝐶 ↔ (Word 𝐶 ∩ (𝑊‘(𝑆𝑞))) = (𝑊‘(𝑆𝑞)))
4846, 47sylib 208 . . . . . . . 8 ((𝜑𝑞𝐴) → (Word 𝐶 ∩ (𝑊‘(𝑆𝑞))) = (𝑊‘(𝑆𝑞)))
4927, 48syl5eqr 2669 . . . . . . 7 ((𝜑𝑞𝐴) → {𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞))} = (𝑊‘(𝑆𝑞)))
5049, 44eqtrd 2655 . . . . . 6 ((𝜑𝑞𝐴) → {𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞))} = {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))})
51 eqid 2621 . . . . . . . . 9 (Base‘(𝐺s (𝑆𝑞))) = (Base‘(𝐺s (𝑆𝑞)))
52 eqid 2621 . . . . . . . . 9 {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} = {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
536adantr 481 . . . . . . . . . 10 ((𝜑𝑞𝐴) → 𝐺 ∈ Abel)
54 eqid 2621 . . . . . . . . . . 11 (𝐺s (𝑆𝑞)) = (𝐺s (𝑆𝑞))
5554subgabl 18173 . . . . . . . . . 10 ((𝐺 ∈ Abel ∧ (𝑆𝑞) ∈ (SubGrp‘𝐺)) → (𝐺s (𝑆𝑞)) ∈ Abel)
5653, 40, 55syl2anc 692 . . . . . . . . 9 ((𝜑𝑞𝐴) → (𝐺s (𝑆𝑞)) ∈ Abel)
5732sselda 3587 . . . . . . . . . 10 ((𝜑𝑞𝐴) → 𝑞 ∈ ℙ)
5854subgbas 17530 . . . . . . . . . . . . . 14 ((𝑆𝑞) ∈ (SubGrp‘𝐺) → (𝑆𝑞) = (Base‘(𝐺s (𝑆𝑞))))
5940, 58syl 17 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (𝑆𝑞) = (Base‘(𝐺s (𝑆𝑞))))
6059fveq2d 6157 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (#‘(𝑆𝑞)) = (#‘(Base‘(𝐺s (𝑆𝑞)))))
618, 28, 29, 6, 11, 32ablfac1a 18400 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (#‘(𝑆𝑞)) = (𝑞↑(𝑞 pCnt (#‘𝐵))))
6260, 61eqtr3d 2657 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (#‘(Base‘(𝐺s (𝑆𝑞)))) = (𝑞↑(𝑞 pCnt (#‘𝐵))))
6362oveq2d 6626 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (𝑞 pCnt (#‘(Base‘(𝐺s (𝑆𝑞))))) = (𝑞 pCnt (𝑞↑(𝑞 pCnt (#‘𝐵)))))
6414adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑞𝐴) → (#‘𝐵) ∈ ℕ)
6557, 64pccld 15490 . . . . . . . . . . . . . . 15 ((𝜑𝑞𝐴) → (𝑞 pCnt (#‘𝐵)) ∈ ℕ0)
6665nn0zd 11432 . . . . . . . . . . . . . 14 ((𝜑𝑞𝐴) → (𝑞 pCnt (#‘𝐵)) ∈ ℤ)
67 pcid 15512 . . . . . . . . . . . . . 14 ((𝑞 ∈ ℙ ∧ (𝑞 pCnt (#‘𝐵)) ∈ ℤ) → (𝑞 pCnt (𝑞↑(𝑞 pCnt (#‘𝐵)))) = (𝑞 pCnt (#‘𝐵)))
6857, 66, 67syl2anc 692 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (𝑞 pCnt (𝑞↑(𝑞 pCnt (#‘𝐵)))) = (𝑞 pCnt (#‘𝐵)))
6963, 68eqtrd 2655 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (𝑞 pCnt (#‘(Base‘(𝐺s (𝑆𝑞))))) = (𝑞 pCnt (#‘𝐵)))
7069oveq2d 6626 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝑞↑(𝑞 pCnt (#‘(Base‘(𝐺s (𝑆𝑞)))))) = (𝑞↑(𝑞 pCnt (#‘𝐵))))
7162, 70eqtr4d 2658 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (#‘(Base‘(𝐺s (𝑆𝑞)))) = (𝑞↑(𝑞 pCnt (#‘(Base‘(𝐺s (𝑆𝑞)))))))
7254subggrp 17529 . . . . . . . . . . . 12 ((𝑆𝑞) ∈ (SubGrp‘𝐺) → (𝐺s (𝑆𝑞)) ∈ Grp)
7340, 72syl 17 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (𝐺s (𝑆𝑞)) ∈ Grp)
7411adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → 𝐵 ∈ Fin)
758subgss 17527 . . . . . . . . . . . . . 14 ((𝑆𝑞) ∈ (SubGrp‘𝐺) → (𝑆𝑞) ⊆ 𝐵)
7640, 75syl 17 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → (𝑆𝑞) ⊆ 𝐵)
77 ssfi 8132 . . . . . . . . . . . . 13 ((𝐵 ∈ Fin ∧ (𝑆𝑞) ⊆ 𝐵) → (𝑆𝑞) ∈ Fin)
7874, 76, 77syl2anc 692 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → (𝑆𝑞) ∈ Fin)
7959, 78eqeltrrd 2699 . . . . . . . . . . 11 ((𝜑𝑞𝐴) → (Base‘(𝐺s (𝑆𝑞))) ∈ Fin)
8051pgpfi2 17953 . . . . . . . . . . 11 (((𝐺s (𝑆𝑞)) ∈ Grp ∧ (Base‘(𝐺s (𝑆𝑞))) ∈ Fin) → (𝑞 pGrp (𝐺s (𝑆𝑞)) ↔ (𝑞 ∈ ℙ ∧ (#‘(Base‘(𝐺s (𝑆𝑞)))) = (𝑞↑(𝑞 pCnt (#‘(Base‘(𝐺s (𝑆𝑞)))))))))
8173, 79, 80syl2anc 692 . . . . . . . . . 10 ((𝜑𝑞𝐴) → (𝑞 pGrp (𝐺s (𝑆𝑞)) ↔ (𝑞 ∈ ℙ ∧ (#‘(Base‘(𝐺s (𝑆𝑞)))) = (𝑞↑(𝑞 pCnt (#‘(Base‘(𝐺s (𝑆𝑞)))))))))
8257, 71, 81mpbir2and 956 . . . . . . . . 9 ((𝜑𝑞𝐴) → 𝑞 pGrp (𝐺s (𝑆𝑞)))
8351, 52, 56, 82, 79pgpfac 18415 . . . . . . . 8 ((𝜑𝑞𝐴) → ∃𝑠 ∈ Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ((𝐺s (𝑆𝑞))dom DProd 𝑠 ∧ ((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞)))))
84 ssrab2 3671 . . . . . . . . . . . . . 14 {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ (SubGrp‘(𝐺s (𝑆𝑞)))
85 sswrd 13260 . . . . . . . . . . . . . 14 ({𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ (SubGrp‘(𝐺s (𝑆𝑞))) → Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ Word (SubGrp‘(𝐺s (𝑆𝑞))))
8684, 85ax-mp 5 . . . . . . . . . . . . 13 Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ Word (SubGrp‘(𝐺s (𝑆𝑞)))
8786sseli 3583 . . . . . . . . . . . 12 (𝑠 ∈ Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} → 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞))))
8840adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) → (𝑆𝑞) ∈ (SubGrp‘𝐺))
8988adantr 481 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → (𝑆𝑞) ∈ (SubGrp‘𝐺))
9054subgdmdprd 18365 . . . . . . . . . . . . . . . . . . 19 ((𝑆𝑞) ∈ (SubGrp‘𝐺) → ((𝐺s (𝑆𝑞))dom DProd 𝑠 ↔ (𝐺dom DProd 𝑠 ∧ ran 𝑠 ⊆ 𝒫 (𝑆𝑞))))
9188, 90syl 17 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) → ((𝐺s (𝑆𝑞))dom DProd 𝑠 ↔ (𝐺dom DProd 𝑠 ∧ ran 𝑠 ⊆ 𝒫 (𝑆𝑞))))
9291simprbda 652 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → 𝐺dom DProd 𝑠)
9391simplbda 653 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → ran 𝑠 ⊆ 𝒫 (𝑆𝑞))
9454, 89, 92, 93subgdprd 18366 . . . . . . . . . . . . . . . 16 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → ((𝐺s (𝑆𝑞)) DProd 𝑠) = (𝐺 DProd 𝑠))
9559ad2antrr 761 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → (𝑆𝑞) = (Base‘(𝐺s (𝑆𝑞))))
9695eqcomd 2627 . . . . . . . . . . . . . . . 16 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → (Base‘(𝐺s (𝑆𝑞))) = (𝑆𝑞))
9794, 96eqeq12d 2636 . . . . . . . . . . . . . . 15 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → (((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞))) ↔ (𝐺 DProd 𝑠) = (𝑆𝑞)))
9897biimpd 219 . . . . . . . . . . . . . 14 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → (((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞))) → (𝐺 DProd 𝑠) = (𝑆𝑞)))
9998, 92jctild 565 . . . . . . . . . . . . 13 ((((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) ∧ (𝐺s (𝑆𝑞))dom DProd 𝑠) → (((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞))) → (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))))
10099expimpd 628 . . . . . . . . . . . 12 (((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word (SubGrp‘(𝐺s (𝑆𝑞)))) → (((𝐺s (𝑆𝑞))dom DProd 𝑠 ∧ ((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞)))) → (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))))
10187, 100sylan2 491 . . . . . . . . . . 11 (((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )}) → (((𝐺s (𝑆𝑞))dom DProd 𝑠 ∧ ((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞)))) → (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))))
102 oveq2 6618 . . . . . . . . . . . . . . . 16 (𝑟 = 𝑦 → ((𝐺s (𝑆𝑞)) ↾s 𝑟) = ((𝐺s (𝑆𝑞)) ↾s 𝑦))
103102eleq1d 2683 . . . . . . . . . . . . . . 15 (𝑟 = 𝑦 → (((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp ) ↔ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )))
104103cbvrabv 3188 . . . . . . . . . . . . . 14 {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} = {𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )}
10554subsubg 17549 . . . . . . . . . . . . . . . . . . 19 ((𝑆𝑞) ∈ (SubGrp‘𝐺) → (𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ↔ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑦 ⊆ (𝑆𝑞))))
10640, 105syl 17 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑞𝐴) → (𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ↔ (𝑦 ∈ (SubGrp‘𝐺) ∧ 𝑦 ⊆ (𝑆𝑞))))
107106simprbda 652 . . . . . . . . . . . . . . . . 17 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞)))) → 𝑦 ∈ (SubGrp‘𝐺))
1081073adant3 1079 . . . . . . . . . . . . . . . 16 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∧ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )) → 𝑦 ∈ (SubGrp‘𝐺))
109403ad2ant1 1080 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∧ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )) → (𝑆𝑞) ∈ (SubGrp‘𝐺))
110106simplbda 653 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞)))) → 𝑦 ⊆ (𝑆𝑞))
1111103adant3 1079 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∧ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )) → 𝑦 ⊆ (𝑆𝑞))
112 ressabs 15871 . . . . . . . . . . . . . . . . . 18 (((𝑆𝑞) ∈ (SubGrp‘𝐺) ∧ 𝑦 ⊆ (𝑆𝑞)) → ((𝐺s (𝑆𝑞)) ↾s 𝑦) = (𝐺s 𝑦))
113109, 111, 112syl2anc 692 . . . . . . . . . . . . . . . . 17 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∧ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )) → ((𝐺s (𝑆𝑞)) ↾s 𝑦) = (𝐺s 𝑦))
114 simp3 1061 . . . . . . . . . . . . . . . . 17 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∧ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )) → ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp ))
115113, 114eqeltrrd 2699 . . . . . . . . . . . . . . . 16 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∧ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )) → (𝐺s 𝑦) ∈ (CycGrp ∩ ran pGrp ))
116 oveq2 6618 . . . . . . . . . . . . . . . . . 18 (𝑟 = 𝑦 → (𝐺s 𝑟) = (𝐺s 𝑦))
117116eleq1d 2683 . . . . . . . . . . . . . . . . 17 (𝑟 = 𝑦 → ((𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp ) ↔ (𝐺s 𝑦) ∈ (CycGrp ∩ ran pGrp )))
118117, 41elrab2 3352 . . . . . . . . . . . . . . . 16 (𝑦𝐶 ↔ (𝑦 ∈ (SubGrp‘𝐺) ∧ (𝐺s 𝑦) ∈ (CycGrp ∩ ran pGrp )))
119108, 115, 118sylanbrc 697 . . . . . . . . . . . . . . 15 (((𝜑𝑞𝐴) ∧ 𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∧ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )) → 𝑦𝐶)
120119rabssdv 3666 . . . . . . . . . . . . . 14 ((𝜑𝑞𝐴) → {𝑦 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑦) ∈ (CycGrp ∩ ran pGrp )} ⊆ 𝐶)
121104, 120syl5eqss 3633 . . . . . . . . . . . . 13 ((𝜑𝑞𝐴) → {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ 𝐶)
122 sswrd 13260 . . . . . . . . . . . . 13 ({𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ 𝐶 → Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ Word 𝐶)
123121, 122syl 17 . . . . . . . . . . . 12 ((𝜑𝑞𝐴) → Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ⊆ Word 𝐶)
124123sselda 3587 . . . . . . . . . . 11 (((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )}) → 𝑠 ∈ Word 𝐶)
125101, 124jctild 565 . . . . . . . . . 10 (((𝜑𝑞𝐴) ∧ 𝑠 ∈ Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )}) → (((𝐺s (𝑆𝑞))dom DProd 𝑠 ∧ ((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞)))) → (𝑠 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞)))))
126125expimpd 628 . . . . . . . . 9 ((𝜑𝑞𝐴) → ((𝑠 ∈ Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ∧ ((𝐺s (𝑆𝑞))dom DProd 𝑠 ∧ ((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞))))) → (𝑠 ∈ Word 𝐶 ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞)))))
127126reximdv2 3009 . . . . . . . 8 ((𝜑𝑞𝐴) → (∃𝑠 ∈ Word {𝑟 ∈ (SubGrp‘(𝐺s (𝑆𝑞))) ∣ ((𝐺s (𝑆𝑞)) ↾s 𝑟) ∈ (CycGrp ∩ ran pGrp )} ((𝐺s (𝑆𝑞))dom DProd 𝑠 ∧ ((𝐺s (𝑆𝑞)) DProd 𝑠) = (Base‘(𝐺s (𝑆𝑞)))) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))))
12883, 127mpd 15 . . . . . . 7 ((𝜑𝑞𝐴) → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞)))
129 rabn0 3937 . . . . . . 7 ({𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))} ≠ ∅ ↔ ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞)))
130128, 129sylibr 224 . . . . . 6 ((𝜑𝑞𝐴) → {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = (𝑆𝑞))} ≠ ∅)
13150, 130eqnetrd 2857 . . . . 5 ((𝜑𝑞𝐴) → {𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞))} ≠ ∅)
132 rabn0 3937 . . . . 5 ({𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞))} ≠ ∅ ↔ ∃𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞)))
133131, 132sylib 208 . . . 4 ((𝜑𝑞𝐴) → ∃𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞)))
134133ralrimiva 2961 . . 3 (𝜑 → ∀𝑞𝐴𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞)))
135 eleq1 2686 . . . 4 (𝑦 = (𝑓𝑞) → (𝑦 ∈ (𝑊‘(𝑆𝑞)) ↔ (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))))
136135ac6sfi 8156 . . 3 ((𝐴 ∈ Fin ∧ ∀𝑞𝐴𝑦 ∈ Word 𝐶𝑦 ∈ (𝑊‘(𝑆𝑞))) → ∃𝑓(𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))))
13726, 134, 136syl2anc 692 . 2 (𝜑 → ∃𝑓(𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))))
138 sneq 4163 . . . . . . . . 9 (𝑞 = 𝑦 → {𝑞} = {𝑦})
139 fveq2 6153 . . . . . . . . . 10 (𝑞 = 𝑦 → (𝑓𝑞) = (𝑓𝑦))
140139dmeqd 5291 . . . . . . . . 9 (𝑞 = 𝑦 → dom (𝑓𝑞) = dom (𝑓𝑦))
141138, 140xpeq12d 5105 . . . . . . . 8 (𝑞 = 𝑦 → ({𝑞} × dom (𝑓𝑞)) = ({𝑦} × dom (𝑓𝑦)))
142141cbviunv 4530 . . . . . . 7 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)) = 𝑦𝐴 ({𝑦} × dom (𝑓𝑦))
14326adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → 𝐴 ∈ Fin)
144 snfi 7990 . . . . . . . . . 10 {𝑦} ∈ Fin
145 simprl 793 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → 𝑓:𝐴⟶Word 𝐶)
146145ffvelrnda 6320 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) ∧ 𝑦𝐴) → (𝑓𝑦) ∈ Word 𝐶)
147 wrdf 13257 . . . . . . . . . . . 12 ((𝑓𝑦) ∈ Word 𝐶 → (𝑓𝑦):(0..^(#‘(𝑓𝑦)))⟶𝐶)
148 fdm 6013 . . . . . . . . . . . 12 ((𝑓𝑦):(0..^(#‘(𝑓𝑦)))⟶𝐶 → dom (𝑓𝑦) = (0..^(#‘(𝑓𝑦))))
149146, 147, 1483syl 18 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) ∧ 𝑦𝐴) → dom (𝑓𝑦) = (0..^(#‘(𝑓𝑦))))
150 fzofi 12721 . . . . . . . . . . 11 (0..^(#‘(𝑓𝑦))) ∈ Fin
151149, 150syl6eqel 2706 . . . . . . . . . 10 (((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) ∧ 𝑦𝐴) → dom (𝑓𝑦) ∈ Fin)
152 xpfi 8183 . . . . . . . . . 10 (({𝑦} ∈ Fin ∧ dom (𝑓𝑦) ∈ Fin) → ({𝑦} × dom (𝑓𝑦)) ∈ Fin)
153144, 151, 152sylancr 694 . . . . . . . . 9 (((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) ∧ 𝑦𝐴) → ({𝑦} × dom (𝑓𝑦)) ∈ Fin)
154153ralrimiva 2961 . . . . . . . 8 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → ∀𝑦𝐴 ({𝑦} × dom (𝑓𝑦)) ∈ Fin)
155 iunfi 8206 . . . . . . . 8 ((𝐴 ∈ Fin ∧ ∀𝑦𝐴 ({𝑦} × dom (𝑓𝑦)) ∈ Fin) → 𝑦𝐴 ({𝑦} × dom (𝑓𝑦)) ∈ Fin)
156143, 154, 155syl2anc 692 . . . . . . 7 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → 𝑦𝐴 ({𝑦} × dom (𝑓𝑦)) ∈ Fin)
157142, 156syl5eqel 2702 . . . . . 6 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)) ∈ Fin)
158 hashcl 13095 . . . . . 6 ( 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)) ∈ Fin → (#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))) ∈ ℕ0)
159 hashfzo0 13165 . . . . . 6 ((#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))) ∈ ℕ0 → (#‘(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))) = (#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))
160157, 158, 1593syl 18 . . . . 5 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → (#‘(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))) = (#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))
161 fzofi 12721 . . . . . 6 (0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) ∈ Fin
162 hashen 13083 . . . . . 6 (((0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) ∈ Fin ∧ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)) ∈ Fin) → ((#‘(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))) = (#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))) ↔ (0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) ≈ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))
163161, 157, 162sylancr 694 . . . . 5 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → ((#‘(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))) = (#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))) ↔ (0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) ≈ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))
164160, 163mpbid 222 . . . 4 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → (0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) ≈ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))
165 bren 7916 . . . 4 ((0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) ≈ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)) ↔ ∃ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))
166164, 165sylib 208 . . 3 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → ∃ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))
1676adantr 481 . . . . . 6 ((𝜑 ∧ ((𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))) ∧ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) → 𝐺 ∈ Abel)
16811adantr 481 . . . . . 6 ((𝜑 ∧ ((𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))) ∧ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) → 𝐵 ∈ Fin)
169 breq1 4621 . . . . . . . 8 (𝑤 = 𝑎 → (𝑤 ∥ (#‘𝐵) ↔ 𝑎 ∥ (#‘𝐵)))
170169cbvrabv 3188 . . . . . . 7 {𝑤 ∈ ℙ ∣ 𝑤 ∥ (#‘𝐵)} = {𝑎 ∈ ℙ ∣ 𝑎 ∥ (#‘𝐵)}
1712, 170eqtri 2643 . . . . . 6 𝐴 = {𝑎 ∈ ℙ ∣ 𝑎 ∥ (#‘𝐵)}
172 fveq2 6153 . . . . . . . . . . 11 (𝑥 = 𝑐 → (𝑂𝑥) = (𝑂𝑐))
173172breq1d 4628 . . . . . . . . . 10 (𝑥 = 𝑐 → ((𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵))) ↔ (𝑂𝑐) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))))
174173cbvrabv 3188 . . . . . . . . 9 {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))} = {𝑐𝐵 ∣ (𝑂𝑐) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))}
175 id 22 . . . . . . . . . . . 12 (𝑝 = 𝑏𝑝 = 𝑏)
176 oveq1 6617 . . . . . . . . . . . 12 (𝑝 = 𝑏 → (𝑝 pCnt (#‘𝐵)) = (𝑏 pCnt (#‘𝐵)))
177175, 176oveq12d 6628 . . . . . . . . . . 11 (𝑝 = 𝑏 → (𝑝↑(𝑝 pCnt (#‘𝐵))) = (𝑏↑(𝑏 pCnt (#‘𝐵))))
178177breq2d 4630 . . . . . . . . . 10 (𝑝 = 𝑏 → ((𝑂𝑐) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵))) ↔ (𝑂𝑐) ∥ (𝑏↑(𝑏 pCnt (#‘𝐵)))))
179178rabbidv 3180 . . . . . . . . 9 (𝑝 = 𝑏 → {𝑐𝐵 ∣ (𝑂𝑐) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))} = {𝑐𝐵 ∣ (𝑂𝑐) ∥ (𝑏↑(𝑏 pCnt (#‘𝐵)))})
180174, 179syl5eq 2667 . . . . . . . 8 (𝑝 = 𝑏 → {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))} = {𝑐𝐵 ∣ (𝑂𝑐) ∥ (𝑏↑(𝑏 pCnt (#‘𝐵)))})
181180cbvmptv 4715 . . . . . . 7 (𝑝𝐴 ↦ {𝑥𝐵 ∣ (𝑂𝑥) ∥ (𝑝↑(𝑝 pCnt (#‘𝐵)))}) = (𝑏𝐴 ↦ {𝑐𝐵 ∣ (𝑂𝑐) ∥ (𝑏↑(𝑏 pCnt (#‘𝐵)))})
18229, 181eqtri 2643 . . . . . 6 𝑆 = (𝑏𝐴 ↦ {𝑐𝐵 ∣ (𝑂𝑐) ∥ (𝑏↑(𝑏 pCnt (#‘𝐵)))})
183 breq2 4622 . . . . . . . . . 10 (𝑠 = 𝑡 → (𝐺dom DProd 𝑠𝐺dom DProd 𝑡))
184 oveq2 6618 . . . . . . . . . . 11 (𝑠 = 𝑡 → (𝐺 DProd 𝑠) = (𝐺 DProd 𝑡))
185184eqeq1d 2623 . . . . . . . . . 10 (𝑠 = 𝑡 → ((𝐺 DProd 𝑠) = 𝑔 ↔ (𝐺 DProd 𝑡) = 𝑔))
186183, 185anbi12d 746 . . . . . . . . 9 (𝑠 = 𝑡 → ((𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑔) ↔ (𝐺dom DProd 𝑡 ∧ (𝐺 DProd 𝑡) = 𝑔)))
187186cbvrabv 3188 . . . . . . . 8 {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑔)} = {𝑡 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑡 ∧ (𝐺 DProd 𝑡) = 𝑔)}
188187mpteq2i 4706 . . . . . . 7 (𝑔 ∈ (SubGrp‘𝐺) ↦ {𝑠 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝑔)}) = (𝑔 ∈ (SubGrp‘𝐺) ↦ {𝑡 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑡 ∧ (𝐺 DProd 𝑡) = 𝑔)})
18942, 188eqtri 2643 . . . . . 6 𝑊 = (𝑔 ∈ (SubGrp‘𝐺) ↦ {𝑡 ∈ Word 𝐶 ∣ (𝐺dom DProd 𝑡 ∧ (𝐺 DProd 𝑡) = 𝑔)})
190 simprll 801 . . . . . 6 ((𝜑 ∧ ((𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))) ∧ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) → 𝑓:𝐴⟶Word 𝐶)
191 simprlr 802 . . . . . . 7 ((𝜑 ∧ ((𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))) ∧ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) → ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))
192 fveq2 6153 . . . . . . . . . 10 (𝑞 = 𝑦 → (𝑆𝑞) = (𝑆𝑦))
193192fveq2d 6157 . . . . . . . . 9 (𝑞 = 𝑦 → (𝑊‘(𝑆𝑞)) = (𝑊‘(𝑆𝑦)))
194139, 193eleq12d 2692 . . . . . . . 8 (𝑞 = 𝑦 → ((𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)) ↔ (𝑓𝑦) ∈ (𝑊‘(𝑆𝑦))))
195194cbvralv 3162 . . . . . . 7 (∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)) ↔ ∀𝑦𝐴 (𝑓𝑦) ∈ (𝑊‘(𝑆𝑦)))
196191, 195sylib 208 . . . . . 6 ((𝜑 ∧ ((𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))) ∧ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) → ∀𝑦𝐴 (𝑓𝑦) ∈ (𝑊‘(𝑆𝑦)))
197 simprr 795 . . . . . 6 ((𝜑 ∧ ((𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))) ∧ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) → :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))
1988, 41, 167, 168, 28, 171, 182, 189, 190, 196, 142, 197ablfaclem2 18417 . . . . 5 ((𝜑 ∧ ((𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞))) ∧ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)))) → (𝑊𝐵) ≠ ∅)
199198expr 642 . . . 4 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → (:(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)) → (𝑊𝐵) ≠ ∅))
200199exlimdv 1858 . . 3 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → (∃ :(0..^(#‘ 𝑞𝐴 ({𝑞} × dom (𝑓𝑞))))–1-1-onto 𝑞𝐴 ({𝑞} × dom (𝑓𝑞)) → (𝑊𝐵) ≠ ∅))
201166, 200mpd 15 . 2 ((𝜑 ∧ (𝑓:𝐴⟶Word 𝐶 ∧ ∀𝑞𝐴 (𝑓𝑞) ∈ (𝑊‘(𝑆𝑞)))) → (𝑊𝐵) ≠ ∅)
202137, 201exlimddv 1860 1 (𝜑 → (𝑊𝐵) ≠ ∅)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3a 1036   = wceq 1480  wex 1701  wcel 1987  wne 2790  wral 2907  wrex 2908  {crab 2911  Vcvv 3189  cin 3558  wss 3559  c0 3896  𝒫 cpw 4135  {csn 4153   ciun 4490   class class class wbr 4618  cmpt 4678   × cxp 5077  dom cdm 5079  ran crn 5080  wf 5848  1-1-ontowf1o 5851  cfv 5852  (class class class)co 6610  cen 7904  Fincfn 7907  0cc0 9888  1c1 9889  cle 10027  cn 10972  0cn0 11244  cz 11329  ...cfz 12276  ..^cfzo 12414  cexp 12808  #chash 13065  Word cword 13238  cdvds 14918  cprime 15320   pCnt cpc 15476  Basecbs 15792  s cress 15793  Grpcgrp 17354  SubGrpcsubg 17520  odcod 17876   pGrp cpgp 17878  Abelcabl 18126  CycGrpccyg 18211   DProd cdprd 18324
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4736  ax-sep 4746  ax-nul 4754  ax-pow 4808  ax-pr 4872  ax-un 6909  ax-inf2 8490  ax-cnex 9944  ax-resscn 9945  ax-1cn 9946  ax-icn 9947  ax-addcl 9948  ax-addrcl 9949  ax-mulcl 9950  ax-mulrcl 9951  ax-mulcom 9952  ax-addass 9953  ax-mulass 9954  ax-distr 9955  ax-i2m1 9956  ax-1ne0 9957  ax-1rid 9958  ax-rnegex 9959  ax-rrecex 9960  ax-cnre 9961  ax-pre-lttri 9962  ax-pre-lttrn 9963  ax-pre-ltadd 9964  ax-pre-mulgt0 9965  ax-pre-sup 9966
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-fal 1486  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3191  df-sbc 3422  df-csb 3519  df-dif 3562  df-un 3564  df-in 3566  df-ss 3573  df-pss 3575  df-nul 3897  df-if 4064  df-pw 4137  df-sn 4154  df-pr 4156  df-tp 4158  df-op 4160  df-uni 4408  df-int 4446  df-iun 4492  df-iin 4493  df-disj 4589  df-br 4619  df-opab 4679  df-mpt 4680  df-tr 4718  df-eprel 4990  df-id 4994  df-po 5000  df-so 5001  df-fr 5038  df-se 5039  df-we 5040  df-xp 5085  df-rel 5086  df-cnv 5087  df-co 5088  df-dm 5089  df-rn 5090  df-res 5091  df-ima 5092  df-pred 5644  df-ord 5690  df-on 5691  df-lim 5692  df-suc 5693  df-iota 5815  df-fun 5854  df-fn 5855  df-f 5856  df-f1 5857  df-fo 5858  df-f1o 5859  df-fv 5860  df-isom 5861  df-riota 6571  df-ov 6613  df-oprab 6614  df-mpt2 6615  df-of 6857  df-rpss 6897  df-om 7020  df-1st 7120  df-2nd 7121  df-supp 7248  df-tpos 7304  df-wrecs 7359  df-recs 7420  df-rdg 7458  df-1o 7512  df-2o 7513  df-oadd 7516  df-omul 7517  df-er 7694  df-ec 7696  df-qs 7700  df-map 7811  df-pm 7812  df-ixp 7861  df-en 7908  df-dom 7909  df-sdom 7910  df-fin 7911  df-fsupp 8228  df-sup 8300  df-inf 8301  df-oi 8367  df-card 8717  df-acn 8720  df-cda 8942  df-pnf 10028  df-mnf 10029  df-xr 10030  df-ltxr 10031  df-le 10032  df-sub 10220  df-neg 10221  df-div 10637  df-nn 10973  df-2 11031  df-3 11032  df-n0 11245  df-xnn0 11316  df-z 11330  df-uz 11640  df-q 11741  df-rp 11785  df-fz 12277  df-fzo 12415  df-fl 12541  df-mod 12617  df-seq 12750  df-exp 12809  df-fac 13009  df-bc 13038  df-hash 13066  df-word 13246  df-concat 13248  df-s1 13249  df-cj 13781  df-re 13782  df-im 13783  df-sqrt 13917  df-abs 13918  df-clim 14161  df-sum 14359  df-dvds 14919  df-gcd 15152  df-prm 15321  df-pc 15477  df-ndx 15795  df-slot 15796  df-base 15797  df-sets 15798  df-ress 15799  df-plusg 15886  df-0g 16034  df-gsum 16035  df-mre 16178  df-mrc 16179  df-acs 16181  df-mgm 17174  df-sgrp 17216  df-mnd 17227  df-mhm 17267  df-submnd 17268  df-grp 17357  df-minusg 17358  df-sbg 17359  df-mulg 17473  df-subg 17523  df-eqg 17525  df-ghm 17590  df-gim 17633  df-ga 17655  df-cntz 17682  df-oppg 17708  df-od 17880  df-gex 17881  df-pgp 17882  df-lsm 17983  df-pj1 17984  df-cmn 18127  df-abl 18128  df-cyg 18212  df-dprd 18326
This theorem is referenced by:  ablfac  18419
  Copyright terms: Public domain W3C validator