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

Theorem ablfac2 20007
Description: Choose generators for each cyclic group in ablfac 20006. (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 14476 . . . . . . . 8 (๐‘  โˆˆ Word ๐ถ โ†’ ๐‘ :(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ถ)
21ad2antlr 724 . . . . . . 7 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ๐‘ :(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ถ)
32fdmd 6728 . . . . . 6 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ dom ๐‘  = (0..^(โ™ฏโ€˜๐‘ )))
4 fzofi 13946 . . . . . 6 (0..^(โ™ฏโ€˜๐‘ )) โˆˆ Fin
53, 4eqeltrdi 2840 . . . . 5 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ dom ๐‘  โˆˆ Fin)
62ffdmd 6748 . . . . . . . . . 10 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ๐‘ :dom ๐‘ โŸถ๐ถ)
76ffvelcdmda 7086 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) โˆˆ ๐ถ)
8 oveq2 7420 . . . . . . . . . . . 12 (๐‘Ÿ = (๐‘ โ€˜๐‘˜) โ†’ (๐บ โ†พs ๐‘Ÿ) = (๐บ โ†พs (๐‘ โ€˜๐‘˜)))
98eleq1d 2817 . . . . . . . . . . 11 (๐‘Ÿ = (๐‘ โ€˜๐‘˜) โ†’ ((๐บ โ†พs ๐‘Ÿ) โˆˆ (CycGrp โˆฉ ran pGrp ) โ†” (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp )))
10 ablfac.c . . . . . . . . . . 11 ๐ถ = {๐‘Ÿ โˆˆ (SubGrpโ€˜๐บ) โˆฃ (๐บ โ†พs ๐‘Ÿ) โˆˆ (CycGrp โˆฉ ran pGrp )}
119, 10elrab2 3686 . . . . . . . . . 10 ((๐‘ โ€˜๐‘˜) โˆˆ ๐ถ โ†” ((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โˆง (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp )))
1211simplbi 497 . . . . . . . . 9 ((๐‘ โ€˜๐‘˜) โˆˆ ๐ถ โ†’ (๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ))
137, 12syl 17 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ))
14 ablfac.b . . . . . . . . 9 ๐ต = (Baseโ€˜๐บ)
1514subgss 19050 . . . . . . . 8 ((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โ†’ (๐‘ โ€˜๐‘˜) โІ ๐ต)
1613, 15syl 17 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) โІ ๐ต)
1711simprbi 496 . . . . . . . . . . . 12 ((๐‘ โ€˜๐‘˜) โˆˆ ๐ถ โ†’ (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp ))
187, 17syl 17 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp ))
1918elin1d 4198 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ CycGrp)
20 eqid 2731 . . . . . . . . . . . 12 (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))
21 eqid 2731 . . . . . . . . . . . 12 (.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))) = (.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))
2220, 21iscyg 19795 . . . . . . . . . . 11 ((๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ CycGrp โ†” ((๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ Grp โˆง โˆƒ๐‘ฅ โˆˆ (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
2322simprbi 496 . . . . . . . . . 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 2731 . . . . . . . . . . . 12 (๐บ โ†พs (๐‘ โ€˜๐‘˜)) = (๐บ โ†พs (๐‘ โ€˜๐‘˜))
2625subgbas 19053 . . . . . . . . . . 11 ((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โ†’ (๐‘ โ€˜๐‘˜) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
2713, 26syl 17 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
2827rexeqdv 3325 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))) โ†” โˆƒ๐‘ฅ โˆˆ (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
2924, 28mpbird 257 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
3013ad2antrr 723 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ))
31 simpr 484 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ ๐‘› โˆˆ โ„ค)
32 simplr 766 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜))
33 ablfac2.m . . . . . . . . . . . . . 14 ยท = (.gโ€˜๐บ)
3433, 25, 21subgmulg 19063 . . . . . . . . . . . . 13 (((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โˆง ๐‘› โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (๐‘› ยท ๐‘ฅ) = (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ))
3530, 31, 32, 34syl3anc 1370 . . . . . . . . . . . 12 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘› ยท ๐‘ฅ) = (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ))
3635mpteq2dva 5248 . . . . . . . . . . 11 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)))
3736rneqd 5937 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)))
3827adantr 480 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (๐‘ โ€˜๐‘˜) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
3937, 38eqeq12d 2747 . . . . . . . . 9 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†” ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
4039rexbidva 3175 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†” โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
4129, 40mpbird 257 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜))
42 ssrexv 4051 . . . . . . 7 ((๐‘ โ€˜๐‘˜) โІ ๐ต โ†’ (โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†’ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜)))
4316, 41, 42sylc 65 . . . . . 6 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜))
4443ralrimiva 3145 . . . . 5 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ โˆ€๐‘˜ โˆˆ dom ๐‘ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜))
45 oveq2 7420 . . . . . . . . 9 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ (๐‘› ยท ๐‘ฅ) = (๐‘› ยท (๐‘คโ€˜๐‘˜)))
4645mpteq2dv 5250 . . . . . . . 8 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))))
4746rneqd 5937 . . . . . . 7 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))))
4847eqeq1d 2733 . . . . . 6 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ (ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†” ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
4948ac6sfi 9293 . . . . 5 ((dom ๐‘  โˆˆ Fin โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜)) โ†’ โˆƒ๐‘ค(๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
505, 44, 49syl2anc 583 . . . 4 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ โˆƒ๐‘ค(๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
51 simprl 768 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ค:dom ๐‘ โŸถ๐ต)
523adantr 480 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ dom ๐‘  = (0..^(โ™ฏโ€˜๐‘ )))
5352feq2d 6703 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘ค:dom ๐‘ โŸถ๐ต โ†” ๐‘ค:(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ต))
5451, 53mpbid 231 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ค:(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ต)
55 iswrdi 14475 . . . . . . . 8 (๐‘ค:(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ต โ†’ ๐‘ค โˆˆ Word ๐ต)
5654, 55syl 17 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ค โˆˆ Word ๐ต)
5751fdmd 6728 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ dom ๐‘ค = dom ๐‘ )
5857eleq2d 2818 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘— โˆˆ dom ๐‘ค โ†” ๐‘— โˆˆ dom ๐‘ ))
5958biimpa 476 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ค) โ†’ ๐‘— โˆˆ dom ๐‘ )
60 simprr 770 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))
61 simpl 482 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ = ๐‘— โˆง ๐‘› โˆˆ โ„ค) โ†’ ๐‘˜ = ๐‘—)
6261fveq2d 6895 . . . . . . . . . . . . . . . . 17 ((๐‘˜ = ๐‘— โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘คโ€˜๐‘˜) = (๐‘คโ€˜๐‘—))
6362oveq2d 7428 . . . . . . . . . . . . . . . 16 ((๐‘˜ = ๐‘— โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘› ยท (๐‘คโ€˜๐‘˜)) = (๐‘› ยท (๐‘คโ€˜๐‘—)))
6463mpteq2dva 5248 . . . . . . . . . . . . . . 15 (๐‘˜ = ๐‘— โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
6564rneqd 5937 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘— โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
66 fveq2 6891 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘— โ†’ (๐‘ โ€˜๐‘˜) = (๐‘ โ€˜๐‘—))
6765, 66eqeq12d 2747 . . . . . . . . . . . . 13 (๐‘˜ = ๐‘— โ†’ (ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜) โ†” ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) = (๐‘ โ€˜๐‘—)))
6867rspccva 3611 . . . . . . . . . . . 12 ((โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) = (๐‘ โ€˜๐‘—))
6960, 68sylan 579 . . . . . . . . . . 11 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) = (๐‘ โ€˜๐‘—))
706adantr 480 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ :dom ๐‘ โŸถ๐ถ)
7170ffvelcdmda 7086 . . . . . . . . . . 11 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘—) โˆˆ ๐ถ)
7269, 71eqeltrd 2832 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) โˆˆ ๐ถ)
7359, 72syldan 590 . . . . . . . . 9 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ค) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) โˆˆ ๐ถ)
74 ablfac2.s . . . . . . . . . 10 ๐‘† = (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))))
75 fveq2 6891 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘— โ†’ (๐‘คโ€˜๐‘˜) = (๐‘คโ€˜๐‘—))
7675oveq2d 7428 . . . . . . . . . . . . 13 (๐‘˜ = ๐‘— โ†’ (๐‘› ยท (๐‘คโ€˜๐‘˜)) = (๐‘› ยท (๐‘คโ€˜๐‘—)))
7776mpteq2dv 5250 . . . . . . . . . . . 12 (๐‘˜ = ๐‘— โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
7877rneqd 5937 . . . . . . . . . . 11 (๐‘˜ = ๐‘— โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
7978cbvmptv 5261 . . . . . . . . . 10 (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜)))) = (๐‘— โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
8074, 79eqtri 2759 . . . . . . . . 9 ๐‘† = (๐‘— โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
8173, 80fmptd 7115 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘†:dom ๐‘คโŸถ๐ถ)
82 simprl 768 . . . . . . . . . 10 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ๐บdom DProd ๐‘ )
8382adantr 480 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐บdom DProd ๐‘ )
8457raleqdv 3324 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (โˆ€๐‘˜ โˆˆ dom ๐‘คran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜) โ†” โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
8560, 84mpbird 257 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ โˆ€๐‘˜ โˆˆ dom ๐‘คran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))
86 mpteq12 5240 . . . . . . . . . . . 12 ((dom ๐‘ค = dom ๐‘  โˆง โˆ€๐‘˜ โˆˆ dom ๐‘คran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)) โ†’ (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜)))) = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
8757, 85, 86syl2anc 583 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜)))) = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
8874, 87eqtrid 2783 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘† = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
89 dprdf 19924 . . . . . . . . . . . 12 (๐บdom DProd ๐‘  โ†’ ๐‘ :dom ๐‘ โŸถ(SubGrpโ€˜๐บ))
9083, 89syl 17 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ :dom ๐‘ โŸถ(SubGrpโ€˜๐บ))
9190feqmptd 6960 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘  = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
9288, 91eqtr4d 2774 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘† = ๐‘ )
9383, 92breqtrrd 5176 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐บdom DProd ๐‘†)
9492oveq2d 7428 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐บ DProd ๐‘†) = (๐บ DProd ๐‘ ))
95 simplrr 775 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐บ DProd ๐‘ ) = ๐ต)
9694, 95eqtrd 2771 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐บ DProd ๐‘†) = ๐ต)
9781, 93, 963jca 1127 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต))
9856, 97jca 511 . . . . . 6 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘ค โˆˆ Word ๐ต โˆง (๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต)))
9998ex 412 . . . . 5 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ((๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)) โ†’ (๐‘ค โˆˆ Word ๐ต โˆง (๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต))))
10099eximdv 1919 . . . 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 3070 . . 3 (โˆƒ๐‘ค โˆˆ Word ๐ต(๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต) โ†” โˆƒ๐‘ค(๐‘ค โˆˆ Word ๐ต โˆง (๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต)))
103101, 102sylibr 233 . 2 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ โˆƒ๐‘ค โˆˆ Word ๐ต(๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต))
104 ablfac.1 . . 3 (๐œ‘ โ†’ ๐บ โˆˆ Abel)
105 ablfac.2 . . 3 (๐œ‘ โ†’ ๐ต โˆˆ Fin)
10614, 10, 104, 105ablfac 20006 . 2 (๐œ‘ โ†’ โˆƒ๐‘  โˆˆ Word ๐ถ(๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต))
107103, 106r19.29a 3161 1 (๐œ‘ โ†’ โˆƒ๐‘ค โˆˆ Word ๐ต(๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต))
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โˆง wa 395   โˆง w3a 1086   = wceq 1540  โˆƒwex 1780   โˆˆ wcel 2105  โˆ€wral 3060  โˆƒwrex 3069  {crab 3431   โˆฉ cin 3947   โІ wss 3948   class class class wbr 5148   โ†ฆ cmpt 5231  dom cdm 5676  ran crn 5677  โŸถwf 6539  โ€˜cfv 6543  (class class class)co 7412  Fincfn 8945  0cc0 11116  โ„คcz 12565  ..^cfzo 13634  โ™ฏchash 14297  Word cword 14471  Basecbs 17151   โ†พs cress 17180  Grpcgrp 18861  .gcmg 18993  SubGrpcsubg 19043   pGrp cpgp 19442  Abelcabl 19697  CycGrpccyg 19793   DProd cdprd 19911
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7729  ax-inf2 9642  ax-cnex 11172  ax-resscn 11173  ax-1cn 11174  ax-icn 11175  ax-addcl 11176  ax-addrcl 11177  ax-mulcl 11178  ax-mulrcl 11179  ax-mulcom 11180  ax-addass 11181  ax-mulass 11182  ax-distr 11183  ax-i2m1 11184  ax-1ne0 11185  ax-1rid 11186  ax-rnegex 11187  ax-rrecex 11188  ax-cnre 11189  ax-pre-lttri 11190  ax-pre-lttrn 11191  ax-pre-ltadd 11192  ax-pre-mulgt0 11193  ax-pre-sup 11194
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-disj 5114  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7674  df-rpss 7717  df-om 7860  df-1st 7979  df-2nd 7980  df-supp 8152  df-tpos 8217  df-frecs 8272  df-wrecs 8303  df-recs 8377  df-rdg 8416  df-1o 8472  df-2o 8473  df-oadd 8476  df-omul 8477  df-er 8709  df-ec 8711  df-qs 8715  df-map 8828  df-ixp 8898  df-en 8946  df-dom 8947  df-sdom 8948  df-fin 8949  df-fsupp 9368  df-sup 9443  df-inf 9444  df-oi 9511  df-dju 9902  df-card 9940  df-acn 9943  df-pnf 11257  df-mnf 11258  df-xr 11259  df-ltxr 11260  df-le 11261  df-sub 11453  df-neg 11454  df-div 11879  df-nn 12220  df-2 12282  df-3 12283  df-n0 12480  df-xnn0 12552  df-z 12566  df-uz 12830  df-q 12940  df-rp 12982  df-fz 13492  df-fzo 13635  df-fl 13764  df-mod 13842  df-seq 13974  df-exp 14035  df-fac 14241  df-bc 14270  df-hash 14298  df-word 14472  df-concat 14528  df-s1 14553  df-cj 15053  df-re 15054  df-im 15055  df-sqrt 15189  df-abs 15190  df-clim 15439  df-sum 15640  df-dvds 16205  df-gcd 16443  df-prm 16616  df-pc 16777  df-sets 17104  df-slot 17122  df-ndx 17134  df-base 17152  df-ress 17181  df-plusg 17217  df-0g 17394  df-gsum 17395  df-mre 17537  df-mrc 17538  df-acs 17540  df-mgm 18571  df-sgrp 18650  df-mnd 18666  df-mhm 18711  df-submnd 18712  df-grp 18864  df-minusg 18865  df-sbg 18866  df-mulg 18994  df-subg 19046  df-eqg 19048  df-ghm 19135  df-gim 19180  df-ga 19202  df-cntz 19229  df-oppg 19258  df-od 19444  df-gex 19445  df-pgp 19446  df-lsm 19552  df-pj1 19553  df-cmn 19698  df-abl 19699  df-cyg 19794  df-dprd 19913
This theorem is referenced by:  dchrpt  27115
  Copyright terms: Public domain W3C validator