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

Theorem ablfac2 18886
Description: Choose generators for each cyclic group in ablfac 18885. (Contributed by Mario Carneiro, 28-Apr-2016.)
Hypotheses
Ref Expression
ablfac.b 𝐵 = (Base‘𝐺)
ablfac.c 𝐶 = {𝑟 ∈ (SubGrp‘𝐺) ∣ (𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
ablfac.1 (𝜑𝐺 ∈ Abel)
ablfac.2 (𝜑𝐵 ∈ Fin)
ablfac2.m · = (.g𝐺)
ablfac2.s 𝑆 = (𝑘 ∈ dom 𝑤 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))))
Assertion
Ref Expression
ablfac2 (𝜑 → ∃𝑤 ∈ Word 𝐵(𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵))
Distinct variable groups:   𝑆,𝑟   𝑘,𝑛,𝑟,𝑤,𝐵   · ,𝑘,𝑤   𝐶,𝑘,𝑛,𝑤   𝜑,𝑘,𝑛,𝑤   𝑘,𝐺,𝑛,𝑟,𝑤
Allowed substitution hints:   𝜑(𝑟)   𝐶(𝑟)   𝑆(𝑤,𝑘,𝑛)   · (𝑛,𝑟)

Proof of Theorem ablfac2
Dummy variables 𝑠 𝑥 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 wrdf 13610 . . . . . . . 8 (𝑠 ∈ Word 𝐶𝑠:(0..^(♯‘𝑠))⟶𝐶)
21ad2antlr 717 . . . . . . 7 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → 𝑠:(0..^(♯‘𝑠))⟶𝐶)
32fdmd 6302 . . . . . 6 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → dom 𝑠 = (0..^(♯‘𝑠)))
4 fzofi 13097 . . . . . 6 (0..^(♯‘𝑠)) ∈ Fin
53, 4syl6eqel 2867 . . . . 5 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → dom 𝑠 ∈ Fin)
62ffdmd 6315 . . . . . . . . . 10 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → 𝑠:dom 𝑠𝐶)
76ffvelrnda 6625 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (𝑠𝑘) ∈ 𝐶)
8 oveq2 6932 . . . . . . . . . . . 12 (𝑟 = (𝑠𝑘) → (𝐺s 𝑟) = (𝐺s (𝑠𝑘)))
98eleq1d 2844 . . . . . . . . . . 11 (𝑟 = (𝑠𝑘) → ((𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp ) ↔ (𝐺s (𝑠𝑘)) ∈ (CycGrp ∩ ran pGrp )))
10 ablfac.c . . . . . . . . . . 11 𝐶 = {𝑟 ∈ (SubGrp‘𝐺) ∣ (𝐺s 𝑟) ∈ (CycGrp ∩ ran pGrp )}
119, 10elrab2 3576 . . . . . . . . . 10 ((𝑠𝑘) ∈ 𝐶 ↔ ((𝑠𝑘) ∈ (SubGrp‘𝐺) ∧ (𝐺s (𝑠𝑘)) ∈ (CycGrp ∩ ran pGrp )))
1211simplbi 493 . . . . . . . . 9 ((𝑠𝑘) ∈ 𝐶 → (𝑠𝑘) ∈ (SubGrp‘𝐺))
137, 12syl 17 . . . . . . . 8 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (𝑠𝑘) ∈ (SubGrp‘𝐺))
14 ablfac.b . . . . . . . . 9 𝐵 = (Base‘𝐺)
1514subgss 17990 . . . . . . . 8 ((𝑠𝑘) ∈ (SubGrp‘𝐺) → (𝑠𝑘) ⊆ 𝐵)
1613, 15syl 17 . . . . . . 7 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (𝑠𝑘) ⊆ 𝐵)
1711simprbi 492 . . . . . . . . . . . 12 ((𝑠𝑘) ∈ 𝐶 → (𝐺s (𝑠𝑘)) ∈ (CycGrp ∩ ran pGrp ))
187, 17syl 17 . . . . . . . . . . 11 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (𝐺s (𝑠𝑘)) ∈ (CycGrp ∩ ran pGrp ))
1918elin1d 4025 . . . . . . . . . 10 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (𝐺s (𝑠𝑘)) ∈ CycGrp)
20 eqid 2778 . . . . . . . . . . . 12 (Base‘(𝐺s (𝑠𝑘))) = (Base‘(𝐺s (𝑠𝑘)))
21 eqid 2778 . . . . . . . . . . . 12 (.g‘(𝐺s (𝑠𝑘))) = (.g‘(𝐺s (𝑠𝑘)))
2220, 21iscyg 18678 . . . . . . . . . . 11 ((𝐺s (𝑠𝑘)) ∈ CycGrp ↔ ((𝐺s (𝑠𝑘)) ∈ Grp ∧ ∃𝑥 ∈ (Base‘(𝐺s (𝑠𝑘)))ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘)))))
2322simprbi 492 . . . . . . . . . 10 ((𝐺s (𝑠𝑘)) ∈ CycGrp → ∃𝑥 ∈ (Base‘(𝐺s (𝑠𝑘)))ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘))))
2419, 23syl 17 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → ∃𝑥 ∈ (Base‘(𝐺s (𝑠𝑘)))ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘))))
25 eqid 2778 . . . . . . . . . . . 12 (𝐺s (𝑠𝑘)) = (𝐺s (𝑠𝑘))
2625subgbas 17993 . . . . . . . . . . 11 ((𝑠𝑘) ∈ (SubGrp‘𝐺) → (𝑠𝑘) = (Base‘(𝐺s (𝑠𝑘))))
2713, 26syl 17 . . . . . . . . . 10 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (𝑠𝑘) = (Base‘(𝐺s (𝑠𝑘))))
2827rexeqdv 3341 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (∃𝑥 ∈ (𝑠𝑘)ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘))) ↔ ∃𝑥 ∈ (Base‘(𝐺s (𝑠𝑘)))ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘)))))
2924, 28mpbird 249 . . . . . . . 8 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → ∃𝑥 ∈ (𝑠𝑘)ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘))))
3013ad2antrr 716 . . . . . . . . . . . . 13 ((((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) ∧ 𝑛 ∈ ℤ) → (𝑠𝑘) ∈ (SubGrp‘𝐺))
31 simpr 479 . . . . . . . . . . . . 13 ((((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) ∧ 𝑛 ∈ ℤ) → 𝑛 ∈ ℤ)
32 simplr 759 . . . . . . . . . . . . 13 ((((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) ∧ 𝑛 ∈ ℤ) → 𝑥 ∈ (𝑠𝑘))
33 ablfac2.m . . . . . . . . . . . . . 14 · = (.g𝐺)
3433, 25, 21subgmulg 18003 . . . . . . . . . . . . 13 (((𝑠𝑘) ∈ (SubGrp‘𝐺) ∧ 𝑛 ∈ ℤ ∧ 𝑥 ∈ (𝑠𝑘)) → (𝑛 · 𝑥) = (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥))
3530, 31, 32, 34syl3anc 1439 . . . . . . . . . . . 12 ((((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) ∧ 𝑛 ∈ ℤ) → (𝑛 · 𝑥) = (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥))
3635mpteq2dva 4981 . . . . . . . . . . 11 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) → (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)))
3736rneqd 5600 . . . . . . . . . 10 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) → ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)))
3827adantr 474 . . . . . . . . . 10 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) → (𝑠𝑘) = (Base‘(𝐺s (𝑠𝑘))))
3937, 38eqeq12d 2793 . . . . . . . . 9 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) ∧ 𝑥 ∈ (𝑠𝑘)) → (ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘) ↔ ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘)))))
4039rexbidva 3234 . . . . . . . 8 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → (∃𝑥 ∈ (𝑠𝑘)ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘) ↔ ∃𝑥 ∈ (𝑠𝑘)ran (𝑛 ∈ ℤ ↦ (𝑛(.g‘(𝐺s (𝑠𝑘)))𝑥)) = (Base‘(𝐺s (𝑠𝑘)))))
4129, 40mpbird 249 . . . . . . 7 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → ∃𝑥 ∈ (𝑠𝑘)ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘))
42 ssrexv 3886 . . . . . . 7 ((𝑠𝑘) ⊆ 𝐵 → (∃𝑥 ∈ (𝑠𝑘)ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘) → ∃𝑥𝐵 ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘)))
4316, 41, 42sylc 65 . . . . . 6 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ 𝑘 ∈ dom 𝑠) → ∃𝑥𝐵 ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘))
4443ralrimiva 3148 . . . . 5 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → ∀𝑘 ∈ dom 𝑠𝑥𝐵 ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘))
45 oveq2 6932 . . . . . . . . 9 (𝑥 = (𝑤𝑘) → (𝑛 · 𝑥) = (𝑛 · (𝑤𝑘)))
4645mpteq2dv 4982 . . . . . . . 8 (𝑥 = (𝑤𝑘) → (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))))
4746rneqd 5600 . . . . . . 7 (𝑥 = (𝑤𝑘) → ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))))
4847eqeq1d 2780 . . . . . 6 (𝑥 = (𝑤𝑘) → (ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘) ↔ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘)))
4948ac6sfi 8494 . . . . 5 ((dom 𝑠 ∈ Fin ∧ ∀𝑘 ∈ dom 𝑠𝑥𝐵 ran (𝑛 ∈ ℤ ↦ (𝑛 · 𝑥)) = (𝑠𝑘)) → ∃𝑤(𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘)))
505, 44, 49syl2anc 579 . . . 4 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → ∃𝑤(𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘)))
51 simprl 761 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑤:dom 𝑠𝐵)
523adantr 474 . . . . . . . . . 10 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → dom 𝑠 = (0..^(♯‘𝑠)))
5352feq2d 6279 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝑤:dom 𝑠𝐵𝑤:(0..^(♯‘𝑠))⟶𝐵))
5451, 53mpbid 224 . . . . . . . 8 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑤:(0..^(♯‘𝑠))⟶𝐵)
55 iswrdi 13609 . . . . . . . 8 (𝑤:(0..^(♯‘𝑠))⟶𝐵𝑤 ∈ Word 𝐵)
5654, 55syl 17 . . . . . . 7 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑤 ∈ Word 𝐵)
5751fdmd 6302 . . . . . . . . . . . 12 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → dom 𝑤 = dom 𝑠)
5857eleq2d 2845 . . . . . . . . . . 11 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝑗 ∈ dom 𝑤𝑗 ∈ dom 𝑠))
5958biimpa 470 . . . . . . . . . 10 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) ∧ 𝑗 ∈ dom 𝑤) → 𝑗 ∈ dom 𝑠)
60 simprr 763 . . . . . . . . . . . 12 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))
61 simpl 476 . . . . . . . . . . . . . . . . . 18 ((𝑘 = 𝑗𝑛 ∈ ℤ) → 𝑘 = 𝑗)
6261fveq2d 6452 . . . . . . . . . . . . . . . . 17 ((𝑘 = 𝑗𝑛 ∈ ℤ) → (𝑤𝑘) = (𝑤𝑗))
6362oveq2d 6940 . . . . . . . . . . . . . . . 16 ((𝑘 = 𝑗𝑛 ∈ ℤ) → (𝑛 · (𝑤𝑘)) = (𝑛 · (𝑤𝑗)))
6463mpteq2dva 4981 . . . . . . . . . . . . . . 15 (𝑘 = 𝑗 → (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))))
6564rneqd 5600 . . . . . . . . . . . . . 14 (𝑘 = 𝑗 → ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))))
66 fveq2 6448 . . . . . . . . . . . . . 14 (𝑘 = 𝑗 → (𝑠𝑘) = (𝑠𝑗))
6765, 66eqeq12d 2793 . . . . . . . . . . . . 13 (𝑘 = 𝑗 → (ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘) ↔ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))) = (𝑠𝑗)))
6867rspccva 3510 . . . . . . . . . . . 12 ((∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘) ∧ 𝑗 ∈ dom 𝑠) → ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))) = (𝑠𝑗))
6960, 68sylan 575 . . . . . . . . . . 11 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) ∧ 𝑗 ∈ dom 𝑠) → ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))) = (𝑠𝑗))
706adantr 474 . . . . . . . . . . . 12 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑠:dom 𝑠𝐶)
7170ffvelrnda 6625 . . . . . . . . . . 11 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) ∧ 𝑗 ∈ dom 𝑠) → (𝑠𝑗) ∈ 𝐶)
7269, 71eqeltrd 2859 . . . . . . . . . 10 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) ∧ 𝑗 ∈ dom 𝑠) → ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))) ∈ 𝐶)
7359, 72syldan 585 . . . . . . . . 9 (((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) ∧ 𝑗 ∈ dom 𝑤) → ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))) ∈ 𝐶)
74 ablfac2.s . . . . . . . . . 10 𝑆 = (𝑘 ∈ dom 𝑤 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))))
75 fveq2 6448 . . . . . . . . . . . . . 14 (𝑘 = 𝑗 → (𝑤𝑘) = (𝑤𝑗))
7675oveq2d 6940 . . . . . . . . . . . . 13 (𝑘 = 𝑗 → (𝑛 · (𝑤𝑘)) = (𝑛 · (𝑤𝑗)))
7776mpteq2dv 4982 . . . . . . . . . . . 12 (𝑘 = 𝑗 → (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))))
7877rneqd 5600 . . . . . . . . . . 11 (𝑘 = 𝑗 → ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))))
7978cbvmptv 4987 . . . . . . . . . 10 (𝑘 ∈ dom 𝑤 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘)))) = (𝑗 ∈ dom 𝑤 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))))
8074, 79eqtri 2802 . . . . . . . . 9 𝑆 = (𝑗 ∈ dom 𝑤 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑗))))
8173, 80fmptd 6650 . . . . . . . 8 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑆:dom 𝑤𝐶)
82 simprl 761 . . . . . . . . . 10 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → 𝐺dom DProd 𝑠)
8382adantr 474 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝐺dom DProd 𝑠)
8457raleqdv 3340 . . . . . . . . . . . . 13 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (∀𝑘 ∈ dom 𝑤ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘) ↔ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘)))
8560, 84mpbird 249 . . . . . . . . . . . 12 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → ∀𝑘 ∈ dom 𝑤ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))
86 mpteq12 4973 . . . . . . . . . . . 12 ((dom 𝑤 = dom 𝑠 ∧ ∀𝑘 ∈ dom 𝑤ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘)) → (𝑘 ∈ dom 𝑤 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘)))) = (𝑘 ∈ dom 𝑠 ↦ (𝑠𝑘)))
8757, 85, 86syl2anc 579 . . . . . . . . . . 11 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝑘 ∈ dom 𝑤 ↦ ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘)))) = (𝑘 ∈ dom 𝑠 ↦ (𝑠𝑘)))
8874, 87syl5eq 2826 . . . . . . . . . 10 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑆 = (𝑘 ∈ dom 𝑠 ↦ (𝑠𝑘)))
89 dprdf 18803 . . . . . . . . . . . 12 (𝐺dom DProd 𝑠𝑠:dom 𝑠⟶(SubGrp‘𝐺))
9083, 89syl 17 . . . . . . . . . . 11 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑠:dom 𝑠⟶(SubGrp‘𝐺))
9190feqmptd 6511 . . . . . . . . . 10 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑠 = (𝑘 ∈ dom 𝑠 ↦ (𝑠𝑘)))
9288, 91eqtr4d 2817 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝑆 = 𝑠)
9383, 92breqtrrd 4916 . . . . . . . 8 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → 𝐺dom DProd 𝑆)
9492oveq2d 6940 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝐺 DProd 𝑆) = (𝐺 DProd 𝑠))
95 simplrr 768 . . . . . . . . 9 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝐺 DProd 𝑠) = 𝐵)
9694, 95eqtrd 2814 . . . . . . . 8 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝐺 DProd 𝑆) = 𝐵)
9781, 93, 963jca 1119 . . . . . . 7 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵))
9856, 97jca 507 . . . . . 6 ((((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) ∧ (𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘))) → (𝑤 ∈ Word 𝐵 ∧ (𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵)))
9998ex 403 . . . . 5 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → ((𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘)) → (𝑤 ∈ Word 𝐵 ∧ (𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵))))
10099eximdv 1960 . . . 4 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → (∃𝑤(𝑤:dom 𝑠𝐵 ∧ ∀𝑘 ∈ dom 𝑠ran (𝑛 ∈ ℤ ↦ (𝑛 · (𝑤𝑘))) = (𝑠𝑘)) → ∃𝑤(𝑤 ∈ Word 𝐵 ∧ (𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵))))
10150, 100mpd 15 . . 3 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → ∃𝑤(𝑤 ∈ Word 𝐵 ∧ (𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵)))
102 df-rex 3096 . . 3 (∃𝑤 ∈ Word 𝐵(𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵) ↔ ∃𝑤(𝑤 ∈ Word 𝐵 ∧ (𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵)))
103101, 102sylibr 226 . 2 (((𝜑𝑠 ∈ Word 𝐶) ∧ (𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵)) → ∃𝑤 ∈ Word 𝐵(𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵))
104 ablfac.1 . . 3 (𝜑𝐺 ∈ Abel)
105 ablfac.2 . . 3 (𝜑𝐵 ∈ Fin)
10614, 10, 104, 105ablfac 18885 . 2 (𝜑 → ∃𝑠 ∈ Word 𝐶(𝐺dom DProd 𝑠 ∧ (𝐺 DProd 𝑠) = 𝐵))
107103, 106r19.29a 3264 1 (𝜑 → ∃𝑤 ∈ Word 𝐵(𝑆:dom 𝑤𝐶𝐺dom DProd 𝑆 ∧ (𝐺 DProd 𝑆) = 𝐵))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 386  w3a 1071   = wceq 1601  wex 1823  wcel 2107  wral 3090  wrex 3091  {crab 3094  cin 3791  wss 3792   class class class wbr 4888  cmpt 4967  dom cdm 5357  ran crn 5358  wf 6133  cfv 6137  (class class class)co 6924  Fincfn 8243  0cc0 10274  cz 11733  ..^cfzo 12789  chash 13441  Word cword 13605  Basecbs 16266  s cress 16267  Grpcgrp 17820  .gcmg 17938  SubGrpcsubg 17983   pGrp cpgp 18341  Abelcabl 18591  CycGrpccyg 18676   DProd cdprd 18790
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2055  ax-8 2109  ax-9 2116  ax-10 2135  ax-11 2150  ax-12 2163  ax-13 2334  ax-ext 2754  ax-rep 5008  ax-sep 5019  ax-nul 5027  ax-pow 5079  ax-pr 5140  ax-un 7228  ax-inf2 8837  ax-cnex 10330  ax-resscn 10331  ax-1cn 10332  ax-icn 10333  ax-addcl 10334  ax-addrcl 10335  ax-mulcl 10336  ax-mulrcl 10337  ax-mulcom 10338  ax-addass 10339  ax-mulass 10340  ax-distr 10341  ax-i2m1 10342  ax-1ne0 10343  ax-1rid 10344  ax-rnegex 10345  ax-rrecex 10346  ax-cnre 10347  ax-pre-lttri 10348  ax-pre-lttrn 10349  ax-pre-ltadd 10350  ax-pre-mulgt0 10351  ax-pre-sup 10352
This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3or 1072  df-3an 1073  df-tru 1605  df-fal 1615  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2551  df-eu 2587  df-clab 2764  df-cleq 2770  df-clel 2774  df-nfc 2921  df-ne 2970  df-nel 3076  df-ral 3095  df-rex 3096  df-reu 3097  df-rmo 3098  df-rab 3099  df-v 3400  df-sbc 3653  df-csb 3752  df-dif 3795  df-un 3797  df-in 3799  df-ss 3806  df-pss 3808  df-nul 4142  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-tp 4403  df-op 4405  df-uni 4674  df-int 4713  df-iun 4757  df-iin 4758  df-disj 4857  df-br 4889  df-opab 4951  df-mpt 4968  df-tr 4990  df-id 5263  df-eprel 5268  df-po 5276  df-so 5277  df-fr 5316  df-se 5317  df-we 5318  df-xp 5363  df-rel 5364  df-cnv 5365  df-co 5366  df-dm 5367  df-rn 5368  df-res 5369  df-ima 5370  df-pred 5935  df-ord 5981  df-on 5982  df-lim 5983  df-suc 5984  df-iota 6101  df-fun 6139  df-fn 6140  df-f 6141  df-f1 6142  df-fo 6143  df-f1o 6144  df-fv 6145  df-isom 6146  df-riota 6885  df-ov 6927  df-oprab 6928  df-mpt2 6929  df-of 7176  df-rpss 7216  df-om 7346  df-1st 7447  df-2nd 7448  df-supp 7579  df-tpos 7636  df-wrecs 7691  df-recs 7753  df-rdg 7791  df-1o 7845  df-2o 7846  df-oadd 7849  df-omul 7850  df-er 8028  df-ec 8030  df-qs 8034  df-map 8144  df-ixp 8197  df-en 8244  df-dom 8245  df-sdom 8246  df-fin 8247  df-fsupp 8566  df-sup 8638  df-inf 8639  df-oi 8706  df-card 9100  df-acn 9103  df-cda 9327  df-pnf 10415  df-mnf 10416  df-xr 10417  df-ltxr 10418  df-le 10419  df-sub 10610  df-neg 10611  df-div 11036  df-nn 11380  df-2 11443  df-3 11444  df-n0 11648  df-xnn0 11720  df-z 11734  df-uz 11998  df-q 12101  df-rp 12143  df-fz 12649  df-fzo 12790  df-fl 12917  df-mod 12993  df-seq 13125  df-exp 13184  df-fac 13385  df-bc 13414  df-hash 13442  df-word 13606  df-concat 13667  df-s1 13692  df-cj 14252  df-re 14253  df-im 14254  df-sqrt 14388  df-abs 14389  df-clim 14636  df-sum 14834  df-dvds 15397  df-gcd 15633  df-prm 15801  df-pc 15957  df-ndx 16269  df-slot 16270  df-base 16272  df-sets 16273  df-ress 16274  df-plusg 16362  df-0g 16499  df-gsum 16500  df-mre 16643  df-mrc 16644  df-acs 16646  df-mgm 17639  df-sgrp 17681  df-mnd 17692  df-mhm 17732  df-submnd 17733  df-grp 17823  df-minusg 17824  df-sbg 17825  df-mulg 17939  df-subg 17986  df-eqg 17988  df-ghm 18053  df-gim 18096  df-ga 18117  df-cntz 18144  df-oppg 18170  df-od 18343  df-gex 18344  df-pgp 18345  df-lsm 18446  df-pj1 18447  df-cmn 18592  df-abl 18593  df-cyg 18677  df-dprd 18792
This theorem is referenced by:  dchrpt  25455
  Copyright terms: Public domain W3C validator