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 33031
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 767 . . . . 5 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑣 ∈ Word ran (pmTrsp‘𝐷))
2 lencl 14533 . . . . . . . 8 (𝑣 ∈ Word ran (pmTrsp‘𝐷) → (♯‘𝑣) ∈ ℕ0)
32ad2antlr 725 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (♯‘𝑣) ∈ ℕ0)
43nn0zd 12627 . . . . . 6 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (♯‘𝑣) ∈ ℤ)
5 simpr 483 . . . . . . . 8 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑄 = (𝑆 Σg 𝑣))
65fveq2d 6894 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ((pmSgn‘𝐷)‘𝑄) = ((pmSgn‘𝐷)‘(𝑆 Σg 𝑣)))
7 simplll 773 . . . . . . . 8 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝐷 ∈ Fin)
8 simpllr 774 . . . . . . . . 9 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑄𝐴)
9 cyc3genpm.a . . . . . . . . 9 𝐴 = (pmEven‘𝐷)
108, 9eleqtrdi 2836 . . . . . . . 8 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 𝑄 ∈ (pmEven‘𝐷))
11 cyc3genpm.s . . . . . . . . 9 𝑆 = (SymGrp‘𝐷)
12 eqid 2726 . . . . . . . . 9 (Base‘𝑆) = (Base‘𝑆)
13 eqid 2726 . . . . . . . . 9 (pmSgn‘𝐷) = (pmSgn‘𝐷)
1411, 12, 13psgnevpm 21578 . . . . . . . 8 ((𝐷 ∈ Fin ∧ 𝑄 ∈ (pmEven‘𝐷)) → ((pmSgn‘𝐷)‘𝑄) = 1)
157, 10, 14syl2anc 582 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ((pmSgn‘𝐷)‘𝑄) = 1)
16 eqid 2726 . . . . . . . . 9 ran (pmTrsp‘𝐷) = ran (pmTrsp‘𝐷)
1711, 16, 13psgnvalii 19500 . . . . . . . 8 ((𝐷 ∈ Fin ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) → ((pmSgn‘𝐷)‘(𝑆 Σg 𝑣)) = (-1↑(♯‘𝑣)))
187, 1, 17syl2anc 582 . . . . . . 7 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ((pmSgn‘𝐷)‘(𝑆 Σg 𝑣)) = (-1↑(♯‘𝑣)))
196, 15, 183eqtr3rd 2775 . . . . . 6 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (-1↑(♯‘𝑣)) = 1)
20 m1exp1 16370 . . . . . . 7 ((♯‘𝑣) ∈ ℤ → ((-1↑(♯‘𝑣)) = 1 ↔ 2 ∥ (♯‘𝑣)))
2120biimpa 475 . . . . . 6 (((♯‘𝑣) ∈ ℤ ∧ (-1↑(♯‘𝑣)) = 1) → 2 ∥ (♯‘𝑣))
224, 19, 21syl2anc 582 . . . . 5 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → 2 ∥ (♯‘𝑣))
23 oveq2 7421 . . . . . . . . . 10 (𝑥 = ∅ → (𝑆 Σg 𝑥) = (𝑆 Σg ∅))
2423eqeq1d 2728 . . . . . . . . 9 (𝑥 = ∅ → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg ∅) = (𝑆 Σg 𝑤)))
2524rexbidv 3169 . . . . . . . 8 (𝑥 = ∅ → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg ∅) = (𝑆 Σg 𝑤)))
2625imbi2d 339 . . . . . . 7 (𝑥 = ∅ → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg ∅) = (𝑆 Σg 𝑤))))
27 oveq2 7421 . . . . . . . . . 10 (𝑥 = 𝑢 → (𝑆 Σg 𝑥) = (𝑆 Σg 𝑢))
2827eqeq1d 2728 . . . . . . . . 9 (𝑥 = 𝑢 → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)))
2928rexbidv 3169 . . . . . . . 8 (𝑥 = 𝑢 → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)))
3029imbi2d 339 . . . . . . 7 (𝑥 = 𝑢 → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))))
31 oveq2 7421 . . . . . . . . . 10 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → (𝑆 Σg 𝑥) = (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)))
3231eqeq1d 2728 . . . . . . . . 9 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤)))
3332rexbidv 3169 . . . . . . . 8 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤)))
3433imbi2d 339 . . . . . . 7 (𝑥 = (𝑢 ++ ⟨“𝑖𝑗”⟩) → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))))
35 oveq2 7421 . . . . . . . . . 10 (𝑥 = 𝑣 → (𝑆 Σg 𝑥) = (𝑆 Σg 𝑣))
3635eqeq1d 2728 . . . . . . . . 9 (𝑥 = 𝑣 → ((𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
3736rexbidv 3169 . . . . . . . 8 (𝑥 = 𝑣 → (∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
3837imbi2d 339 . . . . . . 7 (𝑥 = 𝑣 → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑥) = (𝑆 Σg 𝑤)) ↔ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))))
39 wrd0 14539 . . . . . . . . 9 ∅ ∈ Word 𝐶
4039a1i 11 . . . . . . . 8 (𝐷 ∈ Fin → ∅ ∈ Word 𝐶)
41 simpr 483 . . . . . . . . . 10 ((𝐷 ∈ Fin ∧ 𝑤 = ∅) → 𝑤 = ∅)
4241oveq2d 7429 . . . . . . . . 9 ((𝐷 ∈ Fin ∧ 𝑤 = ∅) → (𝑆 Σg 𝑤) = (𝑆 Σg ∅))
4342eqeq2d 2737 . . . . . . . 8 ((𝐷 ∈ Fin ∧ 𝑤 = ∅) → ((𝑆 Σg ∅) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg ∅) = (𝑆 Σg ∅)))
44 eqidd 2727 . . . . . . . 8 (𝐷 ∈ Fin → (𝑆 Σg ∅) = (𝑆 Σg ∅))
4540, 43, 44rspcedvd 3609 . . . . . . 7 (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg ∅) = (𝑆 Σg 𝑤))
46 ccatcl 14574 . . . . . . . . . . . . . 14 ((𝑣 ∈ Word 𝐶𝑐 ∈ Word 𝐶) → (𝑣 ++ 𝑐) ∈ Word 𝐶)
4746ad5ant24 759 . . . . . . . . . . . . 13 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑣 ++ 𝑐) ∈ Word 𝐶)
48 oveq2 7421 . . . . . . . . . . . . . . 15 (𝑤 = (𝑣 ++ 𝑐) → (𝑆 Σg 𝑤) = (𝑆 Σg (𝑣 ++ 𝑐)))
4948eqeq2d 2737 . . . . . . . . . . . . . 14 (𝑤 = (𝑣 ++ 𝑐) → ((𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg (𝑣 ++ 𝑐))))
5049adantl 480 . . . . . . . . . . . . 13 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) ∧ 𝑤 = (𝑣 ++ 𝑐)) → ((𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤) ↔ (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg (𝑣 ++ 𝑐))))
51 simpllr 774 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣))
52 simpllr 774 . . . . . . . . . . . . . . . . . . 19 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → 𝐷 ∈ Fin)
5352ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝐷 ∈ Fin)
5411symggrp 19391 . . . . . . . . . . . . . . . . . 18 (𝐷 ∈ Fin → 𝑆 ∈ Grp)
55 grpmnd 18927 . . . . . . . . . . . . . . . . . 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 19460 . . . . . . . . . . . . . . . . . . 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 784 . . . . . . . . . . . . . . . . . . 19 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → 𝑖 ∈ ran (pmTrsp‘𝐷))
6059ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑖 ∈ ran (pmTrsp‘𝐷))
6158, 60sseldd 3979 . . . . . . . . . . . . . . . . 17 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑖 ∈ (Base‘𝑆))
62 simp-6r 786 . . . . . . . . . . . . . . . . . 18 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑗 ∈ ran (pmTrsp‘𝐷))
6358, 62sseldd 3979 . . . . . . . . . . . . . . . . 17 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑗 ∈ (Base‘𝑆))
64 eqid 2726 . . . . . . . . . . . . . . . . . 18 (+g𝑆) = (+g𝑆)
6512, 64gsumws2 18824 . . . . . . . . . . . . . . . . 17 ((𝑆 ∈ Mnd ∧ 𝑖 ∈ (Base‘𝑆) ∧ 𝑗 ∈ (Base‘𝑆)) → (𝑆 Σg ⟨“𝑖𝑗”⟩) = (𝑖(+g𝑆)𝑗))
6656, 61, 63, 65syl3anc 1368 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg ⟨“𝑖𝑗”⟩) = (𝑖(+g𝑆)𝑗))
67 simpr 483 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
6866, 67eqtrd 2766 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg ⟨“𝑖𝑗”⟩) = (𝑆 Σg 𝑐))
6951, 68oveq12d 7431 . . . . . . . . . . . . . 14 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → ((𝑆 Σg 𝑢)(+g𝑆)(𝑆 Σg ⟨“𝑖𝑗”⟩)) = ((𝑆 Σg 𝑣)(+g𝑆)(𝑆 Σg 𝑐)))
70 sswrd 14522 . . . . . . . . . . . . . . . . 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 787 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑢 ∈ Word ran (pmTrsp‘𝐷))
7371, 72sseldd 3979 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑢 ∈ Word (Base‘𝑆))
7461, 63s2cld 14872 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → ⟨“𝑖𝑗”⟩ ∈ Word (Base‘𝑆))
7512, 64gsumccat 18823 . . . . . . . . . . . . . . 15 ((𝑆 ∈ Mnd ∧ 𝑢 ∈ Word (Base‘𝑆) ∧ ⟨“𝑖𝑗”⟩ ∈ Word (Base‘𝑆)) → (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = ((𝑆 Σg 𝑢)(+g𝑆)(𝑆 Σg ⟨“𝑖𝑗”⟩)))
7656, 73, 74, 75syl3anc 1368 . . . . . . . . . . . . . 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 6056 . . . . . . . . . . . . . . . . . . . 20 (𝑀 “ (♯ “ {3})) = ((toCyc‘𝐷) “ (♯ “ {3}))
8077, 79eqtri 2754 . . . . . . . . . . . . . . . . . . 19 𝐶 = ((toCyc‘𝐷) “ (♯ “ {3}))
8180, 9cyc3evpm 33029 . . . . . . . . . . . . . . . . . 18 (𝐷 ∈ Fin → 𝐶𝐴)
8211, 12evpmss 21575 . . . . . . . . . . . . . . . . . . 19 (pmEven‘𝐷) ⊆ (Base‘𝑆)
839, 82eqsstri 4013 . . . . . . . . . . . . . . . . . 18 𝐴 ⊆ (Base‘𝑆)
8481, 83sstrdi 3991 . . . . . . . . . . . . . . . . 17 (𝐷 ∈ Fin → 𝐶 ⊆ (Base‘𝑆))
85 sswrd 14522 . . . . . . . . . . . . . . . . 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 782 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑣 ∈ Word 𝐶)
8886, 87sseldd 3979 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑣 ∈ Word (Base‘𝑆))
89 simplr 767 . . . . . . . . . . . . . . . 16 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑐 ∈ Word 𝐶)
9086, 89sseldd 3979 . . . . . . . . . . . . . . 15 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → 𝑐 ∈ Word (Base‘𝑆))
9112, 64gsumccat 18823 . . . . . . . . . . . . . . 15 ((𝑆 ∈ Mnd ∧ 𝑣 ∈ Word (Base‘𝑆) ∧ 𝑐 ∈ Word (Base‘𝑆)) → (𝑆 Σg (𝑣 ++ 𝑐)) = ((𝑆 Σg 𝑣)(+g𝑆)(𝑆 Σg 𝑐)))
9256, 88, 90, 91syl3anc 1368 . . . . . . . . . . . . . 14 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg (𝑣 ++ 𝑐)) = ((𝑆 Σg 𝑣)(+g𝑆)(𝑆 Σg 𝑐)))
9369, 76, 923eqtr4d 2776 . . . . . . . . . . . . 13 ((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑐 ∈ Word 𝐶) ∧ (𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐)) → (𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg (𝑣 ++ 𝑐)))
9447, 50, 93rspcedvd 3609 . . . . . . . . . . . 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 786 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑒𝐷)
97 simp-5r 784 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑓𝐷)
98 simpllr 774 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑔𝐷)
99 simplr 767 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝐷)
100 simp-4r 782 . . . . . . . . . . . . . . . 16 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩)))
101100simprd 494 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))
102 simprr 771 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑗 = (𝑀‘⟨“𝑔”⟩))
10352ad6antr 734 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝐷 ∈ Fin)
104100simpld 493 . . . . . . . . . . . . . . 15 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → 𝑒𝑓)
105 simprl 769 . . . . . . . . . . . . . . 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 33030 . . . . . . . . . . . . . 14 ((((((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) ∧ 𝑔𝐷) ∧ 𝐷) ∧ (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩))) → ∃𝑐 ∈ Word 𝐶(𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
107 simp-6r 786 . . . . . . . . . . . . . . 15 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → 𝐷 ∈ Fin)
108 simp-7r 788 . . . . . . . . . . . . . . 15 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → 𝑗 ∈ ran (pmTrsp‘𝐷))
10916, 78trsp2cyc 33002 . . . . . . . . . . . . . . 15 ((𝐷 ∈ Fin ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) → ∃𝑔𝐷𝐷 (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩)))
110107, 108, 109syl2anc 582 . . . . . . . . . . . . . 14 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → ∃𝑔𝐷𝐷 (𝑔𝑗 = (𝑀‘⟨“𝑔”⟩)))
111106, 110r19.29vva 3204 . . . . . . . . . . . . 13 (((((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) ∧ 𝑒𝐷) ∧ 𝑓𝐷) ∧ (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩))) → ∃𝑐 ∈ Word 𝐶(𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
11216, 78trsp2cyc 33002 . . . . . . . . . . . . . 14 ((𝐷 ∈ Fin ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) → ∃𝑒𝐷𝑓𝐷 (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩)))
11352, 59, 112syl2anc 582 . . . . . . . . . . . . 13 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑒𝐷𝑓𝐷 (𝑒𝑓𝑖 = (𝑀‘⟨“𝑒𝑓”⟩)))
114111, 113r19.29vva 3204 . . . . . . . . . . . 12 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑐 ∈ Word 𝐶(𝑖(+g𝑆)𝑗) = (𝑆 Σg 𝑐))
11594, 114r19.29a 3152 . . . . . . . . . . 11 ((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))
116115adantl3r 748 . . . . . . . . . 10 (((((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) ∧ 𝑣 ∈ Word 𝐶) ∧ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))
117 simpr 483 . . . . . . . . . . . 12 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → 𝐷 ∈ Fin)
118 simplr 767 . . . . . . . . . . . 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 7421 . . . . . . . . . . . . 13 (𝑣 = 𝑤 → (𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))
121120eqeq2d 2737 . . . . . . . . . . . 12 (𝑣 = 𝑤 → ((𝑆 Σg 𝑢) = (𝑆 Σg 𝑣) ↔ (𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)))
122121cbvrexvw 3226 . . . . . . . . . . 11 (∃𝑣 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑣) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))
123119, 122sylibr 233 . . . . . . . . . 10 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → ∃𝑣 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑣))
124116, 123r19.29a 3152 . . . . . . . . 9 (((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) ∧ 𝐷 ∈ Fin) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))
125124ex 411 . . . . . . . 8 ((((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷)) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) ∧ (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤))) → (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤)))
126125ex3 1343 . . . . . . 7 ((𝑢 ∈ Word ran (pmTrsp‘𝐷) ∧ 𝑖 ∈ ran (pmTrsp‘𝐷) ∧ 𝑗 ∈ ran (pmTrsp‘𝐷)) → ((𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑢) = (𝑆 Σg 𝑤)) → (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg (𝑢 ++ ⟨“𝑖𝑗”⟩)) = (𝑆 Σg 𝑤))))
12726, 30, 34, 38, 45, 126wrdt2ind 32817 . . . . . 6 ((𝑣 ∈ Word ran (pmTrsp‘𝐷) ∧ 2 ∥ (♯‘𝑣)) → (𝐷 ∈ Fin → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
128127imp 405 . . . . 5 (((𝑣 ∈ Word ran (pmTrsp‘𝐷) ∧ 2 ∥ (♯‘𝑣)) ∧ 𝐷 ∈ Fin) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))
1291, 22, 7, 128syl21anc 836 . . . 4 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤))
1305eqeq1d 2728 . . . . 5 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (𝑄 = (𝑆 Σg 𝑤) ↔ (𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
131130rexbidv 3169 . . . 4 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → (∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤) ↔ ∃𝑤 ∈ Word 𝐶(𝑆 Σg 𝑣) = (𝑆 Σg 𝑤)))
132129, 131mpbird 256 . . 3 ((((𝐷 ∈ Fin ∧ 𝑄𝐴) ∧ 𝑣 ∈ Word ran (pmTrsp‘𝐷)) ∧ 𝑄 = (𝑆 Σg 𝑣)) → ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤))
13383sseli 3974 . . . 4 (𝑄𝐴𝑄 ∈ (Base‘𝑆))
13411, 12, 16psgnfitr 19508 . . . . 5 (𝐷 ∈ Fin → (𝑄 ∈ (Base‘𝑆) ↔ ∃𝑣 ∈ Word ran (pmTrsp‘𝐷)𝑄 = (𝑆 Σg 𝑣)))
135134biimpa 475 . . . 4 ((𝐷 ∈ Fin ∧ 𝑄 ∈ (Base‘𝑆)) → ∃𝑣 ∈ Word ran (pmTrsp‘𝐷)𝑄 = (𝑆 Σg 𝑣))
136133, 135sylan2 591 . . 3 ((𝐷 ∈ Fin ∧ 𝑄𝐴) → ∃𝑣 ∈ Word ran (pmTrsp‘𝐷)𝑄 = (𝑆 Σg 𝑣))
137132, 136r19.29a 3152 . 2 ((𝐷 ∈ Fin ∧ 𝑄𝐴) → ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤))
138 simpr 483 . . . 4 (((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) ∧ 𝑄 = (𝑆 Σg 𝑤)) → 𝑄 = (𝑆 Σg 𝑤))
13911altgnsg 33028 . . . . . . . . 9 (𝐷 ∈ Fin → (pmEven‘𝐷) ∈ (NrmSGrp‘𝑆))
1409, 139eqeltrid 2830 . . . . . . . 8 (𝐷 ∈ Fin → 𝐴 ∈ (NrmSGrp‘𝑆))
141 nsgsubg 19145 . . . . . . . 8 (𝐴 ∈ (NrmSGrp‘𝑆) → 𝐴 ∈ (SubGrp‘𝑆))
142 subgsubm 19135 . . . . . . . 8 (𝐴 ∈ (SubGrp‘𝑆) → 𝐴 ∈ (SubMnd‘𝑆))
143140, 141, 1423syl 18 . . . . . . 7 (𝐷 ∈ Fin → 𝐴 ∈ (SubMnd‘𝑆))
144143adantr 479 . . . . . 6 ((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) → 𝐴 ∈ (SubMnd‘𝑆))
145 sswrd 14522 . . . . . . . 8 (𝐶𝐴 → Word 𝐶 ⊆ Word 𝐴)
14681, 145syl 17 . . . . . . 7 (𝐷 ∈ Fin → Word 𝐶 ⊆ Word 𝐴)
147146sselda 3978 . . . . . 6 ((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) → 𝑤 ∈ Word 𝐴)
148 gsumwsubmcl 18819 . . . . . 6 ((𝐴 ∈ (SubMnd‘𝑆) ∧ 𝑤 ∈ Word 𝐴) → (𝑆 Σg 𝑤) ∈ 𝐴)
149144, 147, 148syl2anc 582 . . . . 5 ((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) → (𝑆 Σg 𝑤) ∈ 𝐴)
150149adantr 479 . . . 4 (((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) ∧ 𝑄 = (𝑆 Σg 𝑤)) → (𝑆 Σg 𝑤) ∈ 𝐴)
151138, 150eqeltrd 2826 . . 3 (((𝐷 ∈ Fin ∧ 𝑤 ∈ Word 𝐶) ∧ 𝑄 = (𝑆 Σg 𝑤)) → 𝑄𝐴)
152151r19.29an 3148 . 2 ((𝐷 ∈ Fin ∧ ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤)) → 𝑄𝐴)
153137, 152impbida 799 1 (𝐷 ∈ Fin → (𝑄𝐴 ↔ ∃𝑤 ∈ Word 𝐶𝑄 = (𝑆 Σg 𝑤)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 394   = wceq 1534  wcel 2099  wne 2930  wrex 3060  wss 3946  c0 4322  {csn 4623   class class class wbr 5143  ccnv 5671  ran crn 5673  cima 5675  cfv 6543  (class class class)co 7413  Fincfn 8963  1c1 11147  -cneg 11483  2c2 12310  3c3 12311  0cn0 12515  cz 12601  cexp 14072  chash 14339  Word cword 14514   ++ cconcat 14570  ⟨“cs2 14842  cdvds 16248  Basecbs 17205  +gcplusg 17258   Σg cgsu 17447  Mndcmnd 18719  SubMndcsubmnd 18764  Grpcgrp 18920  SubGrpcsubg 19107  NrmSGrpcnsg 19108  SymGrpcsymg 19357  pmTrspcpmtr 19432  pmSgncpsgn 19480  pmEvencevpm 19481  toCycctocyc 32985
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5359  ax-pr 5423  ax-un 7735  ax-reg 9625  ax-ac2 10494  ax-cnex 11202  ax-resscn 11203  ax-1cn 11204  ax-icn 11205  ax-addcl 11206  ax-addrcl 11207  ax-mulcl 11208  ax-mulrcl 11209  ax-mulcom 11210  ax-addass 11211  ax-mulass 11212  ax-distr 11213  ax-i2m1 11214  ax-1ne0 11215  ax-1rid 11216  ax-rnegex 11217  ax-rrecex 11218  ax-cnre 11219  ax-pre-lttri 11220  ax-pre-lttrn 11221  ax-pre-ltadd 11222  ax-pre-mulgt0 11223  ax-pre-sup 11224  ax-addf 11225  ax-mulf 11226
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-xor 1506  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3464  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3966  df-nul 4323  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-ot 4632  df-uni 4906  df-int 4947  df-iun 4995  df-iin 4996  df-br 5144  df-opab 5206  df-mpt 5227  df-tr 5261  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-se 5628  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6302  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  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 7369  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7866  df-1st 7992  df-2nd 7993  df-tpos 8230  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-2o 8486  df-er 8723  df-map 8846  df-en 8964  df-dom 8965  df-sdom 8966  df-fin 8967  df-sup 9475  df-inf 9476  df-card 9972  df-ac 10149  df-pnf 11288  df-mnf 11289  df-xr 11290  df-ltxr 11291  df-le 11292  df-sub 11484  df-neg 11485  df-div 11910  df-nn 12256  df-2 12318  df-3 12319  df-4 12320  df-5 12321  df-6 12322  df-7 12323  df-8 12324  df-9 12325  df-n0 12516  df-xnn0 12588  df-z 12602  df-dec 12721  df-uz 12866  df-rp 13020  df-fz 13530  df-fzo 13673  df-fl 13803  df-mod 13881  df-seq 14013  df-exp 14073  df-hash 14340  df-word 14515  df-lsw 14563  df-concat 14571  df-s1 14596  df-substr 14641  df-pfx 14671  df-splice 14750  df-reverse 14759  df-csh 14789  df-s2 14849  df-s3 14850  df-dvds 16249  df-struct 17141  df-sets 17158  df-slot 17176  df-ndx 17188  df-base 17206  df-ress 17235  df-plusg 17271  df-mulr 17272  df-starv 17273  df-tset 17277  df-ple 17278  df-ds 17280  df-unif 17281  df-0g 17448  df-gsum 17449  df-mre 17591  df-mrc 17592  df-acs 17594  df-mgm 18625  df-sgrp 18704  df-mnd 18720  df-mhm 18765  df-submnd 18766  df-efmnd 18851  df-grp 18923  df-minusg 18924  df-sbg 18925  df-subg 19110  df-nsg 19111  df-ghm 19200  df-gim 19246  df-oppg 19333  df-symg 19358  df-pmtr 19433  df-psgn 19482  df-evpm 19483  df-cmn 19773  df-abl 19774  df-mgp 20111  df-rng 20129  df-ur 20158  df-ring 20211  df-cring 20212  df-oppr 20309  df-dvdsr 20332  df-unit 20333  df-invr 20363  df-dvr 20376  df-drng 20702  df-cnfld 21337  df-tocyc 32986
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator