Step | Hyp | Ref
| Expression |
1 | | psgnfix.t |
. . . . . . . . . 10
⊢ 𝑇 = ran (pmTrsp‘(𝑁 ∖ {𝐾})) |
2 | | psgnfix.r |
. . . . . . . . . 10
⊢ 𝑅 = ran (pmTrsp‘𝑁) |
3 | 1, 2 | pmtrdifwrdel2 17729 |
. . . . . . . . 9
⊢ (𝐾 ∈ 𝑁 → ∀𝑤 ∈ Word 𝑇∃𝑟 ∈ Word 𝑅((#‘𝑤) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑤))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) |
4 | | fveq2 6103 |
. . . . . . . . . . . . 13
⊢ (𝑤 = 𝑊 → (#‘𝑤) = (#‘𝑊)) |
5 | 4 | eqeq1d 2612 |
. . . . . . . . . . . 12
⊢ (𝑤 = 𝑊 → ((#‘𝑤) = (#‘𝑟) ↔ (#‘𝑊) = (#‘𝑟))) |
6 | 4 | oveq2d 6565 |
. . . . . . . . . . . . 13
⊢ (𝑤 = 𝑊 → (0..^(#‘𝑤)) = (0..^(#‘𝑊))) |
7 | | fveq1 6102 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑤 = 𝑊 → (𝑤‘𝑖) = (𝑊‘𝑖)) |
8 | 7 | fveq1d 6105 |
. . . . . . . . . . . . . . . 16
⊢ (𝑤 = 𝑊 → ((𝑤‘𝑖)‘𝑛) = ((𝑊‘𝑖)‘𝑛)) |
9 | 8 | eqeq1d 2612 |
. . . . . . . . . . . . . . 15
⊢ (𝑤 = 𝑊 → (((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛) ↔ ((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) |
10 | 9 | ralbidv 2969 |
. . . . . . . . . . . . . 14
⊢ (𝑤 = 𝑊 → (∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛) ↔ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) |
11 | 10 | anbi2d 736 |
. . . . . . . . . . . . 13
⊢ (𝑤 = 𝑊 → ((((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)) ↔ (((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) |
12 | 6, 11 | raleqbidv 3129 |
. . . . . . . . . . . 12
⊢ (𝑤 = 𝑊 → (∀𝑖 ∈ (0..^(#‘𝑤))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)) ↔ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) |
13 | 5, 12 | anbi12d 743 |
. . . . . . . . . . 11
⊢ (𝑤 = 𝑊 → (((#‘𝑤) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑤))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) ↔ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
14 | 13 | rexbidv 3034 |
. . . . . . . . . 10
⊢ (𝑤 = 𝑊 → (∃𝑟 ∈ Word 𝑅((#‘𝑤) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑤))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) ↔ ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
15 | 14 | rspccv 3279 |
. . . . . . . . 9
⊢
(∀𝑤 ∈
Word 𝑇∃𝑟 ∈ Word 𝑅((#‘𝑤) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑤))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑤‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) → (𝑊 ∈ Word 𝑇 → ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
16 | 3, 15 | syl 17 |
. . . . . . . 8
⊢ (𝐾 ∈ 𝑁 → (𝑊 ∈ Word 𝑇 → ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
17 | 16 | com12 32 |
. . . . . . 7
⊢ (𝑊 ∈ Word 𝑇 → (𝐾 ∈ 𝑁 → ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
18 | 17 | 3ad2ant1 1075 |
. . . . . 6
⊢ ((𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅) → (𝐾 ∈ 𝑁 → ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
19 | 18 | com12 32 |
. . . . 5
⊢ (𝐾 ∈ 𝑁 → ((𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅) → ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
20 | 19 | ad2antlr 759 |
. . . 4
⊢ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → ((𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅) → ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))))) |
21 | 20 | imp 444 |
. . 3
⊢ ((((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅)) → ∃𝑟 ∈ Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) |
22 | | oveq2 6557 |
. . . . . . . . 9
⊢
((#‘𝑊) =
(#‘𝑟) →
(-1↑(#‘𝑊)) =
(-1↑(#‘𝑟))) |
23 | 22 | adantr 480 |
. . . . . . . 8
⊢
(((#‘𝑊) =
(#‘𝑟) ∧
∀𝑖 ∈
(0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) → (-1↑(#‘𝑊)) = (-1↑(#‘𝑟))) |
24 | 23 | ad3antlr 763 |
. . . . . . 7
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) →
(-1↑(#‘𝑊)) =
(-1↑(#‘𝑟))) |
25 | | psgnfix.z |
. . . . . . . 8
⊢ 𝑍 = (SymGrp‘𝑁) |
26 | | simplll 794 |
. . . . . . . . 9
⊢ ((((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅)) → 𝑁 ∈ Fin) |
27 | 26 | ad2antlr 759 |
. . . . . . . 8
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → 𝑁 ∈ Fin) |
28 | | simplll 794 |
. . . . . . . 8
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → 𝑟 ∈ Word 𝑅) |
29 | | simprr3 1104 |
. . . . . . . . 9
⊢ (((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) → 𝑈 ∈ Word 𝑅) |
30 | 29 | adantr 480 |
. . . . . . . 8
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → 𝑈 ∈ Word 𝑅) |
31 | | simplrl 796 |
. . . . . . . . . 10
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → ((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾})) |
32 | | 3simpa 1051 |
. . . . . . . . . . . 12
⊢ ((𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅) → (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊))) |
33 | 32 | adantl 481 |
. . . . . . . . . . 11
⊢ ((((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅)) → (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊))) |
34 | 33 | ad2antlr 759 |
. . . . . . . . . 10
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊))) |
35 | | simplrl 796 |
. . . . . . . . . . 11
⊢ (((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) → (#‘𝑊) = (#‘𝑟)) |
36 | 35 | adantr 480 |
. . . . . . . . . 10
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → (#‘𝑊) = (#‘𝑟)) |
37 | | simplrr 797 |
. . . . . . . . . . 11
⊢ (((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) → ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) |
38 | 37 | adantr 480 |
. . . . . . . . . 10
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) |
39 | | psgnfix.p |
. . . . . . . . . . . . 13
⊢ 𝑃 =
(Base‘(SymGrp‘𝑁)) |
40 | | psgnfix.s |
. . . . . . . . . . . . 13
⊢ 𝑆 = (SymGrp‘(𝑁 ∖ {𝐾})) |
41 | 39, 1, 40, 25, 2 | psgndiflemB 19765 |
. . . . . . . . . . . 12
⊢ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → ((𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊)) → ((𝑟 ∈ Word 𝑅 ∧ (#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) → 𝑄 = (𝑍 Σg 𝑟)))) |
42 | 41 | imp31 447 |
. . . . . . . . . . 11
⊢
(((((𝑁 ∈ Fin
∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊))) ∧ (𝑟 ∈ Word 𝑅 ∧ (#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) → 𝑄 = (𝑍 Σg 𝑟)) |
43 | 42 | eqcomd 2616 |
. . . . . . . . . 10
⊢
(((((𝑁 ∈ Fin
∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊))) ∧ (𝑟 ∈ Word 𝑅 ∧ (#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) → (𝑍 Σg 𝑟) = 𝑄) |
44 | 31, 34, 28, 36, 38, 43 | syl23anc 1325 |
. . . . . . . . 9
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → (𝑍 Σg 𝑟) = 𝑄) |
45 | | id 22 |
. . . . . . . . . . 11
⊢ (𝑄 = ((SymGrp‘𝑁) Σg
𝑈) → 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) |
46 | 25 | eqcomi 2619 |
. . . . . . . . . . . 12
⊢
(SymGrp‘𝑁) =
𝑍 |
47 | 46 | oveq1i 6559 |
. . . . . . . . . . 11
⊢
((SymGrp‘𝑁)
Σg 𝑈) = (𝑍 Σg 𝑈) |
48 | 45, 47 | syl6eq 2660 |
. . . . . . . . . 10
⊢ (𝑄 = ((SymGrp‘𝑁) Σg
𝑈) → 𝑄 = (𝑍 Σg 𝑈)) |
49 | 48 | adantl 481 |
. . . . . . . . 9
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → 𝑄 = (𝑍 Σg 𝑈)) |
50 | 44, 49 | eqtrd 2644 |
. . . . . . . 8
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) → (𝑍 Σg 𝑟) = (𝑍 Σg 𝑈)) |
51 | 25, 2, 27, 28, 30, 50 | psgnuni 17742 |
. . . . . . 7
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) →
(-1↑(#‘𝑟)) =
(-1↑(#‘𝑈))) |
52 | 24, 51 | eqtrd 2644 |
. . . . . 6
⊢ ((((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) ∧ 𝑄 = ((SymGrp‘𝑁) Σg 𝑈)) →
(-1↑(#‘𝑊)) =
(-1↑(#‘𝑈))) |
53 | 52 | ex 449 |
. . . . 5
⊢ (((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) ∧ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅))) → (𝑄 = ((SymGrp‘𝑁) Σg 𝑈) → (-1↑(#‘𝑊)) = (-1↑(#‘𝑈)))) |
54 | 53 | ex 449 |
. . . 4
⊢ ((𝑟 ∈ Word 𝑅 ∧ ((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛)))) → ((((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅)) → (𝑄 = ((SymGrp‘𝑁) Σg 𝑈) → (-1↑(#‘𝑊)) = (-1↑(#‘𝑈))))) |
55 | 54 | rexlimiva 3010 |
. . 3
⊢
(∃𝑟 ∈
Word 𝑅((#‘𝑊) = (#‘𝑟) ∧ ∀𝑖 ∈ (0..^(#‘𝑊))(((𝑟‘𝑖)‘𝐾) = 𝐾 ∧ ∀𝑛 ∈ (𝑁 ∖ {𝐾})((𝑊‘𝑖)‘𝑛) = ((𝑟‘𝑖)‘𝑛))) → ((((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅)) → (𝑄 = ((SymGrp‘𝑁) Σg 𝑈) → (-1↑(#‘𝑊)) = (-1↑(#‘𝑈))))) |
56 | 21, 55 | mpcom 37 |
. 2
⊢ ((((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) ∧ (𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅)) → (𝑄 = ((SymGrp‘𝑁) Σg 𝑈) → (-1↑(#‘𝑊)) = (-1↑(#‘𝑈)))) |
57 | 56 | ex 449 |
1
⊢ (((𝑁 ∈ Fin ∧ 𝐾 ∈ 𝑁) ∧ 𝑄 ∈ {𝑞 ∈ 𝑃 ∣ (𝑞‘𝐾) = 𝐾}) → ((𝑊 ∈ Word 𝑇 ∧ (𝑄 ↾ (𝑁 ∖ {𝐾})) = (𝑆 Σg 𝑊) ∧ 𝑈 ∈ Word 𝑅) → (𝑄 = ((SymGrp‘𝑁) Σg 𝑈) → (-1↑(#‘𝑊)) = (-1↑(#‘𝑈))))) |