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

Theorem gsmsymgreqlem2 19372
Description: Lemma 2 for gsmsymgreq 19373. (Contributed by AV, 26-Jan-2019.)
Hypotheses
Ref Expression
gsmsymgrfix.s 𝑆 = (SymGrp‘𝑁)
gsmsymgrfix.b 𝐵 = (Base‘𝑆)
gsmsymgreq.z 𝑍 = (SymGrp‘𝑀)
gsmsymgreq.p 𝑃 = (Base‘𝑍)
gsmsymgreq.i 𝐼 = (𝑁𝑀)
Assertion
Ref Expression
gsmsymgreqlem2 (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛)) → (∀𝑖 ∈ (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩)))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
Distinct variable groups:   𝐵,𝑖   𝑖,𝑁   𝑃,𝑖   𝑛,𝐼   𝑛,𝑋   𝐶,𝑛   𝑅,𝑛   𝑆,𝑛   𝑛,𝑌   𝑛,𝑍   𝐵,𝑛   𝐶,𝑖,𝑛   𝑖,𝐼   𝑛,𝑀   𝑛,𝑁   𝑃,𝑛   𝑅,𝑖   𝑖,𝑋   𝑖,𝑌
Allowed substitution hints:   𝑆(𝑖)   𝑀(𝑖)   𝑍(𝑖)

