Metamath Proof Explorer


Theorem gpgprismgr4cycllem9

Description: Lemma 9 for gpgprismgr4cycl0 . (Contributed by AV, 3-Nov-2025)

Ref Expression
Hypotheses gpgprismgr4cycl.p ⊢ P = ⟨“ 0 0 0 1 1 1 1 0 0 0 ”⟩
gpgprismgr4cycl.f ⊢ F = ⟨“ 0 0 0 1 0 1 1 1 1 1 1 0 1 0 0 0 ”⟩
gpgprismgr4cycl.g No typesetting found for |- G = ( N gPetersenGr 1 ) with typecode |-
Assertion gpgprismgr4cycllem9 ⊢ N ∈ ℤ ≥ 3 → P : 0 … F ⟶ Vtx ⁡ G

Proof

Step Hyp Ref Expression
1 gpgprismgr4cycl.p ⊢ P = ⟨“ 0 0 0 1 1 1 1 0 0 0 ”⟩
2 gpgprismgr4cycl.f ⊢ F = ⟨“ 0 0 0 1 0 1 1 1 1 1 1 0 1 0 0 0 ”⟩
3 gpgprismgr4cycl.g Could not format G = ( N gPetersenGr 1 ) : No typesetting found for |- G = ( N gPetersenGr 1 ) with typecode |-
4 eluz3nn ⊢ N ∈ ℤ ≥ 3 → N ∈ ℕ
5 lbfzo0 ⊢ 0 ∈ 0 ..^ N ↔ N ∈ ℕ
6 4 5 sylibr ⊢ N ∈ ℤ ≥ 3 → 0 ∈ 0 ..^ N
7 1nn0 ⊢ 1 ∈ ℕ 0
8 7 a1i ⊢ N ∈ ℤ ≥ 3 → 1 ∈ ℕ 0
9 eluzelz ⊢ N ∈ ℤ ≥ 3 → N ∈ ℤ
10 uzuzle23 ⊢ N ∈ ℤ ≥ 3 → N ∈ ℤ ≥ 2
11 eluz2gt1 ⊢ N ∈ ℤ ≥ 2 → 1 < N
12 10 11 syl ⊢ N ∈ ℤ ≥ 3 → 1 < N
13 elfzo0z ⊢ 1 ∈ 0 ..^ N ↔ 1 ∈ ℕ 0 ∧ N ∈ ℤ ∧ 1 < N
14 8 9 12 13 syl3anbrc ⊢ N ∈ ℤ ≥ 3 → 1 ∈ 0 ..^ N
15 0elpr01 ⊢ 0 ∈ 0 1
16 15 a1i ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 0 ∈ 0 1
17 simpl ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 0 ∈ 0 ..^ N
18 16 17 opelxpd ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 0 0 ∈ 0 1 × 0 ..^ N
19 simpr ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 1 ∈ 0 ..^ N
20 16 19 opelxpd ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 0 1 ∈ 0 1 × 0 ..^ N
21 1elpr01 ⊢ 1 ∈ 0 1
22 21 a1i ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 1 ∈ 0 1
23 22 19 opelxpd ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 1 1 ∈ 0 1 × 0 ..^ N
24 22 17 opelxpd ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → 1 0 ∈ 0 1 × 0 ..^ N
25 18 20 23 24 18 s5cld ⊢ 0 ∈ 0 ..^ N ∧ 1 ∈ 0 ..^ N → ⟨“ 0 0 0 1 1 1 1 0 0 0 ”⟩ ∈ Word 0 1 × 0 ..^ N
26 6 14 25 syl2anc ⊢ N ∈ ℤ ≥ 3 → ⟨“ 0 0 0 1 1 1 1 0 0 0 ”⟩ ∈ Word 0 1 × 0 ..^ N
27 3 fveq2i Could not format ( Vtx ` G ) = ( Vtx ` ( N gPetersenGr 1 ) ) : No typesetting found for |- ( Vtx ` G ) = ( Vtx ` ( N gPetersenGr 1 ) ) with typecode |-
28 1elfzo1ceilhalf1 ⊢ N ∈ ℤ ≥ 3 → 1 ∈ 1 ..^ N 2
29 eqid ⊢ 1 ..^ N 2 = 1 ..^ N 2
30 eqid ⊢ 0 ..^ N = 0 ..^ N
31 29 30 gpgvtx Could not format ( ( N e. NN /\ 1 e. ( 1 ..^ ( |^ ` ( N / 2 ) ) ) ) -> ( Vtx ` ( N gPetersenGr 1 ) ) = ( { 0 , 1 } X. ( 0 ..^ N ) ) ) : No typesetting found for |- ( ( N e. NN /\ 1 e. ( 1 ..^ ( |^ ` ( N / 2 ) ) ) ) -> ( Vtx ` ( N gPetersenGr 1 ) ) = ( { 0 , 1 } X. ( 0 ..^ N ) ) ) with typecode |-
32 4 28 31 syl2anc Could not format ( N e. ( ZZ>= ` 3 ) -> ( Vtx ` ( N gPetersenGr 1 ) ) = ( { 0 , 1 } X. ( 0 ..^ N ) ) ) : No typesetting found for |- ( N e. ( ZZ>= ` 3 ) -> ( Vtx ` ( N gPetersenGr 1 ) ) = ( { 0 , 1 } X. ( 0 ..^ N ) ) ) with typecode |-
33 27 32 eqtrid ⊢ N ∈ ℤ ≥ 3 → Vtx ⁡ G = 0 1 × 0 ..^ N
34 wrdeq ⊢ Vtx ⁡ G = 0 1 × 0 ..^ N → Word Vtx ⁡ G = Word 0 1 × 0 ..^ N
35 33 34 syl ⊢ N ∈ ℤ ≥ 3 → Word Vtx ⁡ G = Word 0 1 × 0 ..^ N
36 26 35 eleqtrrd ⊢ N ∈ ℤ ≥ 3 → ⟨“ 0 0 0 1 1 1 1 0 0 0 ”⟩ ∈ Word Vtx ⁡ G
37 1 36 eqeltrid ⊢ N ∈ ℤ ≥ 3 → P ∈ Word Vtx ⁡ G
38 wrdf ⊢ P ∈ Word Vtx ⁡ G → P : 0 ..^ P ⟶ Vtx ⁡ G
39 37 38 syl ⊢ N ∈ ℤ ≥ 3 → P : 0 ..^ P ⟶ Vtx ⁡ G
40 4z ⊢ 4 ∈ ℤ
41 fzval3 ⊢ 4 ∈ ℤ → 0 … 4 = 0 ..^ 4 + 1
42 40 41 ax-mp ⊢ 0 … 4 = 0 ..^ 4 + 1
43 2 gpgprismgr4cycllem1 ⊢ F = 4
44 43 oveq2i ⊢ 0 … F = 0 … 4
45 1 gpgprismgr4cycllem4 ⊢ P = 5
46 df-5 ⊢ 5 = 4 + 1
47 45 46 eqtri ⊢ P = 4 + 1
48 47 oveq2i ⊢ 0 ..^ P = 0 ..^ 4 + 1
49 42 44 48 3eqtr4i ⊢ 0 … F = 0 ..^ P
50 49 a1i ⊢ N ∈ ℤ ≥ 3 → 0 … F = 0 ..^ P
51 50 feq2d ⊢ N ∈ ℤ ≥ 3 → P : 0 … F ⟶ Vtx ⁡ G ↔ P : 0 ..^ P ⟶ Vtx ⁡ G
52 39 51 mpbird ⊢ N ∈ ℤ ≥ 3 → P : 0 … F ⟶ Vtx ⁡ G