Metamath Proof Explorer


Theorem gpgprismgr4cycllem3

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

Ref Expression
Hypothesis gpgprismgr4cycllem1.f ⊢ 𝐹 = ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩
Assertion gpgprismgr4cycllem3 ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 ∈ ( 0 ..^ 4 ) ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )

Proof

Step Hyp Ref Expression
1 gpgprismgr4cycllem1.f ⊢ 𝐹 = ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩
2 fzo0to42pr ⊢ ( 0 ..^ 4 ) = ( { 0 , 1 } ∪ { 2 , 3 } )
3 2 eleq2i ⊢ ( 𝑋 ∈ ( 0 ..^ 4 ) ↔ 𝑋 ∈ ( { 0 , 1 } ∪ { 2 , 3 } ) )
4 elun ⊢ ( 𝑋 ∈ ( { 0 , 1 } ∪ { 2 , 3 } ) ↔ ( 𝑋 ∈ { 0 , 1 } ∨ 𝑋 ∈ { 2 , 3 } ) )
5 3 4 bitri ⊢ ( 𝑋 ∈ ( 0 ..^ 4 ) ↔ ( 𝑋 ∈ { 0 , 1 } ∨ 𝑋 ∈ { 2 , 3 } ) )
6 elpri ⊢ ( 𝑋 ∈ { 0 , 1 } → ( 𝑋 = 0 ∨ 𝑋 = 1 ) )
7 0elpr01 ⊢ 0 ∈ { 0 , 1 }
8 7 a1i ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 0 ∈ { 0 , 1 } )
9 eluz3nn ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 𝑁 ∈ ℕ )
10 lbfzo0 ⊢ ( 0 ∈ ( 0 ..^ 𝑁 ) ↔ 𝑁 ∈ ℕ )
11 9 10 sylibr ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 0 ∈ ( 0 ..^ 𝑁 ) )
12 8 11 opelxpd ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ⟨ 0 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
13 1nn0 ⊢ 1 ∈ ℕ0
14 13 a1i ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 1 ∈ ℕ0 )
15 uzuzle23 ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 𝑁 ∈ ( ℤ≥ ‘ 2 ) )
16 eluz2gt1 ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 2 ) → 1 < 𝑁 )
17 15 16 syl ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 1 < 𝑁 )
18 elfzo0 ⊢ ( 1 ∈ ( 0 ..^ 𝑁 ) ↔ ( 1 ∈ ℕ0 ∧ 𝑁 ∈ ℕ ∧ 1 < 𝑁 ) )
19 14 9 17 18 syl3anbrc ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 1 ∈ ( 0 ..^ 𝑁 ) )
20 8 19 opelxpd ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ⟨ 0 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
21 prelpwi ⊢ ( ( ⟨ 0 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ⟨ 0 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) → { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
22 12 20 21 syl2anc ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
23 opeq2 ⊢ ( 𝑥 = 0 → ⟨ 0 , 𝑥 ⟩ = ⟨ 0 , 0 ⟩ )
24 oveq1 ⊢ ( 𝑥 = 0 → ( 𝑥 + 1 ) = ( 0 + 1 ) )
25 24 oveq1d ⊢ ( 𝑥 = 0 → ( ( 𝑥 + 1 ) mod 𝑁 ) = ( ( 0 + 1 ) mod 𝑁 ) )
26 25 opeq2d ⊢ ( 𝑥 = 0 → ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ = ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ )
27 23 26 preq12d ⊢ ( 𝑥 = 0 → { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } )
28 27 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
29 opeq2 ⊢ ( 𝑥 = 0 → ⟨ 1 , 𝑥 ⟩ = ⟨ 1 , 0 ⟩ )
30 23 29 preq12d ⊢ ( 𝑥 = 0 → { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } )
31 30 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ) )
32 25 opeq2d ⊢ ( 𝑥 = 0 → ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ = ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ )
33 29 32 preq12d ⊢ ( 𝑥 = 0 → { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } )
34 33 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
35 28 31 34 3orbi123d ⊢ ( 𝑥 = 0 → ( ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) ) )
36 eluzelre ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 𝑁 ∈ ℝ )
37 1mod ⊢ ( ( 𝑁 ∈ ℝ ∧ 1 < 𝑁 ) → ( 1 mod 𝑁 ) = 1 )
38 36 17 37 syl2anc ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( 1 mod 𝑁 ) = 1 )
39 1e0p1 ⊢ 1 = ( 0 + 1 )
40 39 oveq1i ⊢ ( 1 mod 𝑁 ) = ( ( 0 + 1 ) mod 𝑁 )
41 38 40 eqtr3di ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 1 = ( ( 0 + 1 ) mod 𝑁 ) )
42 41 opeq2d ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ⟨ 0 , 1 ⟩ = ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ )
43 42 preq2d ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } )
44 43 3mix1d ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
45 35 11 44 rspcedvdw ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
46 22 45 jca ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
47 fveq2 ⊢ ( 𝑋 = 0 → ( 𝐹 ‘ 𝑋 ) = ( 𝐹 ‘ 0 ) )
48 1 fveq1i ⊢ ( 𝐹 ‘ 0 ) = ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 0 )
49 prex ⊢ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } ∈ V
50 s4fv0 ⊢ ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } ∈ V → ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 0 ) = { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } )
51 49 50 ax-mp ⊢ ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 0 ) = { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ }
52 48 51 eqtri ⊢ ( 𝐹 ‘ 0 ) = { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ }
53 47 52 eqtrdi ⊢ ( 𝑋 = 0 → ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } )
54 53 eleq1d ⊢ ( 𝑋 = 0 → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ↔ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) )
55 53 eqeq1d ⊢ ( 𝑋 = 0 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
56 53 eqeq1d ⊢ ( 𝑋 = 0 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ) )
57 53 eqeq1d ⊢ ( 𝑋 = 0 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
58 55 56 57 3orbi123d ⊢ ( 𝑋 = 0 → ( ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
59 58 rexbidv ⊢ ( 𝑋 = 0 → ( ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
60 54 59 anbi12d ⊢ ( 𝑋 = 0 → ( ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ↔ ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
61 46 60 imbitrrid ⊢ ( 𝑋 = 0 → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
62 1elpr01 ⊢ 1 ∈ { 0 , 1 }
63 62 a1i ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → 1 ∈ { 0 , 1 } )
64 63 19 opelxpd ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ⟨ 1 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
65 prelpwi ⊢ ( ( ⟨ 0 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ⟨ 1 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) → { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
66 20 64 65 syl2anc ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
67 opeq2 ⊢ ( 𝑥 = 1 → ⟨ 0 , 𝑥 ⟩ = ⟨ 0 , 1 ⟩ )
68 oveq1 ⊢ ( 𝑥 = 1 → ( 𝑥 + 1 ) = ( 1 + 1 ) )
69 68 oveq1d ⊢ ( 𝑥 = 1 → ( ( 𝑥 + 1 ) mod 𝑁 ) = ( ( 1 + 1 ) mod 𝑁 ) )
70 69 opeq2d ⊢ ( 𝑥 = 1 → ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ = ⟨ 0 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ )
71 67 70 preq12d ⊢ ( 𝑥 = 1 → { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 0 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } )
72 71 eqeq2d ⊢ ( 𝑥 = 1 → ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 0 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } ) )
73 opeq2 ⊢ ( 𝑥 = 1 → ⟨ 1 , 𝑥 ⟩ = ⟨ 1 , 1 ⟩ )
74 67 73 preq12d ⊢ ( 𝑥 = 1 → { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } )
75 74 eqeq2d ⊢ ( 𝑥 = 1 → ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ) )
76 69 opeq2d ⊢ ( 𝑥 = 1 → ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ = ⟨ 1 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ )
77 73 76 preq12d ⊢ ( 𝑥 = 1 → { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } = { ⟨ 1 , 1 ⟩ , ⟨ 1 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } )
78 77 eqeq2d ⊢ ( 𝑥 = 1 → ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 1 ⟩ , ⟨ 1 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } ) )
79 72 75 78 3orbi123d ⊢ ( 𝑥 = 1 → ( ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 0 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 1 ⟩ , ⟨ 1 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } ) ) )
80 eqid ⊢ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ }
81 80 3mix2i ⊢ ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 0 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 1 ⟩ , ⟨ 1 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } )
82 81 a1i ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 0 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 1 ⟩ , ⟨ 1 , ( ( 1 + 1 ) mod 𝑁 ) ⟩ } ) )
83 79 19 82 rspcedvdw ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
84 66 83 jca ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
85 fveq2 ⊢ ( 𝑋 = 1 → ( 𝐹 ‘ 𝑋 ) = ( 𝐹 ‘ 1 ) )
86 1 fveq1i ⊢ ( 𝐹 ‘ 1 ) = ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 1 )
87 prex ⊢ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∈ V
88 s4fv1 ⊢ ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∈ V → ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 1 ) = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } )
89 87 88 ax-mp ⊢ ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 1 ) = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ }
90 86 89 eqtri ⊢ ( 𝐹 ‘ 1 ) = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ }
91 85 90 eqtrdi ⊢ ( 𝑋 = 1 → ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } )
92 91 eleq1d ⊢ ( 𝑋 = 1 → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ↔ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) )
93 91 eqeq1d ⊢ ( 𝑋 = 1 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
94 91 eqeq1d ⊢ ( 𝑋 = 1 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ) )
95 91 eqeq1d ⊢ ( 𝑋 = 1 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
96 93 94 95 3orbi123d ⊢ ( 𝑋 = 1 → ( ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
97 96 rexbidv ⊢ ( 𝑋 = 1 → ( ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
98 92 97 anbi12d ⊢ ( 𝑋 = 1 → ( ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ↔ ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
99 84 98 imbitrrid ⊢ ( 𝑋 = 1 → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
100 61 99 jaoi ⊢ ( ( 𝑋 = 0 ∨ 𝑋 = 1 ) → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
101 6 100 syl ⊢ ( 𝑋 ∈ { 0 , 1 } → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
102 elpri ⊢ ( 𝑋 ∈ { 2 , 3 } → ( 𝑋 = 2 ∨ 𝑋 = 3 ) )
103 63 11 opelxpd ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ⟨ 1 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
104 64 103 jca ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ⟨ 1 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ⟨ 1 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) )
105 104 adantr ⊢ ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 = 2 ) → ( ⟨ 1 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ⟨ 1 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) )
106 prelpwi ⊢ ( ( ⟨ 1 , 1 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ⟨ 1 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) → { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
107 105 106 syl ⊢ ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 = 2 ) → { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
108 27 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
109 30 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ) )
110 33 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
111 108 109 110 3orbi123d ⊢ ( 𝑥 = 0 → ( ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) ) )
112 prcom ⊢ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , 1 ⟩ }
113 41 opeq2d ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ⟨ 1 , 1 ⟩ = ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ )
114 113 preq2d ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → { ⟨ 1 , 0 ⟩ , ⟨ 1 , 1 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } )
115 112 114 eqtrid ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } )
116 115 3mix3d ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
117 111 11 116 rspcedvdw ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
118 117 adantr ⊢ ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 = 2 ) → ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
119 107 118 jca ⊢ ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 = 2 ) → ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
120 fveq2 ⊢ ( 𝑋 = 2 → ( 𝐹 ‘ 𝑋 ) = ( 𝐹 ‘ 2 ) )
121 1 fveq1i ⊢ ( 𝐹 ‘ 2 ) = ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 2 )
122 prex ⊢ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ V
123 s4fv2 ⊢ ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ V → ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 2 ) = { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } )
124 122 123 ax-mp ⊢ ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 2 ) = { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ }
125 121 124 eqtri ⊢ ( 𝐹 ‘ 2 ) = { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ }
126 120 125 eqtrdi ⊢ ( 𝑋 = 2 → ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } )
127 126 eleq1d ⊢ ( 𝑋 = 2 → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ↔ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) )
128 126 eqeq1d ⊢ ( 𝑋 = 2 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
129 126 eqeq1d ⊢ ( 𝑋 = 2 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ) )
130 126 eqeq1d ⊢ ( 𝑋 = 2 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
131 128 129 130 3orbi123d ⊢ ( 𝑋 = 2 → ( ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
132 131 rexbidv ⊢ ( 𝑋 = 2 → ( ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
133 127 132 anbi12d ⊢ ( 𝑋 = 2 → ( ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ↔ ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
134 133 adantl ⊢ ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 = 2 ) → ( ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ↔ ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
135 119 134 mpbird ⊢ ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 = 2 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
136 135 expcom ⊢ ( 𝑋 = 2 → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
137 prelpwi ⊢ ( ( ⟨ 1 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ⟨ 0 , 0 ⟩ ∈ ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) → { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
138 103 12 137 syl2anc ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) )
139 27 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
140 30 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ) )
141 33 eqeq2d ⊢ ( 𝑥 = 0 → ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
142 139 140 141 3orbi123d ⊢ ( 𝑥 = 0 → ( ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) ) )
143 prcom ⊢ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ }
144 143 3mix2i ⊢ ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } )
145 144 a1i ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 0 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 0 ⟩ , ⟨ 1 , 0 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 0 ⟩ , ⟨ 1 , ( ( 0 + 1 ) mod 𝑁 ) ⟩ } ) )
146 142 11 145 rspcedvdw ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
147 138 146 jca ⊢ ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
148 fveq2 ⊢ ( 𝑋 = 3 → ( 𝐹 ‘ 𝑋 ) = ( 𝐹 ‘ 3 ) )
149 1 fveq1i ⊢ ( 𝐹 ‘ 3 ) = ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 3 )
150 prex ⊢ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ∈ V
151 s4fv3 ⊢ ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ∈ V → ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 3 ) = { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } )
152 150 151 ax-mp ⊢ ( ⟨“ { ⟨ 0 , 0 ⟩ , ⟨ 0 , 1 ⟩ } { ⟨ 0 , 1 ⟩ , ⟨ 1 , 1 ⟩ } { ⟨ 1 , 1 ⟩ , ⟨ 1 , 0 ⟩ } { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ”⟩ ‘ 3 ) = { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ }
153 149 152 eqtri ⊢ ( 𝐹 ‘ 3 ) = { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ }
154 148 153 eqtrdi ⊢ ( 𝑋 = 3 → ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } )
155 154 eleq1d ⊢ ( 𝑋 = 3 → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ↔ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ) )
156 154 eqeq1d ⊢ ( 𝑋 = 3 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
157 154 eqeq1d ⊢ ( 𝑋 = 3 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ↔ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ) )
158 154 eqeq1d ⊢ ( 𝑋 = 3 → ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ↔ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) )
159 156 157 158 3orbi123d ⊢ ( 𝑋 = 3 → ( ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
160 159 rexbidv ⊢ ( 𝑋 = 3 → ( ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ↔ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )
161 155 160 anbi12d ⊢ ( 𝑋 = 3 → ( ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ↔ ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ { ⟨ 1 , 0 ⟩ , ⟨ 0 , 0 ⟩ } = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
162 147 161 imbitrrid ⊢ ( 𝑋 = 3 → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
163 136 162 jaoi ⊢ ( ( 𝑋 = 2 ∨ 𝑋 = 3 ) → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
164 102 163 syl ⊢ ( 𝑋 ∈ { 2 , 3 } → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
165 101 164 jaoi ⊢ ( ( 𝑋 ∈ { 0 , 1 } ∨ 𝑋 ∈ { 2 , 3 } ) → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
166 5 165 sylbi ⊢ ( 𝑋 ∈ ( 0 ..^ 4 ) → ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) ) )
167 166 impcom ⊢ ( ( 𝑁 ∈ ( ℤ≥ ‘ 3 ) ∧ 𝑋 ∈ ( 0 ..^ 4 ) ) → ( ( 𝐹 ‘ 𝑋 ) ∈ 𝒫 ( { 0 , 1 } × ( 0 ..^ 𝑁 ) ) ∧ ∃ 𝑥 ∈ ( 0 ..^ 𝑁 ) ( ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 0 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 0 , 𝑥 ⟩ , ⟨ 1 , 𝑥 ⟩ } ∨ ( 𝐹 ‘ 𝑋 ) = { ⟨ 1 , 𝑥 ⟩ , ⟨ 1 , ( ( 𝑥 + 1 ) mod 𝑁 ) ⟩ } ) ) )