Proof of Theorem gsmsymgreqlem2
Dummy variable 𝑗 is distinct from all other variables.
StepHypRef Expression
1 ccatws1len 14556 . . . . . . . . . 10 (𝑋 ∈ Word 𝐵 → (♯‘(𝑋 ++ ⟨“𝐶”⟩)) = ((♯‘𝑋) + 1))
21oveq2d 7384 . . . . . . . . 9 (𝑋 ∈ Word 𝐵 → (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩))) = (0..^((♯‘𝑋) + 1)))
3 lencl 14468 . . . . . . . . . . 11 (𝑋 ∈ Word 𝐵 → (♯‘𝑋) ∈ ℕ0)
4 elnn0uz 12804 . . . . . . . . . . 11 ((♯‘𝑋) ∈ ℕ0 ↔ (♯‘𝑋) ∈ (ℤ‘0))
53, 4sylib 218 . . . . . . . . . 10 (𝑋 ∈ Word 𝐵 → (♯‘𝑋) ∈ (ℤ‘0))
6 fzosplitsn 13704 . . . . . . . . . 10 ((♯‘𝑋) ∈ (ℤ‘0) → (0..^((♯‘𝑋) + 1)) = ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)}))
75, 6syl 17 . . . . . . . . 9 (𝑋 ∈ Word 𝐵 → (0..^((♯‘𝑋) + 1)) = ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)}))
82, 7eqtrd 2772 . . . . . . . 8 (𝑋 ∈ Word 𝐵 → (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩))) = ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)}))
98adantr 480 . . . . . . 7 ((𝑋 ∈ Word 𝐵𝐶𝐵) → (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩))) = ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)}))
1093ad2ant1 1134 . . . . . 6 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩))) = ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)}))
1110raleqdv 3298 . . . . 5 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (∀𝑖 ∈ (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩)))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ ∀𝑖 ∈ ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)})∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛)))
123adantr 480 . . . . . . 7 ((𝑋 ∈ Word 𝐵𝐶𝐵) → (♯‘𝑋) ∈ ℕ0)
13123ad2ant1 1134 . . . . . 6 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (♯‘𝑋) ∈ ℕ0)
14 fveq2 6842 . . . . . . . . . 10 (𝑖 = (♯‘𝑋) → ((𝑋 ++ ⟨“𝐶”⟩)‘𝑖) = ((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋)))
1514fveq1d 6844 . . . . . . . . 9 (𝑖 = (♯‘𝑋) → (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛))
16 fveq2 6842 . . . . . . . . . 10 (𝑖 = (♯‘𝑋) → ((𝑌 ++ ⟨“𝑅”⟩)‘𝑖) = ((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋)))
1716fveq1d 6844 . . . . . . . . 9 (𝑖 = (♯‘𝑋) → (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛))
1815, 17eqeq12d 2753 . . . . . . . 8 (𝑖 = (♯‘𝑋) → ((((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛)))
1918ralbidv 3161 . . . . . . 7 (𝑖 = (♯‘𝑋) → (∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ ∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛)))
2019ralunsn 4852 . . . . . 6 ((♯‘𝑋) ∈ ℕ0 → (∀𝑖 ∈ ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)})∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ∧ ∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛))))
2113, 20syl 17 . . . . 5 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (∀𝑖 ∈ ((0..^(♯‘𝑋)) ∪ {(♯‘𝑋)})∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ∧ ∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛))))
22 simp1l 1199 . . . . . . . . . . 11 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → 𝑋 ∈ Word 𝐵)
23 ccats1val1 14562 . . . . . . . . . . 11 ((𝑋 ∈ Word 𝐵𝑖 ∈ (0..^(♯‘𝑋))) → ((𝑋 ++ ⟨“𝐶”⟩)‘𝑖) = (𝑋𝑖))
2422, 23sylan 581 . . . . . . . . . 10 ((((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) ∧ 𝑖 ∈ (0..^(♯‘𝑋))) → ((𝑋 ++ ⟨“𝐶”⟩)‘𝑖) = (𝑋𝑖))
2524fveq1d 6844 . . . . . . . . 9 ((((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) ∧ 𝑖 ∈ (0..^(♯‘𝑋))) → (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = ((𝑋𝑖)‘𝑛))
26 simp2l 1201 . . . . . . . . . . 11 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → 𝑌 ∈ Word 𝑃)
27 oveq2 7376 . . . . . . . . . . . . . . 15 ((♯‘𝑋) = (♯‘𝑌) → (0..^(♯‘𝑋)) = (0..^(♯‘𝑌)))
2827eleq2d 2823 . . . . . . . . . . . . . 14 ((♯‘𝑋) = (♯‘𝑌) → (𝑖 ∈ (0..^(♯‘𝑋)) ↔ 𝑖 ∈ (0..^(♯‘𝑌))))
2928biimpd 229 . . . . . . . . . . . . 13 ((♯‘𝑋) = (♯‘𝑌) → (𝑖 ∈ (0..^(♯‘𝑋)) → 𝑖 ∈ (0..^(♯‘𝑌))))
30293ad2ant3 1136 . . . . . . . . . . . 12 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (𝑖 ∈ (0..^(♯‘𝑋)) → 𝑖 ∈ (0..^(♯‘𝑌))))
3130imp 406 . . . . . . . . . . 11 ((((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) ∧ 𝑖 ∈ (0..^(♯‘𝑋))) → 𝑖 ∈ (0..^(♯‘𝑌)))
32 ccats1val1 14562 . . . . . . . . . . 11 ((𝑌 ∈ Word 𝑃𝑖 ∈ (0..^(♯‘𝑌))) → ((𝑌 ++ ⟨“𝑅”⟩)‘𝑖) = (𝑌𝑖))
3326, 31, 32syl2an2r 686 . . . . . . . . . 10 ((((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) ∧ 𝑖 ∈ (0..^(♯‘𝑋))) → ((𝑌 ++ ⟨“𝑅”⟩)‘𝑖) = (𝑌𝑖))
3433fveq1d 6844 . . . . . . . . 9 ((((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) ∧ 𝑖 ∈ (0..^(♯‘𝑋))) → (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛))
3525, 34eqeq12d 2753 . . . . . . . 8 ((((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) ∧ 𝑖 ∈ (0..^(♯‘𝑋))) → ((((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛)))
3635ralbidv 3161 . . . . . . 7 ((((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) ∧ 𝑖 ∈ (0..^(♯‘𝑋))) → (∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ ∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛)))
3736ralbidva 3159 . . . . . 6 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ ∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛)))
38 eqidd 2738 . . . . . . . . . 10 ((𝑋 ∈ Word 𝐵𝐶𝐵) → (♯‘𝑋) = (♯‘𝑋))
39 ccats1val2 14563 . . . . . . . . . . 11 ((𝑋 ∈ Word 𝐵𝐶𝐵 ∧ (♯‘𝑋) = (♯‘𝑋)) → ((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋)) = 𝐶)
4039fveq1d 6844 . . . . . . . . . 10 ((𝑋 ∈ Word 𝐵𝐶𝐵 ∧ (♯‘𝑋) = (♯‘𝑋)) → (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (𝐶𝑛))
4138, 40mpd3an3 1465 . . . . . . . . 9 ((𝑋 ∈ Word 𝐵𝐶𝐵) → (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (𝐶𝑛))
42413ad2ant1 1134 . . . . . . . 8 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (𝐶𝑛))
43 ccats1val2 14563 . . . . . . . . . . 11 ((𝑌 ∈ Word 𝑃𝑅𝑃 ∧ (♯‘𝑋) = (♯‘𝑌)) → ((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋)) = 𝑅)
4443fveq1d 6844 . . . . . . . . . 10 ((𝑌 ∈ Word 𝑃𝑅𝑃 ∧ (♯‘𝑋) = (♯‘𝑌)) → (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛) = (𝑅𝑛))
45443expa 1119 . . . . . . . . 9 (((𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛) = (𝑅𝑛))
46453adant1 1131 . . . . . . . 8 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛) = (𝑅𝑛))
4742, 46eqeq12d 2753 . . . . . . 7 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → ((((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛) ↔ (𝐶𝑛) = (𝑅𝑛)))
4847ralbidv 3161 . . . . . 6 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛) ↔ ∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛)))
4937, 48anbi12d 633 . . . . 5 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ∧ ∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘(♯‘𝑋))‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘(♯‘𝑋))‘𝑛)) ↔ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ ∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛))))
5011, 21, 493bitrd 305 . . . 4 (((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)) → (∀𝑖 ∈ (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩)))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ ∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛))))
5150ad2antlr 728 . . 3 ((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛))) → (∀𝑖 ∈ (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩)))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) ↔ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ ∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛))))
52 pm3.35 803 . . . . . . 7 ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛))) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛))
53 fveq2 6842 . . . . . . . . . . 11 (𝑛 = 𝑗 → ((𝑆 Σg 𝑋)‘𝑛) = ((𝑆 Σg 𝑋)‘𝑗))
54 fveq2 6842 . . . . . . . . . . 11 (𝑛 = 𝑗 → ((𝑍 Σg 𝑌)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑗))
5553, 54eqeq12d 2753 . . . . . . . . . 10 (𝑛 = 𝑗 → (((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛) ↔ ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)))
5655cbvralvw 3216 . . . . . . . . 9 (∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛) ↔ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗))
57 simp-4l 783 . . . . . . . . . . . . . . 15 (((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) → 𝑁 ∈ Fin)
58 simp-4r 784 . . . . . . . . . . . . . . 15 (((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) → 𝑀 ∈ Fin)
59 simpr 484 . . . . . . . . . . . . . . 15 (((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) → 𝑛𝐼)
6057, 58, 593jca 1129 . . . . . . . . . . . . . 14 (((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) → (𝑁 ∈ Fin ∧ 𝑀 ∈ Fin ∧ 𝑛𝐼))
6160adantr 480 . . . . . . . . . . . . 13 ((((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) ∧ (𝐶𝑛) = (𝑅𝑛)) → (𝑁 ∈ Fin ∧ 𝑀 ∈ Fin ∧ 𝑛𝐼))
62 simp-4r 784 . . . . . . . . . . . . 13 ((((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) ∧ (𝐶𝑛) = (𝑅𝑛)) → ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌)))
63 simplr 769 . . . . . . . . . . . . . 14 (((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) → ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗))
6463anim1i 616 . . . . . . . . . . . . 13 ((((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) ∧ (𝐶𝑛) = (𝑅𝑛)) → (∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗) ∧ (𝐶𝑛) = (𝑅𝑛)))
65 gsmsymgrfix.s . . . . . . . . . . . . . . 15 𝑆 = (SymGrp‘𝑁)
66 gsmsymgrfix.b . . . . . . . . . . . . . . 15 𝐵 = (Base‘𝑆)
67 gsmsymgreq.z . . . . . . . . . . . . . . 15 𝑍 = (SymGrp‘𝑀)
68 gsmsymgreq.p . . . . . . . . . . . . . . 15 𝑃 = (Base‘𝑍)
69 gsmsymgreq.i . . . . . . . . . . . . . . 15 𝐼 = (𝑁𝑀)
7065, 66, 67, 68, 69gsmsymgreqlem1 19371 . . . . . . . . . . . . . 14 (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin ∧ 𝑛𝐼) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → ((∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗) ∧ (𝐶𝑛) = (𝑅𝑛)) → ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛)))
7170imp 406 . . . . . . . . . . . . 13 ((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin ∧ 𝑛𝐼) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ (∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗) ∧ (𝐶𝑛) = (𝑅𝑛))) → ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))
7261, 62, 64, 71syl21anc 838 . . . . . . . . . . . 12 ((((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) ∧ (𝐶𝑛) = (𝑅𝑛)) → ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))
7372ex 412 . . . . . . . . . . 11 (((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) ∧ 𝑛𝐼) → ((𝐶𝑛) = (𝑅𝑛) → ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛)))
7473ralimdva 3150 . . . . . . . . . 10 ((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ ∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗)) → (∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛)))
7574expcom 413 . . . . . . . . 9 (∀𝑗𝐼 ((𝑆 Σg 𝑋)‘𝑗) = ((𝑍 Σg 𝑌)‘𝑗) → (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → (∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
7656, 75sylbi 217 . . . . . . . 8 (∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛) → (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → (∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
7776com23 86 . . . . . . 7 (∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛) → (∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛) → (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
7852, 77syl 17 . . . . . 6 ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛))) → (∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛) → (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
7978impancom 451 . . . . 5 ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ ∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛)) → ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛)) → (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
8079com13 88 . . . 4 (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛)) → ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ ∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛)) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
8180imp 406 . . 3 ((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛))) → ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) ∧ ∀𝑛𝐼 (𝐶𝑛) = (𝑅𝑛)) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛)))
8251, 81sylbid 240 . 2 ((((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) ∧ (∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛))) → (∀𝑖 ∈ (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩)))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛)))
8382ex 412 1 (((𝑁 ∈ Fin ∧ 𝑀 ∈ Fin) ∧ ((𝑋 ∈ Word 𝐵𝐶𝐵) ∧ (𝑌 ∈ Word 𝑃𝑅𝑃) ∧ (♯‘𝑋) = (♯‘𝑌))) → ((∀𝑖 ∈ (0..^(♯‘𝑋))∀𝑛𝐼 ((𝑋𝑖)‘𝑛) = ((𝑌𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg 𝑋)‘𝑛) = ((𝑍 Σg 𝑌)‘𝑛)) → (∀𝑖 ∈ (0..^(♯‘(𝑋 ++ ⟨“𝐶”⟩)))∀𝑛𝐼 (((𝑋 ++ ⟨“𝐶”⟩)‘𝑖)‘𝑛) = (((𝑌 ++ ⟨“𝑅”⟩)‘𝑖)‘𝑛) → ∀𝑛𝐼 ((𝑆 Σg (𝑋 ++ ⟨“𝐶”⟩))‘𝑛) = ((𝑍 Σg (𝑌 ++ ⟨“𝑅”⟩))‘𝑛))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1087   = wceq 1542  wcel 2114  wral 3052  cun 3901  cin 3902  {csn 4582  cfv 6500  (class class class)co 7368  Fincfn 8895  0cc0 11038  1c1 11039   + caddc 11041  0cn0 12413  cuz 12763  ..^cfzo 13582  chash 14265  Word cword 14448   ++ cconcat 14505  ⟨“cs1 14531  Basecbs 17148   Σg cgsu 17372  SymGrpcsymg 19310
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 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  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 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-er 8645  df-map 8777  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-card 9863  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-nn 12158  df-2 12220  df-3 12221  df-4 12222  df-5 12223  df-6 12224  df-7 12225  df-8 12226  df-9 12227  df-n0 12414  df-z 12501  df-uz 12764  df-fz 13436  df-fzo 13583  df-seq 13937  df-hash 14266  df-word 14449  df-concat 14506  df-s1 14532  df-struct 17086  df-sets 17103  df-slot 17121  df-ndx 17133  df-base 17149  df-ress 17170  df-plusg 17202  df-tset 17208  df-0g 17373  df-gsum 17374  df-mgm 18577  df-sgrp 18656  df-mnd 18672  df-submnd 18721  df-efmnd 18806  df-grp 18878  df-symg 19311
This theorem is referenced by:  gsmsymgreq  19373
  Copyright terms: Public domain W3C validator