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

Theorem ablfac2 19953
Description: Choose generators for each cyclic group in ablfac 19952. (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 14465 . . . . . . . 8 (๐‘  โˆˆ Word ๐ถ โ†’ ๐‘ :(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ถ)
21ad2antlr 725 . . . . . . 7 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ๐‘ :(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ถ)
32fdmd 6725 . . . . . 6 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ dom ๐‘  = (0..^(โ™ฏโ€˜๐‘ )))
4 fzofi 13935 . . . . . 6 (0..^(โ™ฏโ€˜๐‘ )) โˆˆ Fin
53, 4eqeltrdi 2841 . . . . 5 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ dom ๐‘  โˆˆ Fin)
62ffdmd 6745 . . . . . . . . . 10 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ๐‘ :dom ๐‘ โŸถ๐ถ)
76ffvelcdmda 7083 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) โˆˆ ๐ถ)
8 oveq2 7413 . . . . . . . . . . . 12 (๐‘Ÿ = (๐‘ โ€˜๐‘˜) โ†’ (๐บ โ†พs ๐‘Ÿ) = (๐บ โ†พs (๐‘ โ€˜๐‘˜)))
98eleq1d 2818 . . . . . . . . . . 11 (๐‘Ÿ = (๐‘ โ€˜๐‘˜) โ†’ ((๐บ โ†พs ๐‘Ÿ) โˆˆ (CycGrp โˆฉ ran pGrp ) โ†” (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp )))
10 ablfac.c . . . . . . . . . . 11 ๐ถ = {๐‘Ÿ โˆˆ (SubGrpโ€˜๐บ) โˆฃ (๐บ โ†พs ๐‘Ÿ) โˆˆ (CycGrp โˆฉ ran pGrp )}
119, 10elrab2 3685 . . . . . . . . . 10 ((๐‘ โ€˜๐‘˜) โˆˆ ๐ถ โ†” ((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โˆง (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp )))
1211simplbi 498 . . . . . . . . 9 ((๐‘ โ€˜๐‘˜) โˆˆ ๐ถ โ†’ (๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ))
137, 12syl 17 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ))
14 ablfac.b . . . . . . . . 9 ๐ต = (Baseโ€˜๐บ)
1514subgss 19001 . . . . . . . 8 ((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โ†’ (๐‘ โ€˜๐‘˜) โŠ† ๐ต)
1613, 15syl 17 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) โŠ† ๐ต)
1711simprbi 497 . . . . . . . . . . . 12 ((๐‘ โ€˜๐‘˜) โˆˆ ๐ถ โ†’ (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp ))
187, 17syl 17 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ (CycGrp โˆฉ ran pGrp ))
1918elin1d 4197 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ CycGrp)
20 eqid 2732 . . . . . . . . . . . 12 (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))
21 eqid 2732 . . . . . . . . . . . 12 (.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))) = (.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))
2220, 21iscyg 19741 . . . . . . . . . . 11 ((๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ CycGrp โ†” ((๐บ โ†พs (๐‘ โ€˜๐‘˜)) โˆˆ Grp โˆง โˆƒ๐‘ฅ โˆˆ (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
2322simprbi 497 . . . . . . . . . 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 2732 . . . . . . . . . . . 12 (๐บ โ†พs (๐‘ โ€˜๐‘˜)) = (๐บ โ†พs (๐‘ โ€˜๐‘˜))
2625subgbas 19004 . . . . . . . . . . 11 ((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โ†’ (๐‘ โ€˜๐‘˜) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
2713, 26syl 17 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘˜) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
2827rexeqdv 3326 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))) โ†” โˆƒ๐‘ฅ โˆˆ (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
2924, 28mpbird 256 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
3013ad2antrr 724 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ))
31 simpr 485 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ ๐‘› โˆˆ โ„ค)
32 simplr 767 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜))
33 ablfac2.m . . . . . . . . . . . . . 14 ยท = (.gโ€˜๐บ)
3433, 25, 21subgmulg 19014 . . . . . . . . . . . . 13 (((๐‘ โ€˜๐‘˜) โˆˆ (SubGrpโ€˜๐บ) โˆง ๐‘› โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (๐‘› ยท ๐‘ฅ) = (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ))
3530, 31, 32, 34syl3anc 1371 . . . . . . . . . . . 12 ((((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘› ยท ๐‘ฅ) = (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ))
3635mpteq2dva 5247 . . . . . . . . . . 11 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)))
3736rneqd 5935 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)))
3827adantr 481 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (๐‘ โ€˜๐‘˜) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜))))
3937, 38eqeq12d 2748 . . . . . . . . 9 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โˆง ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)) โ†’ (ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†” ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
4039rexbidva 3176 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ (โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†” โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘›(.gโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))๐‘ฅ)) = (Baseโ€˜(๐บ โ†พs (๐‘ โ€˜๐‘˜)))))
4129, 40mpbird 256 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜))
42 ssrexv 4050 . . . . . . 7 ((๐‘ โ€˜๐‘˜) โŠ† ๐ต โ†’ (โˆƒ๐‘ฅ โˆˆ (๐‘ โ€˜๐‘˜)ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†’ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜)))
4316, 41, 42sylc 65 . . . . . 6 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง ๐‘˜ โˆˆ dom ๐‘ ) โ†’ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜))
4443ralrimiva 3146 . . . . 5 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ โˆ€๐‘˜ โˆˆ dom ๐‘ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜))
45 oveq2 7413 . . . . . . . . 9 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ (๐‘› ยท ๐‘ฅ) = (๐‘› ยท (๐‘คโ€˜๐‘˜)))
4645mpteq2dv 5249 . . . . . . . 8 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))))
4746rneqd 5935 . . . . . . 7 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))))
4847eqeq1d 2734 . . . . . 6 (๐‘ฅ = (๐‘คโ€˜๐‘˜) โ†’ (ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜) โ†” ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
4948ac6sfi 9283 . . . . 5 ((dom ๐‘  โˆˆ Fin โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ โˆƒ๐‘ฅ โˆˆ ๐ต ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท ๐‘ฅ)) = (๐‘ โ€˜๐‘˜)) โ†’ โˆƒ๐‘ค(๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
505, 44, 49syl2anc 584 . . . 4 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ โˆƒ๐‘ค(๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
51 simprl 769 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ค:dom ๐‘ โŸถ๐ต)
523adantr 481 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ dom ๐‘  = (0..^(โ™ฏโ€˜๐‘ )))
5352feq2d 6700 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘ค:dom ๐‘ โŸถ๐ต โ†” ๐‘ค:(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ต))
5451, 53mpbid 231 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ค:(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ต)
55 iswrdi 14464 . . . . . . . 8 (๐‘ค:(0..^(โ™ฏโ€˜๐‘ ))โŸถ๐ต โ†’ ๐‘ค โˆˆ Word ๐ต)
5654, 55syl 17 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ค โˆˆ Word ๐ต)
5751fdmd 6725 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ dom ๐‘ค = dom ๐‘ )
5857eleq2d 2819 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘— โˆˆ dom ๐‘ค โ†” ๐‘— โˆˆ dom ๐‘ ))
5958biimpa 477 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ค) โ†’ ๐‘— โˆˆ dom ๐‘ )
60 simprr 771 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))
61 simpl 483 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ = ๐‘— โˆง ๐‘› โˆˆ โ„ค) โ†’ ๐‘˜ = ๐‘—)
6261fveq2d 6892 . . . . . . . . . . . . . . . . 17 ((๐‘˜ = ๐‘— โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘คโ€˜๐‘˜) = (๐‘คโ€˜๐‘—))
6362oveq2d 7421 . . . . . . . . . . . . . . . 16 ((๐‘˜ = ๐‘— โˆง ๐‘› โˆˆ โ„ค) โ†’ (๐‘› ยท (๐‘คโ€˜๐‘˜)) = (๐‘› ยท (๐‘คโ€˜๐‘—)))
6463mpteq2dva 5247 . . . . . . . . . . . . . . 15 (๐‘˜ = ๐‘— โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
6564rneqd 5935 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘— โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
66 fveq2 6888 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘— โ†’ (๐‘ โ€˜๐‘˜) = (๐‘ โ€˜๐‘—))
6765, 66eqeq12d 2748 . . . . . . . . . . . . 13 (๐‘˜ = ๐‘— โ†’ (ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜) โ†” ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) = (๐‘ โ€˜๐‘—)))
6867rspccva 3611 . . . . . . . . . . . 12 ((โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) = (๐‘ โ€˜๐‘—))
6960, 68sylan 580 . . . . . . . . . . 11 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) = (๐‘ โ€˜๐‘—))
706adantr 481 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ :dom ๐‘ โŸถ๐ถ)
7170ffvelcdmda 7083 . . . . . . . . . . 11 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ (๐‘ โ€˜๐‘—) โˆˆ ๐ถ)
7269, 71eqeltrd 2833 . . . . . . . . . 10 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ ) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) โˆˆ ๐ถ)
7359, 72syldan 591 . . . . . . . . 9 (((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โˆง ๐‘— โˆˆ dom ๐‘ค) โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))) โˆˆ ๐ถ)
74 ablfac2.s . . . . . . . . . 10 ๐‘† = (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))))
75 fveq2 6888 . . . . . . . . . . . . . 14 (๐‘˜ = ๐‘— โ†’ (๐‘คโ€˜๐‘˜) = (๐‘คโ€˜๐‘—))
7675oveq2d 7421 . . . . . . . . . . . . 13 (๐‘˜ = ๐‘— โ†’ (๐‘› ยท (๐‘คโ€˜๐‘˜)) = (๐‘› ยท (๐‘คโ€˜๐‘—)))
7776mpteq2dv 5249 . . . . . . . . . . . 12 (๐‘˜ = ๐‘— โ†’ (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
7877rneqd 5935 . . . . . . . . . . 11 (๐‘˜ = ๐‘— โ†’ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
7978cbvmptv 5260 . . . . . . . . . 10 (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜)))) = (๐‘— โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
8074, 79eqtri 2760 . . . . . . . . 9 ๐‘† = (๐‘— โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘—))))
8173, 80fmptd 7110 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘†:dom ๐‘คโŸถ๐ถ)
82 simprl 769 . . . . . . . . . 10 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ๐บdom DProd ๐‘ )
8382adantr 481 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐บdom DProd ๐‘ )
8457raleqdv 3325 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (โˆ€๐‘˜ โˆˆ dom ๐‘คran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜) โ†” โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)))
8560, 84mpbird 256 . . . . . . . . . . . 12 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ โˆ€๐‘˜ โˆˆ dom ๐‘คran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))
86 mpteq12 5239 . . . . . . . . . . . 12 ((dom ๐‘ค = dom ๐‘  โˆง โˆ€๐‘˜ โˆˆ dom ๐‘คran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)) โ†’ (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜)))) = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
8757, 85, 86syl2anc 584 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘˜ โˆˆ dom ๐‘ค โ†ฆ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜)))) = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
8874, 87eqtrid 2784 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘† = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
89 dprdf 19870 . . . . . . . . . . . 12 (๐บdom DProd ๐‘  โ†’ ๐‘ :dom ๐‘ โŸถ(SubGrpโ€˜๐บ))
9083, 89syl 17 . . . . . . . . . . 11 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘ :dom ๐‘ โŸถ(SubGrpโ€˜๐บ))
9190feqmptd 6957 . . . . . . . . . 10 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘  = (๐‘˜ โˆˆ dom ๐‘  โ†ฆ (๐‘ โ€˜๐‘˜)))
9288, 91eqtr4d 2775 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐‘† = ๐‘ )
9383, 92breqtrrd 5175 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ ๐บdom DProd ๐‘†)
9492oveq2d 7421 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐บ DProd ๐‘†) = (๐บ DProd ๐‘ ))
95 simplrr 776 . . . . . . . . 9 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐บ DProd ๐‘ ) = ๐ต)
9694, 95eqtrd 2772 . . . . . . . 8 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐บ DProd ๐‘†) = ๐ต)
9781, 93, 963jca 1128 . . . . . . 7 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต))
9856, 97jca 512 . . . . . 6 ((((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โˆง (๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜))) โ†’ (๐‘ค โˆˆ Word ๐ต โˆง (๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต)))
9998ex 413 . . . . 5 (((๐œ‘ โˆง ๐‘  โˆˆ Word ๐ถ) โˆง (๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต)) โ†’ ((๐‘ค:dom ๐‘ โŸถ๐ต โˆง โˆ€๐‘˜ โˆˆ dom ๐‘ ran (๐‘› โˆˆ โ„ค โ†ฆ (๐‘› ยท (๐‘คโ€˜๐‘˜))) = (๐‘ โ€˜๐‘˜)) โ†’ (๐‘ค โˆˆ Word ๐ต โˆง (๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต))))
10099eximdv 1920 . . . 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 3071 . . 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 19952 . 2 (๐œ‘ โ†’ โˆƒ๐‘  โˆˆ Word ๐ถ(๐บdom DProd ๐‘  โˆง (๐บ DProd ๐‘ ) = ๐ต))
107103, 106r19.29a 3162 1 (๐œ‘ โ†’ โˆƒ๐‘ค โˆˆ Word ๐ต(๐‘†:dom ๐‘คโŸถ๐ถ โˆง ๐บdom DProd ๐‘† โˆง (๐บ DProd ๐‘†) = ๐ต))
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โˆง wa 396   โˆง w3a 1087   = wceq 1541  โˆƒwex 1781   โˆˆ wcel 2106  โˆ€wral 3061  โˆƒwrex 3070  {crab 3432   โˆฉ cin 3946   โŠ† wss 3947   class class class wbr 5147   โ†ฆ cmpt 5230  dom cdm 5675  ran crn 5676  โŸถwf 6536  โ€˜cfv 6540  (class class class)co 7405  Fincfn 8935  0cc0 11106  โ„คcz 12554  ..^cfzo 13623  โ™ฏchash 14286  Word cword 14460  Basecbs 17140   โ†พs cress 17169  Grpcgrp 18815  .gcmg 18944  SubGrpcsubg 18994   pGrp cpgp 19388  Abelcabl 19643  CycGrpccyg 19739   DProd cdprd 19857
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-disj 5113  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-rpss 7709  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8143  df-tpos 8207  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-oadd 8466  df-omul 8467  df-er 8699  df-ec 8701  df-qs 8705  df-map 8818  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-sup 9433  df-inf 9434  df-oi 9501  df-dju 9892  df-card 9930  df-acn 9933  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-n0 12469  df-xnn0 12541  df-z 12555  df-uz 12819  df-q 12929  df-rp 12971  df-fz 13481  df-fzo 13624  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-word 14461  df-concat 14517  df-s1 14542  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-clim 15428  df-sum 15629  df-dvds 16194  df-gcd 16432  df-prm 16605  df-pc 16766  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-0g 17383  df-gsum 17384  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-mhm 18667  df-submnd 18668  df-grp 18818  df-minusg 18819  df-sbg 18820  df-mulg 18945  df-subg 18997  df-eqg 18999  df-ghm 19084  df-gim 19127  df-ga 19148  df-cntz 19175  df-oppg 19204  df-od 19390  df-gex 19391  df-pgp 19392  df-lsm 19498  df-pj1 19499  df-cmn 19644  df-abl 19645  df-cyg 19740  df-dprd 19859
This theorem is referenced by:  dchrpt  26759
  Copyright terms: Public domain W3C validator