Proof of Theorem gpgprismgr4cycllem8
| Step | Hyp | Ref
| Expression |
| 1 | | gpgprismgr4cycl.f |
. . 3
⊢ 𝐹 = 〈“{〈0,
0〉, 〈0, 1〉} {〈0, 1〉, 〈1, 1〉} {〈1,
1〉, 〈1, 0〉} {〈1, 0〉, 〈0,
0〉}”〉 |
| 2 | | df-s4 14807 |
. . 3
⊢
〈“{〈0, 0〉, 〈0, 1〉} {〈0, 1〉,
〈1, 1〉} {〈1, 1〉, 〈1, 0〉} {〈1, 0〉,
〈0, 0〉}”〉 = (〈“{〈0, 0〉, 〈0,
1〉} {〈0, 1〉, 〈1, 1〉} {〈1, 1〉, 〈1,
0〉}”〉 ++ 〈“{〈1, 0〉, 〈0,
0〉}”〉) |
| 3 | 1, 2 | eqtri 2764 |
. 2
⊢ 𝐹 = (〈“{〈0,
0〉, 〈0, 1〉} {〈0, 1〉, 〈1, 1〉} {〈1,
1〉, 〈1, 0〉}”〉 ++ 〈“{〈1, 0〉,
〈0, 0〉}”〉) |
| 4 | | gpgprismgriedgdmss 48557 |
. . . 4
⊢ (𝑁 ∈
(ℤ≥‘3) → ({{〈0, 0〉, 〈0, 1〉},
{〈0, 0〉, 〈1, 0〉}} ∪ {{〈1, 1〉, 〈0,
1〉}, {〈1, 1〉, 〈1, 0〉}}) ⊆ dom (iEdg‘(𝑁 gPetersenGr
1))) |
| 5 | | unss 4122 |
. . . . 5
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {{〈1, 1〉,
〈0, 1〉}, {〈1, 1〉, 〈1, 0〉}} ⊆ dom
(iEdg‘(𝑁 gPetersenGr
1))) ↔ ({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ∪ {{〈1, 1〉, 〈0, 1〉}, {〈1, 1〉,
〈1, 0〉}}) ⊆ dom (iEdg‘(𝑁 gPetersenGr 1))) |
| 6 | | prex 5370 |
. . . . . . . 8
⊢ {〈0,
0〉, 〈0, 1〉} ∈ V |
| 7 | | prex 5370 |
. . . . . . . 8
⊢ {〈0,
0〉, 〈1, 0〉} ∈ V |
| 8 | 6, 7 | prss 4754 |
. . . . . . 7
⊢
(({〈0, 0〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {〈0,
0〉, 〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) ↔ {{〈0, 0〉,
〈0, 1〉}, {〈0, 0〉, 〈1, 0〉}} ⊆ dom
(iEdg‘(𝑁 gPetersenGr
1))) |
| 9 | | gpgprismgr4cycl.g |
. . . . . . . . . . . 12
⊢ 𝐺 = (𝑁 gPetersenGr 1) |
| 10 | 9 | eqcomi 2750 |
. . . . . . . . . . 11
⊢ (𝑁 gPetersenGr 1) = 𝐺 |
| 11 | 10 | fveq2i 6834 |
. . . . . . . . . 10
⊢
(iEdg‘(𝑁
gPetersenGr 1)) = (iEdg‘𝐺) |
| 12 | 11 | dmeqi 5853 |
. . . . . . . . 9
⊢ dom
(iEdg‘(𝑁 gPetersenGr
1)) = dom (iEdg‘𝐺) |
| 13 | 12 | eleq2i 2833 |
. . . . . . . 8
⊢
({〈0, 0〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ↔
{〈0, 0〉, 〈0, 1〉} ∈ dom (iEdg‘𝐺)) |
| 14 | 13 | birani 505 |
. . . . . . 7
⊢
(({〈0, 0〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {〈0,
0〉, 〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) → {〈0, 0〉,
〈0, 1〉} ∈ dom (iEdg‘𝐺)) |
| 15 | 8, 14 | sylbir 237 |
. . . . . 6
⊢
({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈0, 0〉,
〈0, 1〉} ∈ dom (iEdg‘𝐺)) |
| 16 | 15 | adantr 482 |
. . . . 5
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {{〈1, 1〉,
〈0, 1〉}, {〈1, 1〉, 〈1, 0〉}} ⊆ dom
(iEdg‘(𝑁 gPetersenGr
1))) → {〈0, 0〉, 〈0, 1〉} ∈ dom (iEdg‘𝐺)) |
| 17 | 5, 16 | sylbir 237 |
. . . 4
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ∪ {{〈1, 1〉, 〈0, 1〉}, {〈1, 1〉,
〈1, 0〉}}) ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈0, 0〉,
〈0, 1〉} ∈ dom (iEdg‘𝐺)) |
| 18 | 4, 17 | syl 17 |
. . 3
⊢ (𝑁 ∈
(ℤ≥‘3) → {〈0, 0〉, 〈0, 1〉}
∈ dom (iEdg‘𝐺)) |
| 19 | | prex 5370 |
. . . . . . . 8
⊢ {〈1,
1〉, 〈0, 1〉} ∈ V |
| 20 | | prex 5370 |
. . . . . . . 8
⊢ {〈1,
1〉, 〈1, 0〉} ∈ V |
| 21 | 19, 20 | prss 4754 |
. . . . . . 7
⊢
(({〈1, 1〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {〈1,
1〉, 〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) ↔ {{〈1, 1〉,
〈0, 1〉}, {〈1, 1〉, 〈1, 0〉}} ⊆ dom
(iEdg‘(𝑁 gPetersenGr
1))) |
| 22 | | prcom 4667 |
. . . . . . . . 9
⊢ {〈1,
1〉, 〈0, 1〉} = {〈0, 1〉, 〈1,
1〉} |
| 23 | 22, 12 | eleq12i 2834 |
. . . . . . . 8
⊢
({〈1, 1〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ↔
{〈0, 1〉, 〈1, 1〉} ∈ dom (iEdg‘𝐺)) |
| 24 | 23 | birani 505 |
. . . . . . 7
⊢
(({〈1, 1〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {〈1,
1〉, 〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) → {〈0, 1〉,
〈1, 1〉} ∈ dom (iEdg‘𝐺)) |
| 25 | 21, 24 | sylbir 237 |
. . . . . 6
⊢
({{〈1, 1〉, 〈0, 1〉}, {〈1, 1〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈0, 1〉,
〈1, 1〉} ∈ dom (iEdg‘𝐺)) |
| 26 | 25 | adantl 483 |
. . . . 5
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {{〈1, 1〉,
〈0, 1〉}, {〈1, 1〉, 〈1, 0〉}} ⊆ dom
(iEdg‘(𝑁 gPetersenGr
1))) → {〈0, 1〉, 〈1, 1〉} ∈ dom (iEdg‘𝐺)) |
| 27 | 5, 26 | sylbir 237 |
. . . 4
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ∪ {{〈1, 1〉, 〈0, 1〉}, {〈1, 1〉,
〈1, 0〉}}) ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈0, 1〉,
〈1, 1〉} ∈ dom (iEdg‘𝐺)) |
| 28 | 4, 27 | syl 17 |
. . 3
⊢ (𝑁 ∈
(ℤ≥‘3) → {〈0, 1〉, 〈1, 1〉}
∈ dom (iEdg‘𝐺)) |
| 29 | 12 | eleq2i 2833 |
. . . . . . . 8
⊢
({〈1, 1〉, 〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ↔
{〈1, 1〉, 〈1, 0〉} ∈ dom (iEdg‘𝐺)) |
| 30 | 29 | bilani 506 |
. . . . . . 7
⊢
(({〈1, 1〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {〈1,
1〉, 〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) → {〈1, 1〉,
〈1, 0〉} ∈ dom (iEdg‘𝐺)) |
| 31 | 21, 30 | sylbir 237 |
. . . . . 6
⊢
({{〈1, 1〉, 〈0, 1〉}, {〈1, 1〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈1, 1〉,
〈1, 0〉} ∈ dom (iEdg‘𝐺)) |
| 32 | 31 | adantl 483 |
. . . . 5
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {{〈1, 1〉,
〈0, 1〉}, {〈1, 1〉, 〈1, 0〉}} ⊆ dom
(iEdg‘(𝑁 gPetersenGr
1))) → {〈1, 1〉, 〈1, 0〉} ∈ dom (iEdg‘𝐺)) |
| 33 | 5, 32 | sylbir 237 |
. . . 4
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ∪ {{〈1, 1〉, 〈0, 1〉}, {〈1, 1〉,
〈1, 0〉}}) ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈1, 1〉,
〈1, 0〉} ∈ dom (iEdg‘𝐺)) |
| 34 | 4, 33 | syl 17 |
. . 3
⊢ (𝑁 ∈
(ℤ≥‘3) → {〈1, 1〉, 〈1, 0〉}
∈ dom (iEdg‘𝐺)) |
| 35 | 18, 28, 34 | s3cld 14829 |
. 2
⊢ (𝑁 ∈
(ℤ≥‘3) → 〈“{〈0, 0〉,
〈0, 1〉} {〈0, 1〉, 〈1, 1〉} {〈1, 1〉,
〈1, 0〉}”〉 ∈ Word dom (iEdg‘𝐺)) |
| 36 | | simpr 486 |
. . . . . . 7
⊢
(({〈0, 0〉, 〈0, 1〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {〈0,
0〉, 〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) → {〈0, 0〉,
〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) |
| 37 | 8, 36 | sylbir 237 |
. . . . . 6
⊢
({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈0, 0〉,
〈1, 0〉} ∈ dom (iEdg‘(𝑁 gPetersenGr 1))) |
| 38 | | prcom 4667 |
. . . . . 6
⊢ {〈1,
0〉, 〈0, 0〉} = {〈0, 0〉, 〈1,
0〉} |
| 39 | 9 | fveq2i 6834 |
. . . . . . 7
⊢
(iEdg‘𝐺) =
(iEdg‘(𝑁 gPetersenGr
1)) |
| 40 | 39 | dmeqi 5853 |
. . . . . 6
⊢ dom
(iEdg‘𝐺) = dom
(iEdg‘(𝑁 gPetersenGr
1)) |
| 41 | 37, 38, 40 | 3eltr4g 2858 |
. . . . 5
⊢
({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈1, 0〉,
〈0, 0〉} ∈ dom (iEdg‘𝐺)) |
| 42 | 41 | adantr 482 |
. . . 4
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) ∧ {{〈1, 1〉,
〈0, 1〉}, {〈1, 1〉, 〈1, 0〉}} ⊆ dom
(iEdg‘(𝑁 gPetersenGr
1))) → {〈1, 0〉, 〈0, 0〉} ∈ dom (iEdg‘𝐺)) |
| 43 | 5, 42 | sylbir 237 |
. . 3
⊢
(({{〈0, 0〉, 〈0, 1〉}, {〈0, 0〉, 〈1,
0〉}} ∪ {{〈1, 1〉, 〈0, 1〉}, {〈1, 1〉,
〈1, 0〉}}) ⊆ dom (iEdg‘(𝑁 gPetersenGr 1)) → {〈1, 0〉,
〈0, 0〉} ∈ dom (iEdg‘𝐺)) |
| 44 | 4, 43 | syl 17 |
. 2
⊢ (𝑁 ∈
(ℤ≥‘3) → {〈1, 0〉, 〈0, 0〉}
∈ dom (iEdg‘𝐺)) |
| 45 | 3, 35, 44 | cats1cld 14812 |
1
⊢ (𝑁 ∈
(ℤ≥‘3) → 𝐹 ∈ Word dom (iEdg‘𝐺)) |