Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cyc3genpm Structured version   Visualization version   GIF version

Theorem cyc3genpm 33228
Description: The alternating group 𝐴 is generated by 3-cycles. Property (a) of [Lang] p. 32 . (Contributed by Thierry Arnoux, 27-Sep-2023.)
Hypotheses
Ref Expression
cyc3genpm.t 𝐶 = (𝑀 “ (♯ “ {3}))
cyc3genpm.a 𝐴 = (pmEven‘𝐷)
cyc3genpm.s 𝑆 = (SymGrp‘𝐷)
cyc3genpm.n 𝑁 = (♯‘𝐷)
cyc3genpm.m 𝑀 = (toCyc‘𝐷)
Assertion
Ref Expression
cyc3genpm (𝐷 ∈ Fin → (𝑄𝐴 ↔ ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤)))
Distinct variable groups:   𝑤,𝐴   𝑤,𝐶   𝑤,𝐷   𝑤,𝑁   𝑤,𝑄   𝑤,𝑆
Allowed substitution hint:   𝑀(𝑤)

Proof of Theorem cyc3genpm
Dummy variables 𝑖 𝑢 𝑣 𝑐 𝑒 𝑓 𝑔 𝑗 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simplr 769 . . . . 5 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑣 ∈ Word ran (pmTrsp‘𝐷))
2 lencl 14486 . . . . . . . 8 (𝑣 ∈ Word ran (pmTrsp‘𝐷) → (♯‘𝑣) ∈ ℕ0)
32ad2antlr 728 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (♯‘𝑣) ∈ ℕ0)
43nn0zd 12540 . . . . . 6 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (♯‘𝑣) ∈ ℤ)
5 simpr 484 . . . . . . . 8 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑄 = (𝑆 Σg 𝑣))
65fveq2d 6838 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ((pmSgn‘𝐷)‘𝑄) = ((pmSgn‘𝐷)‘(𝑆 Σg 𝑣)))
7 simplll 775 . . . . . . . 8 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝐷 ∈ Fin)
8 simpllr 776 . . . . . . . . 9 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑄𝐴)
9 cyc3genpm.a . . . . . . . . 9 𝐴 = (pmEven‘𝐷)
108, 9eleqtrdi 2847 . . . . . . . 8 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑄 ∈ (pmEven‘𝐷))
11 cyc3genpm.s . . . . . . . . 9 𝑆 = (SymGrp‘𝐷)
12 eqid 2737 . . . . . . . . 9 (Base‘𝑆) = (Base‘𝑆)
13 eqid 2737 . . . . . . . . 9 (pmSgn‘𝐷) = (pmSgn‘𝐷)
1411, 12, 13psgnevpm 21579 . . . . . . . 8 ((𝐷 ∈ Fin ∧ 𝑄 ∈ (pmEven‘𝐷)) → ((pmSgn‘𝐷)‘𝑄) = 1)
157, 10, 14syl2anc 585 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ((pmSgn‘𝐷)‘𝑄) = 1)
16 eqid 2737 . . . . . . . . 9 ran (pmTrsp‘𝐷) = ran (pmTrsp‘𝐷)
1711, 16, 13psgnvalii 19475 . . . . . . . 8 ((𝐷 ∈ Fin ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) → ((pmSgn‘𝐷)‘(𝑆 Σg 𝑣)) = (-1↑(♯‘𝑣)))
187, 1, 17syl2anc 585 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ((pmSgn‘𝐷)‘(𝑆 Σg 𝑣)) = (-1↑(♯‘𝑣)))
196, 15, 183eqtr3rd 2781 . . . . . 6 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (-1↑(♯‘𝑣)) = 1)
20 m1exp1 16336 . . . . . . 7 ((♯‘𝑣) ∈ ℤ → ((-1↑(♯‘𝑣)) = 1 ↔ 2 ∥ (♯‘𝑣)))
2120biimpa 476 . . . . . 6 (((♯‘𝑣) ∈ ℤ ∧ (-1↑(♯‘𝑣)) = 1) → 2 ∥ (♯‘𝑣))
224, 19, 21syl2anc 585 . . . . 5 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 2 ∥ (♯‘𝑣))
23 oveq2 7368 . . . . . . . . . 10 (𝑥 = ∅ → (𝑆 Σg 𝑥) = (𝑆 Σg ∅))
2423eqeq1d 2739 . . . . . . . . 9 (𝑥 = ∅ → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg ∅) = (𝑆 Σg 𝑤)))
2524rexbidv 3162 . . . . . . . 8 (𝑥 = ∅ → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg ∅) = (𝑆 Σg 𝑤)))
2625imbi2d 340 . . . . . . 7 (𝑥 = ∅ → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg ∅) = (𝑆 Σg 𝑤))))
27 oveq2 7368 . . . . . . . . . 10 (𝑥 = 𝑢 → (𝑆 Σg 𝑥) = (𝑆 Σg 𝑢))
2827eqeq1d 2739 . . . . . . . . 9 (𝑥 = 𝑢 → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)))
2928rexbidv 3162 . . . . . . . 8 (𝑥 = 𝑢 → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)))
3029imbi2d 340 . . . . . . 7 (𝑥 = 𝑢 → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))))
31 oveq2 7368 . . . . . . . . . 10 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → (𝑆 Σg 𝑥) = (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)))
3231eqeq1d 2739 . . . . . . . . 9 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤)))
3332rexbidv 3162 . . . . . . . 8 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤)))
3433imbi2d 340 . . . . . . 7 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))))
35 oveq2 7368 . . . . . . . . . 10 (𝑥 = 𝑣 → (𝑆 Σg 𝑥) = (𝑆 Σg 𝑣))
3635eqeq1d 2739 . . . . . . . . 9 (𝑥 = 𝑣 → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
3736rexbidv 3162 . . . . . . . 8 (𝑥 = 𝑣 → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
3837imbi2d 340 . . . . . . 7 (𝑥 = 𝑣 → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))))
39 wrd0 14492 . . . . . . . . 9 ∅ ∈ Word 𝐶
4039a1i 11 . . . . . . . 8 (𝐷 ∈ Fin → ∅ ∈ Word 𝐶)
41 simpr 484 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ 𝑤 = ∅) → 𝑤 = ∅)
4241oveq2d 7376 . . . . . . . . 9 ((𝐷 ∈ Fin ∧ 𝑤 = ∅) → (𝑆 Σg 𝑤) = (𝑆 Σg ∅))
4342eqeq2d 2748 . . . . . . . 8 ((𝐷 ∈ Fin ∧ 𝑤 = ∅) → ((𝑆 Σg ∅) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg ∅) = (𝑆 Σg ∅)))
44 eqidd 2738 . . . . . . . 8 (𝐷 ∈ Fin → (𝑆 Σg ∅) = (𝑆 Σg ∅))
4540, 43, 44rspcedvd 3567 . . . . . . 7 (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg ∅) = (𝑆 Σg 𝑤))
46 ccatcl 14527 . . . . . . . . . . . . . 14 ((𝑣 ∈ Word 𝐶𝑐 ∈ Word 𝐶) → (𝑣 ++ 𝑐) ∈ Word 𝐶)
4746ad5ant24 761 . . . . . . . . . . . . 13 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑣 ++ 𝑐) ∈ Word 𝐶)
48 oveq2 7368 . . . . . . . . . . . . . . 15 (𝑤 = (𝑣 ++ 𝑐) → (𝑆 Σg 𝑤) = (𝑆 Σg (𝑣 ++ 𝑐)))
4948eqeq2d 2748 . . . . . . . . . . . . . 14 (𝑤 = (𝑣 ++ 𝑐) → ((𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg (𝑣 ++ 𝑐))))
5049adantl 481 . . . . . . . . . . . . 13 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) ∧ 𝑤 = (𝑣 ++ 𝑐)) → ((𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg (𝑣 ++ 𝑐))))
51 simpllr 776 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣))
52 simpllr 776 . . . . . . . . . . . . . . . . . . 19 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → 𝐷 ∈ Fin)
5352ad2antrr 727 . . . . . . . . . . . . . . . . . 18 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝐷 ∈ Fin)
5411symggrp 19366 . . . . . . . . . . . . . . . . . 18 (𝐷 ∈ Fin → 𝑆 ∈ Grp)
55 grpmnd 18907 . . . . . . . . . . . . . . . . . 18 (𝑆 ∈ Grp → 𝑆 ∈ Mnd)
5653, 54, 553syl 18 . . . . . . . . . . . . . . . . 17 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑆 ∈ Mnd)
5716, 11, 12symgtrf 19435 . . . . . . . . . . . . . . . . . . 19 ran (pmTrsp‘𝐷) ⊆ (Base‘𝑆)
5857a1i 11 . . . . . . . . . . . . . . . . . 18 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → ran (pmTrsp‘𝐷) ⊆ (Base‘𝑆))
59 simp-5r 786 . . . . . . . . . . . . . . . . . . 19 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → 𝑖 ∈ ran (pmTrsp‘𝐷))
6059ad2antrr 727 . . . . . . . . . . . . . . . . . 18 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑖 ∈ ran (pmTrsp‘𝐷))
6158, 60sseldd 3923 . . . . . . . . . . . . . . . . 17 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑖 ∈ (Base‘𝑆))
62 simp-6r 788 . . . . . . . . . . . . . . . . . 18 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑗 ∈ ran (pmTrsp‘𝐷))
6358, 62sseldd 3923 . . . . . . . . . . . . . . . . 17 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑗 ∈ (Base‘𝑆))
64 eqid 2737 . . . . . . . . . . . . . . . . . 18 (+g𝑆) = (+g𝑆)
6512, 64gsumws2 18801 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ Mnd ∧ 𝑖 ∈ (Base‘𝑆) ∧ 𝑗 ∈ (Base‘𝑆)) → (𝑆 Σg ⟨“𝑖𝑗”⟩) = (𝑖(+g𝑆)𝑗))
6656, 61, 63, 65syl3anc 1374 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg ⟨“𝑖𝑗”⟩) = (𝑖(+g𝑆)𝑗))
67 simpr 484 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
6866, 67eqtrd 2772 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg ⟨“𝑖𝑗”⟩) = (𝑆 Σg 𝑐))
6951, 68oveq12d 7378 . . . . . . . . . . . . . 14 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → ((𝑆 Σg 𝑢)(+g𝑆)(𝑆 Σg ⟨“𝑖𝑗”⟩)) = ((𝑆 Σg 𝑣)(+g𝑆)(𝑆 Σg 𝑐)))
70 sswrd 14475 . . . . . . . . . . . . . . . . 17 (ran (pmTrsp‘𝐷) ⊆ (Base‘𝑆) → Word ran (pmTrsp‘𝐷) ⊆ Word (Base‘𝑆))
7158, 70syl 17 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → Word ran (pmTrsp‘𝐷) ⊆ Word (Base‘𝑆))
72 simp-7l 789 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑢 ∈ Word ran (pmTrsp‘𝐷))
7371, 72sseldd 3923 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑢 ∈ Word (Base‘𝑆))
7461, 63s2cld 14824 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → ⟨“𝑖𝑗”⟩ ∈ Word (Base‘𝑆))
7512, 64gsumccat 18800 . . . . . . . . . . . . . . 15 ((𝑆 ∈ Mnd ∧ 𝑢 ∈ Word (Base‘𝑆) ∧ ⟨“𝑖𝑗”⟩ ∈ Word (Base‘𝑆)) → (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = ((𝑆 Σg 𝑢)(+g𝑆)(𝑆 Σg ⟨“𝑖𝑗”⟩)))
7656, 73, 74, 75syl3anc 1374 . . . . . . . . . . . . . 14 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = ((𝑆 Σg 𝑢)(+g𝑆)(𝑆 Σg ⟨“𝑖𝑗”⟩)))
77 cyc3genpm.t . . . . . . . . . . . . . . . . . . . 20 𝐶 = (𝑀 “ (♯ “ {3}))
78 cyc3genpm.m . . . . . . . . . . . . . . . . . . . . 21 𝑀 = (toCyc‘𝐷)
7978imaeq1i 6016 . . . . . . . . . . . . . . . . . . . 20 (𝑀 “ (♯ “ {3})) = ((toCyc‘𝐷) “ (♯ “ {3}))
8077, 79eqtri 2760 . . . . . . . . . . . . . . . . . . 19 𝐶 = ((toCyc‘𝐷) “ (♯ “ {3}))
8180, 9cyc3evpm 33226 . . . . . . . . . . . . . . . . . 18 (𝐷 ∈ Fin → 𝐶𝐴)
8211, 12evpmss 21576 . . . . . . . . . . . . . . . . . . 19 (pmEven‘𝐷) ⊆ (Base‘𝑆)
839, 82eqsstri 3969 . . . . . . . . . . . . . . . . . 18 𝐴 ⊆ (Base‘𝑆)
8481, 83sstrdi 3935 . . . . . . . . . . . . . . . . 17 (𝐷 ∈ Fin → 𝐶 ⊆ (Base‘𝑆))
85 sswrd 14475 . . . . . . . . . . . . . . . . 17 (𝐶 ⊆ (Base‘𝑆) → Word 𝐶 ⊆ Word (Base‘𝑆))
8653, 84, 853syl 18 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → Word 𝐶 ⊆ Word (Base‘𝑆))
87 simp-4r 784 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑣 ∈ Word 𝐶)
8886, 87sseldd 3923 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑣 ∈ Word (Base‘𝑆))
89 simplr 769 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑐 ∈ Word 𝐶)
9086, 89sseldd 3923 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑐 ∈ Word (Base‘𝑆))
9112, 64gsumccat 18800 . . . . . . . . . . . . . . 15 ((𝑆 ∈ Mnd ∧ 𝑣 ∈ Word (Base‘𝑆) ∧ 𝑐 ∈ Word (Base‘𝑆)) → (𝑆 Σg (𝑣 ++ 𝑐)) = ((𝑆 Σg 𝑣)(+g𝑆)(𝑆 Σg 𝑐)))
9256, 88, 90, 91syl3anc 1374 . . . . . . . . . . . . . 14 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg (𝑣 ++ 𝑐)) = ((𝑆 Σg 𝑣)(+g𝑆)(𝑆 Σg 𝑐)))
9369, 76, 923eqtr4d 2782 . . . . . . . . . . . . 13 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg (𝑣 ++ 𝑐)))
9447, 50, 93rspcedvd 3567 . . . . . . . . . . . 12 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))
95 cyc3genpm.n . . . . . . . . . . . . . . 15 𝑁 = (♯‘𝐷)
96 simp-6r 788 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑒𝐷)
97 simp-5r 786 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑓𝐷)
98 simpllr 776 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑔𝐷)
99 simplr 769 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝐷)
100 simp-4r 784 . . . . . . . . . . . . . . . 16 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩)))
101100simprd 495 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))
102 simprr 773 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑗 = (𝑀‘⟨“𝑔”⟩))
10352ad6antr 737 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝐷 ∈ Fin)
104100simpld 494 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑒𝑓)
105 simprl 771 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑔)
10677, 9, 11, 95, 78, 64, 96, 97, 98, 99, 101, 102, 103, 104, 105cyc3genpmlem 33227 . . . . . . . . . . . . . 14 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → ∃𝑐 ∈ Word 𝐶(𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
107 simp-6r 788 . . . . . . . . . . . . . . 15 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → 𝐷 ∈ Fin)
108 simp-7r 790 . . . . . . . . . . . . . . 15 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → 𝑗 ∈ ran (pmTrsp‘𝐷))
10916, 78trsp2cyc 33199 . . . . . . . . . . . . . . 15 ((𝐷 ∈ Fin ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) → ∃𝑔𝐷𝐷 (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩)))
110107, 108, 109syl2anc 585 . . . . . . . . . . . . . 14 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → ∃𝑔𝐷𝐷 (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩)))
111106, 110r19.29vva 3198 . . . . . . . . . . . . 13 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → ∃𝑐 ∈ Word 𝐶(𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
11216, 78trsp2cyc 33199 . . . . . . . . . . . . . 14 ((𝐷 ∈ Fin ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) → ∃𝑒𝐷𝑓𝐷 (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩)))
11352, 59, 112syl2anc 585 . . . . . . . . . . . . 13 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑒𝐷𝑓𝐷 (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩)))
114111, 113r19.29vva 3198 . . . . . . . . . . . 12 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑐 ∈ Word 𝐶(𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
11594, 114r19.29a 3146 . . . . . . . . . . 11 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))
116115adantl3r 751 . . . . . . . . . 10 (((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))
117 simpr 484 . . . . . . . . . . . 12 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → 𝐷 ∈ Fin)
118 simplr 769 . . . . . . . . . . . 12 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)))
119117, 118mpd 15 . . . . . . . . . . 11 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))
120 oveq2 7368 . . . . . . . . . . . . 13 (𝑣 = 𝑤 → (𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))
121120eqeq2d 2748 . . . . . . . . . . . 12 (𝑣 = 𝑤 → ((𝑆 Σg 𝑢) = (𝑆 Σg 𝑣) ↔ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)))
122121cbvrexvw 3217 . . . . . . . . . . 11 (∃𝑣 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑣) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))
123119, 122sylibr 234 . . . . . . . . . 10 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → ∃𝑣 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑣))
124116, 123r19.29a 3146 . . . . . . . . 9 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))
125124ex 412 . . . . . . . 8 ((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) → (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤)))
126125ex3 1348 . . . . . . 7 ((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)) → (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))))
12726, 30, 34, 38, 45, 126wrdt2ind 33028 . . . . . 6 ((𝑣 ∈ Word ran (pmTrsp‘𝐷) ∧ 2 ∥ (♯‘𝑣)) → (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
128127imp 406 . . . . 5 (((𝑣 ∈ Word ran (pmTrsp‘𝐷) ∧ 2 ∥ (♯‘𝑣)) ∧ 𝐷 ∈ Fin) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))
1291, 22, 7, 128syl21anc 838 . . . 4 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))
1305eqeq1d 2739 . . . . 5 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (𝑄 = (𝑆 Σg 𝑤) ↔ (𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
131130rexbidv 3162 . . . 4 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
132129, 131mpbird 257 . . 3 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤))
13383sseli 3918 . . . 4 (𝑄𝐴𝑄 ∈ (Base‘𝑆))
13411, 12, 16psgnfitr 19483 . . . . 5 (𝐷 ∈ Fin → (𝑄 ∈ (Base‘𝑆) ↔ ∃𝑣 ∈ Word ran (pmTrsp‘𝐷)𝑄 = (𝑆 Σg 𝑣)))
135134biimpa 476 . . . 4 ((𝐷 ∈ Fin ∧ 𝑄 ∈ (Base‘𝑆)) → ∃𝑣 ∈ Word ran (pmTrsp‘𝐷)𝑄 = (𝑆 Σg 𝑣))
136133, 135sylan2 594 . . 3 ((𝐷 ∈ Fin ∧ 𝑄𝐴) → ∃𝑣 ∈ Word ran (pmTrsp‘𝐷)𝑄 = (𝑆 Σg 𝑣))
137132, 136r19.29a 3146 . 2 ((𝐷 ∈ Fin ∧ 𝑄𝐴) → ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤))
138 simpr 484 . . . 4 (((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) ∧ 𝑄 = (𝑆 Σg 𝑤)) → 𝑄 = (𝑆 Σg 𝑤))
13911altgnsg 33225 . . . . . . . . 9 (𝐷 ∈ Fin → (pmEven‘𝐷) ∈ (NrmSGrp‘𝑆))
1409, 139eqeltrid 2841 . . . . . . . 8 (𝐷 ∈ Fin → 𝐴 ∈ (NrmSGrp‘𝑆))
141 nsgsubg 19124 . . . . . . . 8 (𝐴 ∈ (NrmSGrp‘𝑆) → 𝐴 ∈ (SubGrp‘𝑆))
142 subgsubm 19115 . . . . . . . 8 (𝐴 ∈ (SubGrp‘𝑆) → 𝐴 ∈ (SubMnd‘𝑆))
143140, 141, 1423syl 18 . . . . . . 7 (𝐷 ∈ Fin → 𝐴 ∈ (SubMnd‘𝑆))
144143adantr 480 . . . . . 6 ((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) → 𝐴 ∈ (SubMnd‘𝑆))
145 sswrd 14475 . . . . . . . 8 (𝐶𝐴 → Word 𝐶 ⊆ Word 𝐴)
14681, 145syl 17 . . . . . . 7 (𝐷 ∈ Fin → Word 𝐶 ⊆ Word 𝐴)
147146sselda 3922 . . . . . 6 ((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) → 𝑤 ∈ Word 𝐴)
148 gsumwsubmcl 18796 . . . . . 6 ((𝐴 ∈ (SubMnd‘𝑆) ∧ 𝑤 ∈ Word 𝐴) → (𝑆 Σg 𝑤) ∈ 𝐴)
149144, 147, 148syl2anc 585 . . . . 5 ((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) → (𝑆 Σg 𝑤) ∈ 𝐴)
150149adantr 480 . . . 4 (((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) ∧ 𝑄 = (𝑆 Σg 𝑤)) → (𝑆 Σg 𝑤) ∈ 𝐴)
151138, 150eqeltrd 2837 . . 3 (((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) ∧ 𝑄 = (𝑆 Σg 𝑤)) → 𝑄𝐴)
152151r19.29an 3142 . 2 ((𝐷 ∈ Fin ∧ ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤)) → 𝑄𝐴)
153137, 152impbida 801 1 (𝐷 ∈ Fin → (𝑄𝐴 ↔ ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wne 2933  wrex 3062  wss 3890  c0 4274  {csn 4568   class class class wbr 5086  ccnv 5623  ran crn 5625  cima 5627  cfv 6492  (class class class)co 7360  Fincfn 8886  1c1 11030  -cneg 11369  2c2 12227  3c3 12228  0cn0 12428  cz 12515  cexp 14014  chash 14283  Word cword 14466   ++ cconcat 14523  ⟨“cs2 14794  cdvds 16212  Basecbs 17170  +gcplusg 17211   Σg cgsu 17394  Mndcmnd 18693  SubMndcsubmnd 18741  Grpcgrp 18900  SubGrpcsubg 19087  NrmSGrpcnsg 19088  SymGrpcsymg 19335  pmTrspcpmtr 19407  pmSgncpsgn 19455  pmEvencevpm 19456  toCycctocyc 33182
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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5302  ax-pr 5370  ax-un 7682  ax-reg 9500  ax-ac2 10376  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107  ax-addf 11108  ax-mulf 11109
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-xor 1514  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-ot 4577  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-se 5578  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-tpos 8169  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8342  df-1o 8398  df-2o 8399  df-er 8636  df-map 8768  df-en 8887  df-dom 8888  df-sdom 8889  df-fin 8890  df-sup 9348  df-inf 9349  df-card 9854  df-ac 10029  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-2 12235  df-3 12236  df-4 12237  df-5 12238  df-6 12239  df-7 12240  df-8 12241  df-9 12242  df-n0 12429  df-xnn0 12502  df-z 12516  df-dec 12636  df-uz 12780  df-rp 12934  df-fz 13453  df-fzo 13600  df-fl 13742  df-mod 13820  df-seq 13955  df-exp 14015  df-hash 14284  df-word 14467  df-lsw 14516  df-concat 14524  df-s1 14550  df-substr 14595  df-pfx 14625  df-splice 14703  df-reverse 14712  df-csh 14742  df-s2 14801  df-s3 14802  df-dvds 16213  df-struct 17108  df-sets 17125  df-slot 17143  df-ndx 17155  df-base 17171  df-ress 17192  df-plusg 17224  df-mulr 17225  df-starv 17226  df-tset 17230  df-ple 17231  df-ds 17233  df-unif 17234  df-0g 17395  df-gsum 17396  df-mre 17539  df-mrc 17540  df-acs 17542  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-mhm 18742  df-submnd 18743  df-efmnd 18828  df-grp 18903  df-minusg 18904  df-sbg 18905  df-subg 19090  df-nsg 19091  df-ghm 19179  df-gim 19225  df-oppg 19312  df-symg 19336  df-pmtr 19408  df-psgn 19457  df-evpm 19458  df-cmn 19748  df-abl 19749  df-mgp 20113  df-rng 20125  df-ur 20154  df-ring 20207  df-cring 20208  df-oppr 20308  df-dvdsr 20328  df-unit 20329  df-invr 20359  df-dvr 20372  df-drng 20699  df-cnfld 21345  df-tocyc 33183
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator