Users' Mathboxes Mathbox for Brendan Leahy < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  poimirlem16 Structured version   Visualization version   GIF version

Theorem poimirlem16 37162
Description: Lemma for poimir 37179 establishing the vertices of the simplex of poimirlem17 37163. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0 (πœ‘ β†’ 𝑁 ∈ β„•)
poimirlem22.s 𝑆 = {𝑑 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‘)) ∘f + ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))}
poimirlem22.1 (πœ‘ β†’ 𝐹:(0...(𝑁 βˆ’ 1))⟢((0...𝐾) ↑m (1...𝑁)))
poimirlem22.2 (πœ‘ β†’ 𝑇 ∈ 𝑆)
poimirlem18.3 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ βˆƒπ‘ ∈ ran 𝐹(π‘β€˜π‘›) β‰  𝐾)
poimirlem18.4 (πœ‘ β†’ (2nd β€˜π‘‡) = 0)
Assertion
Ref Expression
poimirlem16 (πœ‘ β†’ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ((𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))) ∘f + (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})))))
Distinct variable groups:   𝑓,𝑗,𝑛,𝑝,𝑑,𝑦   πœ‘,𝑗,𝑛,𝑦   𝑗,𝐹,𝑛,𝑦   𝑗,𝑁,𝑛,𝑦   𝑇,𝑗,𝑛,𝑦   πœ‘,𝑝,𝑑   𝑓,𝐾,𝑗,𝑛,𝑝,𝑑   𝑓,𝑁,𝑝,𝑑   𝑇,𝑓,𝑝   𝑓,𝐹,𝑝,𝑑   𝑑,𝑇   𝑆,𝑗,𝑛,𝑝,𝑑,𝑦
Allowed substitution hints:   πœ‘(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem16
StepHypRef Expression
1 poimirlem22.2 . . 3 (πœ‘ β†’ 𝑇 ∈ 𝑆)
2 fveq2 6890 . . . . . . . . . 10 (𝑑 = 𝑇 β†’ (2nd β€˜π‘‘) = (2nd β€˜π‘‡))
32breq2d 5156 . . . . . . . . 9 (𝑑 = 𝑇 β†’ (𝑦 < (2nd β€˜π‘‘) ↔ 𝑦 < (2nd β€˜π‘‡)))
43ifbid 4548 . . . . . . . 8 (𝑑 = 𝑇 β†’ if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)))
5 2fveq3 6895 . . . . . . . . 9 (𝑑 = 𝑇 β†’ (1st β€˜(1st β€˜π‘‘)) = (1st β€˜(1st β€˜π‘‡)))
6 2fveq3 6895 . . . . . . . . . . . 12 (𝑑 = 𝑇 β†’ (2nd β€˜(1st β€˜π‘‘)) = (2nd β€˜(1st β€˜π‘‡)))
76imaeq1d 6058 . . . . . . . . . . 11 (𝑑 = 𝑇 β†’ ((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)))
87xpeq1d 5702 . . . . . . . . . 10 (𝑑 = 𝑇 β†’ (((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}))
96imaeq1d 6058 . . . . . . . . . . 11 (𝑑 = 𝑇 β†’ ((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)))
109xpeq1d 5702 . . . . . . . . . 10 (𝑑 = 𝑇 β†’ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))
118, 10uneq12d 4158 . . . . . . . . 9 (𝑑 = 𝑇 β†’ ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))
125, 11oveq12d 7431 . . . . . . . 8 (𝑑 = 𝑇 β†’ ((1st β€˜(1st β€˜π‘‘)) ∘f + ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
134, 12csbeq12dv 3895 . . . . . . 7 (𝑑 = 𝑇 β†’ ⦋if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‘)) ∘f + ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
1413mpteq2dv 5246 . . . . . 6 (𝑑 = 𝑇 β†’ (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‘)) ∘f + ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))) = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))))
1514eqeq2d 2736 . . . . 5 (𝑑 = 𝑇 β†’ (𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‘)) ∘f + ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))))
16 poimirlem22.s . . . . 5 𝑆 = {𝑑 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‘)) ∘f + ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))}
1715, 16elrab2 3679 . . . 4 (𝑇 ∈ 𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))))
1817simprbi 495 . . 3 (𝑇 ∈ 𝑆 β†’ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))))
191, 18syl 17 . 2 (πœ‘ β†’ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))))
20 elrabi 3670 . . . . . . . . . . . 12 (𝑇 ∈ {𝑑 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‘)) ∘f + ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))} β†’ 𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)))
2120, 16eleq2s 2843 . . . . . . . . . . 11 (𝑇 ∈ 𝑆 β†’ 𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)))
221, 21syl 17 . . . . . . . . . 10 (πœ‘ β†’ 𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)))
23 xp1st 8019 . . . . . . . . . 10 (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) Γ— (0...𝑁)) β†’ (1st β€˜π‘‡) ∈ (((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}))
2422, 23syl 17 . . . . . . . . 9 (πœ‘ β†’ (1st β€˜π‘‡) ∈ (((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}))
25 xp1st 8019 . . . . . . . . 9 ((1st β€˜π‘‡) ∈ (((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) β†’ (1st β€˜(1st β€˜π‘‡)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
2624, 25syl 17 . . . . . . . 8 (πœ‘ β†’ (1st β€˜(1st β€˜π‘‡)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
27 elmapfn 8877 . . . . . . . 8 ((1st β€˜(1st β€˜π‘‡)) ∈ ((0..^𝐾) ↑m (1...𝑁)) β†’ (1st β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
2826, 27syl 17 . . . . . . 7 (πœ‘ β†’ (1st β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
2928adantr 479 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1st β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
30 1ex 11235 . . . . . . . . . 10 1 ∈ V
31 fnconstg 6779 . . . . . . . . . 10 (1 ∈ V β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))
3230, 31ax-mp 5 . . . . . . . . 9 (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1)))
33 c0ex 11233 . . . . . . . . . 10 0 ∈ V
34 fnconstg 6779 . . . . . . . . . 10 (0 ∈ V β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
3533, 34ax-mp 5 . . . . . . . . 9 (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))
3632, 35pm3.2i 469 . . . . . . . 8 ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
37 xp2nd 8020 . . . . . . . . . . . . 13 ((1st β€˜π‘‡) ∈ (((0..^𝐾) ↑m (1...𝑁)) Γ— {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)}) β†’ (2nd β€˜(1st β€˜π‘‡)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)})
3824, 37syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (2nd β€˜(1st β€˜π‘‡)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)})
39 fvex 6903 . . . . . . . . . . . . 13 (2nd β€˜(1st β€˜π‘‡)) ∈ V
40 f1oeq1 6820 . . . . . . . . . . . . 13 (𝑓 = (2nd β€˜(1st β€˜π‘‡)) β†’ (𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ (2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁)))
4139, 40elab 3661 . . . . . . . . . . . 12 ((2nd β€˜(1st β€˜π‘‡)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁)} ↔ (2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁))
4238, 41sylib 217 . . . . . . . . . . 11 (πœ‘ β†’ (2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁))
43 dff1o3 6838 . . . . . . . . . . . 12 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–ontoβ†’(1...𝑁) ∧ Fun β—‘(2nd β€˜(1st β€˜π‘‡))))
4443simprbi 495 . . . . . . . . . . 11 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ Fun β—‘(2nd β€˜(1st β€˜π‘‡)))
4542, 44syl 17 . . . . . . . . . 10 (πœ‘ β†’ Fun β—‘(2nd β€˜(1st β€˜π‘‡)))
46 imain 6633 . . . . . . . . . 10 (Fun β—‘(2nd β€˜(1st β€˜π‘‡)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
4745, 46syl 17 . . . . . . . . 9 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
48 elfznn0 13621 . . . . . . . . . . . . . . 15 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 ∈ β„•0)
49 nn0p1nn 12536 . . . . . . . . . . . . . . 15 (𝑦 ∈ β„•0 β†’ (𝑦 + 1) ∈ β„•)
5048, 49syl 17 . . . . . . . . . . . . . 14 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ β„•)
5150nnred 12252 . . . . . . . . . . . . 13 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ ℝ)
5251ltp1d 12169 . . . . . . . . . . . 12 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) < ((𝑦 + 1) + 1))
53 fzdisj 13555 . . . . . . . . . . . 12 ((𝑦 + 1) < ((𝑦 + 1) + 1) β†’ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
5452, 53syl 17 . . . . . . . . . . 11 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
5554imaeq2d 6059 . . . . . . . . . 10 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ βˆ…))
56 ima0 6076 . . . . . . . . . 10 ((2nd β€˜(1st β€˜π‘‡)) β€œ βˆ…) = βˆ…
5755, 56eqtrdi 2781 . . . . . . . . 9 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
5847, 57sylan9req 2786 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
59 fnun 6663 . . . . . . . 8 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ…) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
6036, 58, 59sylancr 585 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
61 imaundi 6150 . . . . . . . . 9 ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
62 nnuz 12890 . . . . . . . . . . . . . 14 β„• = (β„€β‰₯β€˜1)
6350, 62eleqtrdi 2835 . . . . . . . . . . . . 13 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ (β„€β‰₯β€˜1))
64 peano2uz 12910 . . . . . . . . . . . . 13 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜1))
6563, 64syl 17 . . . . . . . . . . . 12 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜1))
66 poimir.0 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑁 ∈ β„•)
6766nncnd 12253 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑁 ∈ β„‚)
68 npcan1 11664 . . . . . . . . . . . . . . 15 (𝑁 ∈ β„‚ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
6967, 68syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
7069adantr 479 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
71 elfzuz3 13525 . . . . . . . . . . . . . . 15 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦))
72 eluzp1p1 12875 . . . . . . . . . . . . . . 15 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)))
7371, 72syl 17 . . . . . . . . . . . . . 14 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)))
7473adantl 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)))
7570, 74eqeltrrd 2826 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1)))
76 fzsplit2 13553 . . . . . . . . . . . 12 ((((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1))) β†’ (1...𝑁) = ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
7765, 75, 76syl2an2 684 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑁) = ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
7877imaeq2d 6059 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))))
79 f1ofo 6839 . . . . . . . . . . . 12 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ (2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–ontoβ†’(1...𝑁))
80 foima 6809 . . . . . . . . . . . 12 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–ontoβ†’(1...𝑁) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = (1...𝑁))
8142, 79, 803syl 18 . . . . . . . . . . 11 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = (1...𝑁))
8281adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = (1...𝑁))
8378, 82eqtr3d 2767 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = (1...𝑁))
8461, 83eqtr3id 2779 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = (1...𝑁))
8584fneq2d 6643 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) ↔ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (1...𝑁)))
8660, 85mpbid 231 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (1...𝑁))
87 ovexd 7448 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑁) ∈ V)
88 inidm 4214 . . . . . 6 ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
89 eqidd 2726 . . . . . 6 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) = ((1st β€˜(1st β€˜π‘‡))β€˜π‘›))
90 eqidd 2726 . . . . . 6 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›))
9129, 86, 87, 87, 88, 89, 90offval 7688 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))) = (𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
92 oveq1 7420 . . . . . . . . . 10 (1 = if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) β†’ (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = (if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
9392eqeq2d 2736 . . . . . . . . 9 (1 = if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) ↔ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
94 oveq1 7420 . . . . . . . . . 10 (0 = if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) β†’ (0 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = (if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
9594eqeq2d 2736 . . . . . . . . 9 (0 = if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (0 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) ↔ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
96 1p0e1 12361 . . . . . . . . . . . . . 14 (1 + 0) = 1
9796eqcomi 2734 . . . . . . . . . . . . 13 1 = (1 + 0)
98 f1ofn 6833 . . . . . . . . . . . . . . . . . 18 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ (2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
9942, 98syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
10099adantr 479 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
101 fzss2 13568 . . . . . . . . . . . . . . . . 17 (𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1)) β†’ (1...(𝑦 + 1)) βŠ† (1...𝑁))
10275, 101syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...(𝑦 + 1)) βŠ† (1...𝑁))
103 eluzfz1 13535 . . . . . . . . . . . . . . . . . 18 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ 1 ∈ (1...(𝑦 + 1)))
10463, 103syl 17 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 1 ∈ (1...(𝑦 + 1)))
105104adantl 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 1 ∈ (1...(𝑦 + 1)))
106 fnfvima 7239 . . . . . . . . . . . . . . . 16 (((2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁) ∧ (1...(𝑦 + 1)) βŠ† (1...𝑁) ∧ 1 ∈ (1...(𝑦 + 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))
107100, 102, 105, 106syl3anc 1368 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))
108 fvun1 6982 . . . . . . . . . . . . . . . 16 (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) ∧ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ… ∧ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
10932, 35, 108mp3an12 1447 . . . . . . . . . . . . . . 15 (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ… ∧ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1)))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
11058, 107, 109syl2anc 582 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
11130fvconst2 7210 . . . . . . . . . . . . . . 15 (((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 1)
112107, 111syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 1)
113110, 112eqtrd 2765 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 1)
114 simpr 483 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ 𝑛 ∈ (1...(𝑁 βˆ’ 1)))
11566nnzd 12610 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (πœ‘ β†’ 𝑁 ∈ β„€)
116 peano2zm 12630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑁 ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ β„€)
117115, 116syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ β„€)
118 1z 12617 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 1 ∈ β„€
119117, 118jctil 518 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (1 ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€))
120 elfzelz 13528 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„€)
121120, 118jctir 519 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ (𝑛 ∈ β„€ ∧ 1 ∈ β„€))
122 fzaddel 13562 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((1 ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) ∧ (𝑛 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑛 + 1) ∈ ((1 + 1)...((𝑁 βˆ’ 1) + 1))))
123119, 121, 122syl2an 594 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑛 + 1) ∈ ((1 + 1)...((𝑁 βˆ’ 1) + 1))))
124114, 123mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑛 + 1) ∈ ((1 + 1)...((𝑁 βˆ’ 1) + 1)))
12569oveq2d 7429 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ ((1 + 1)...((𝑁 βˆ’ 1) + 1)) = ((1 + 1)...𝑁))
126125adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ ((1 + 1)...((𝑁 βˆ’ 1) + 1)) = ((1 + 1)...𝑁))
127124, 126eleqtrd 2827 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑛 + 1) ∈ ((1 + 1)...𝑁))
128127ralrimiva 3136 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑛 + 1) ∈ ((1 + 1)...𝑁))
129 simpr 483 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ 𝑦 ∈ ((1 + 1)...𝑁))
130 peano2z 12628 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (1 ∈ β„€ β†’ (1 + 1) ∈ β„€)
131118, 130ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (1 + 1) ∈ β„€
132115, 131jctil 518 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ ((1 + 1) ∈ β„€ ∧ 𝑁 ∈ β„€))
133 elfzelz 13528 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ ((1 + 1)...𝑁) β†’ 𝑦 ∈ β„€)
134133, 118jctir 519 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ ((1 + 1)...𝑁) β†’ (𝑦 ∈ β„€ ∧ 1 ∈ β„€))
135 fzsubel 13564 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((1 + 1) ∈ β„€ ∧ 𝑁 ∈ β„€) ∧ (𝑦 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑦 ∈ ((1 + 1)...𝑁) ↔ (𝑦 βˆ’ 1) ∈ (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1))))
136132, 134, 135syl2an 594 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ (𝑦 ∈ ((1 + 1)...𝑁) ↔ (𝑦 βˆ’ 1) ∈ (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1))))
137129, 136mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ (𝑦 βˆ’ 1) ∈ (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1)))
138 ax-1cn 11191 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 1 ∈ β„‚
139138, 138pncan3oi 11501 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((1 + 1) βˆ’ 1) = 1
140139oveq1i 7423 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1)) = (1...(𝑁 βˆ’ 1))
141137, 140eleqtrdi 2835 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ (𝑦 βˆ’ 1) ∈ (1...(𝑁 βˆ’ 1)))
142133zcnd 12692 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ ((1 + 1)...𝑁) β†’ 𝑦 ∈ β„‚)
143 elfznn 13557 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„•)
144143nncnd 12253 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„‚)
145 subadd2 11489 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑦 ∈ β„‚ ∧ 1 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ ((𝑦 βˆ’ 1) = 𝑛 ↔ (𝑛 + 1) = 𝑦))
146138, 145mp3an2 1445 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑦 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ ((𝑦 βˆ’ 1) = 𝑛 ↔ (𝑛 + 1) = 𝑦))
147146bicomd 222 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑦 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ ((𝑛 + 1) = 𝑦 ↔ (𝑦 βˆ’ 1) = 𝑛))
148 eqcom 2732 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑛 + 1) = 𝑦 ↔ 𝑦 = (𝑛 + 1))
149 eqcom 2732 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑦 βˆ’ 1) = 𝑛 ↔ 𝑛 = (𝑦 βˆ’ 1))
150147, 148, 1493bitr3g 312 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑦 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ (𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
151142, 144, 150syl2an 594 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑦 ∈ ((1 + 1)...𝑁) ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
152151ralrimiva 3136 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ ((1 + 1)...𝑁) β†’ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
153152adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
154 reu6i 3717 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑦 βˆ’ 1) ∈ (1...(𝑁 βˆ’ 1)) ∧ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1))) β†’ βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1))
155141, 153, 154syl2anc 582 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1))
156155ralrimiva 3136 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ βˆ€π‘¦ ∈ ((1 + 1)...𝑁)βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1))
157 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) = (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1))
158157f1ompt 7114 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)):(1...(𝑁 βˆ’ 1))–1-1-ontoβ†’((1 + 1)...𝑁) ↔ (βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑛 + 1) ∈ ((1 + 1)...𝑁) ∧ βˆ€π‘¦ ∈ ((1 + 1)...𝑁)βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1)))
159128, 156, 158sylanbrc 581 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)):(1...(𝑁 βˆ’ 1))–1-1-ontoβ†’((1 + 1)...𝑁))
160 f1osng 6873 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑁 ∈ β„• ∧ 1 ∈ V) β†’ {βŸ¨π‘, 1⟩}:{𝑁}–1-1-ontoβ†’{1})
16166, 30, 160sylancl 584 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ {βŸ¨π‘, 1⟩}:{𝑁}–1-1-ontoβ†’{1})
16266nnred 12252 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ 𝑁 ∈ ℝ)
163162ltm1d 12171 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ (𝑁 βˆ’ 1) < 𝑁)
164117zred 12691 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ ℝ)
165164, 162ltnled 11386 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ ((𝑁 βˆ’ 1) < 𝑁 ↔ Β¬ 𝑁 ≀ (𝑁 βˆ’ 1)))
166163, 165mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ Β¬ 𝑁 ≀ (𝑁 βˆ’ 1))
167 elfzle2 13532 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑁 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑁 ≀ (𝑁 βˆ’ 1))
168166, 167nsyl 140 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1)))
169 disjsn 4712 . . . . . . . . . . . . . . . . . . . . . . 23 (((1...(𝑁 βˆ’ 1)) ∩ {𝑁}) = βˆ… ↔ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1)))
170168, 169sylibr 233 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ ((1...(𝑁 βˆ’ 1)) ∩ {𝑁}) = βˆ…)
171 1re 11239 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 1 ∈ ℝ
172171ltp1i 12143 . . . . . . . . . . . . . . . . . . . . . . . . . 26 1 < (1 + 1)
173171, 171readdcli 11254 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (1 + 1) ∈ ℝ
174171, 173ltnlei 11360 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (1 < (1 + 1) ↔ Β¬ (1 + 1) ≀ 1)
175172, 174mpbi 229 . . . . . . . . . . . . . . . . . . . . . . . . 25 Β¬ (1 + 1) ≀ 1
176 elfzle1 13531 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 ∈ ((1 + 1)...𝑁) β†’ (1 + 1) ≀ 1)
177175, 176mto 196 . . . . . . . . . . . . . . . . . . . . . . . 24 Β¬ 1 ∈ ((1 + 1)...𝑁)
178 disjsn 4712 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((1 + 1)...𝑁) ∩ {1}) = βˆ… ↔ Β¬ 1 ∈ ((1 + 1)...𝑁))
179177, 178mpbir 230 . . . . . . . . . . . . . . . . . . . . . . 23 (((1 + 1)...𝑁) ∩ {1}) = βˆ…
180 f1oun 6851 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)):(1...(𝑁 βˆ’ 1))–1-1-ontoβ†’((1 + 1)...𝑁) ∧ {βŸ¨π‘, 1⟩}:{𝑁}–1-1-ontoβ†’{1}) ∧ (((1...(𝑁 βˆ’ 1)) ∩ {𝑁}) = βˆ… ∧ (((1 + 1)...𝑁) ∩ {1}) = βˆ…)) β†’ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}):((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁})–1-1-ontoβ†’(((1 + 1)...𝑁) βˆͺ {1}))
181179, 180mpanr2 702 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)):(1...(𝑁 βˆ’ 1))–1-1-ontoβ†’((1 + 1)...𝑁) ∧ {βŸ¨π‘, 1⟩}:{𝑁}–1-1-ontoβ†’{1}) ∧ ((1...(𝑁 βˆ’ 1)) ∩ {𝑁}) = βˆ…) β†’ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}):((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁})–1-1-ontoβ†’(((1 + 1)...𝑁) βˆͺ {1}))
182159, 161, 170, 181syl21anc 836 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}):((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁})–1-1-ontoβ†’(((1 + 1)...𝑁) βˆͺ {1}))
18330a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ 1 ∈ V)
18466, 62eleqtrdi 2835 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜1))
18569, 184eqeltrd 2825 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1))
186 uzid 12862 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑁 βˆ’ 1) ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
187 peano2uz 12910 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
188117, 186, 1873syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
18969, 188eqeltrrd 2826 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
190 fzsplit2 13553 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1))) β†’ (1...𝑁) = ((1...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
191185, 189, 190syl2anc 582 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ (1...𝑁) = ((1...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
19269oveq1d 7428 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (((𝑁 βˆ’ 1) + 1)...𝑁) = (𝑁...𝑁))
193 fzsn 13570 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑁 ∈ β„€ β†’ (𝑁...𝑁) = {𝑁})
194115, 193syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (𝑁...𝑁) = {𝑁})
195192, 194eqtrd 2765 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ (((𝑁 βˆ’ 1) + 1)...𝑁) = {𝑁})
196195uneq2d 4157 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ ((1...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)) = ((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
197191, 196eqtr2d 2766 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ ((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁}) = (1...𝑁))
198 iftrue 4531 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 = 𝑁 β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = 1)
199198adantl 480 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 = 𝑁) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = 1)
20066, 183, 197, 199fmptapd 7174 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) βˆͺ {βŸ¨π‘, 1⟩}) = (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
201 eleq1 2813 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑛 = 𝑁 β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ 𝑁 ∈ (1...(𝑁 βˆ’ 1))))
202201notbid 317 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑛 = 𝑁 β†’ (Β¬ 𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1))))
203168, 202syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (𝑛 = 𝑁 β†’ Β¬ 𝑛 ∈ (1...(𝑁 βˆ’ 1))))
204203necon2ad 2945 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 β‰  𝑁))
205204imp 405 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ 𝑛 β‰  𝑁)
206 ifnefalse 4537 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 β‰  𝑁 β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
207205, 206syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
208207mpteq2dva 5244 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
209208uneq1d 4156 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) βˆͺ {βŸ¨π‘, 1⟩}) = ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}))
210200, 209eqtr3d 2767 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}))
211191, 196eqtrd 2765 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (1...𝑁) = ((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
212 uzid 12862 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 ∈ β„€ β†’ 1 ∈ (β„€β‰₯β€˜1))
213 peano2uz 12910 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 ∈ (β„€β‰₯β€˜1) β†’ (1 + 1) ∈ (β„€β‰₯β€˜1))
214118, 212, 213mp2b 10 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 + 1) ∈ (β„€β‰₯β€˜1)
215 fzsplit2 13553 . . . . . . . . . . . . . . . . . . . . . . . 24 (((1 + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜1)) β†’ (1...𝑁) = ((1...1) βˆͺ ((1 + 1)...𝑁)))
216214, 184, 215sylancr 585 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (1...𝑁) = ((1...1) βˆͺ ((1 + 1)...𝑁)))
217 fzsn 13570 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (1 ∈ β„€ β†’ (1...1) = {1})
218118, 217ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1...1) = {1}
219218uneq1i 4153 . . . . . . . . . . . . . . . . . . . . . . . 24 ((1...1) βˆͺ ((1 + 1)...𝑁)) = ({1} βˆͺ ((1 + 1)...𝑁))
220219equncomi 4149 . . . . . . . . . . . . . . . . . . . . . . 23 ((1...1) βˆͺ ((1 + 1)...𝑁)) = (((1 + 1)...𝑁) βˆͺ {1})
221216, 220eqtrdi 2781 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (1...𝑁) = (((1 + 1)...𝑁) βˆͺ {1}))
222210, 211, 221f1oeq123d 6826 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}):((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁})–1-1-ontoβ†’(((1 + 1)...𝑁) βˆͺ {1})))
223182, 222mpbird 256 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)–1-1-ontoβ†’(1...𝑁))
224 f1oco 6855 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) ∧ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)–1-1-ontoβ†’(1...𝑁)) β†’ ((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–1-1-ontoβ†’(1...𝑁))
22542, 223, 224syl2anc 582 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–1-1-ontoβ†’(1...𝑁))
226 dff1o3 6838 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–ontoβ†’(1...𝑁) ∧ Fun β—‘((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))))
227226simprbi 495 . . . . . . . . . . . . . . . . . . 19 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ Fun β—‘((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))))
228225, 227syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ Fun β—‘((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))))
229 imain 6633 . . . . . . . . . . . . . . . . . 18 (Fun β—‘((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∩ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))))
230228, 229syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∩ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))))
23148nn0red 12558 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 ∈ ℝ)
232231ltp1d 12169 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 < (𝑦 + 1))
233 fzdisj 13555 . . . . . . . . . . . . . . . . . . . 20 (𝑦 < (𝑦 + 1) β†’ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁)) = βˆ…)
234232, 233syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁)) = βˆ…)
235234imaeq2d 6059 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ βˆ…))
236 ima0 6076 . . . . . . . . . . . . . . . . . 18 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ βˆ…) = βˆ…
237235, 236eqtrdi 2781 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = βˆ…)
238230, 237sylan9req 2786 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∩ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) = βˆ…)
239 imassrn 6070 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)) βŠ† ran (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))
240 f1of 6832 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)⟢(1...𝑁))
241 frn 6724 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)⟢(1...𝑁) β†’ ran (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) βŠ† (1...𝑁))
242223, 240, 2413syl 18 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ran (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) βŠ† (1...𝑁))
243239, 242sstrid 3985 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)) βŠ† (1...𝑁))
244243adantr 479 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)) βŠ† (1...𝑁))
245 elfz1end 13558 . . . . . . . . . . . . . . . . . . . . . 22 (𝑁 ∈ β„• ↔ 𝑁 ∈ (1...𝑁))
24666, 245sylib 217 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑁 ∈ (1...𝑁))
247 eqid 2725 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))
248198, 247, 30fvmpt 6998 . . . . . . . . . . . . . . . . . . . . 21 (𝑁 ∈ (1...𝑁) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) = 1)
249246, 248syl 17 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) = 1)
250249adantr 479 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) = 1)
251 f1ofn 6833 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁))
252223, 251syl 17 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁))
253252adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁))
254 fzss1 13567 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁))
25563, 254syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁))
256255adantl 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁))
257 eluzfz2 13536 . . . . . . . . . . . . . . . . . . . . 21 (𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1)) β†’ 𝑁 ∈ ((𝑦 + 1)...𝑁))
25875, 257syl 17 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ ((𝑦 + 1)...𝑁))
259 fnfvima 7239 . . . . . . . . . . . . . . . . . . . 20 (((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁) ∧ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁) ∧ 𝑁 ∈ ((𝑦 + 1)...𝑁)) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) ∈ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
260253, 256, 258, 259syl3anc 1368 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) ∈ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
261250, 260eqeltrrd 2826 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 1 ∈ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
262 fnfvima 7239 . . . . . . . . . . . . . . . . . 18 (((2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁) ∧ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)) βŠ† (1...𝑁) ∧ 1 ∈ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁))))
263100, 244, 261, 262syl3anc 1368 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁))))
264 imaco 6251 . . . . . . . . . . . . . . . . 17 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
265263, 264eleqtrrdi 2836 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))
266 fnconstg 6779 . . . . . . . . . . . . . . . . . 18 (1 ∈ V β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) Fn (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)))
26730, 266ax-mp 5 . . . . . . . . . . . . . . . . 17 ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) Fn (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦))
268 fnconstg 6779 . . . . . . . . . . . . . . . . . 18 (0 ∈ V β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}) Fn (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))
26933, 268ax-mp 5 . . . . . . . . . . . . . . . . 17 ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}) Fn (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))
270 fvun2 6983 . . . . . . . . . . . . . . . . 17 ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) Fn (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∧ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}) Fn (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) ∧ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∩ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) = βˆ… ∧ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
271267, 269, 270mp3an12 1447 . . . . . . . . . . . . . . . 16 ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∩ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) = βˆ… ∧ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
272238, 265, 271syl2anc 582 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
27333fvconst2 7210 . . . . . . . . . . . . . . . 16 (((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 0)
274265, 273syl 17 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 0)
275272, 274eqtrd 2765 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 0)
276275oveq2d 7429 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1))) = (1 + 0))
27797, 113, 2763eqtr4a 2791 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1))))
278 fveq2 6890 . . . . . . . . . . . . 13 (𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
279 fveq2 6890 . . . . . . . . . . . . . 14 (𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))
280279oveq2d 7429 . . . . . . . . . . . . 13 (𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1) β†’ (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1))))
281278, 280eqeq12d 2741 . . . . . . . . . . . 12 (𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) ↔ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)))))
282277, 281syl5ibrcom 246 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
283282imp 405 . . . . . . . . . 10 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
284283adantlr 713 . . . . . . . . 9 ((((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) ∧ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (1 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
285 eldifsn 4787 . . . . . . . . . . . . . 14 (𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ↔ (𝑛 ∈ (1...𝑁) ∧ 𝑛 β‰  ((2nd β€˜(1st β€˜π‘‡))β€˜1)))
286 df-ne 2931 . . . . . . . . . . . . . . 15 (𝑛 β‰  ((2nd β€˜(1st β€˜π‘‡))β€˜1) ↔ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1))
287286anbi2i 621 . . . . . . . . . . . . . 14 ((𝑛 ∈ (1...𝑁) ∧ 𝑛 β‰  ((2nd β€˜(1st β€˜π‘‡))β€˜1)) ↔ (𝑛 ∈ (1...𝑁) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)))
288285, 287bitri 274 . . . . . . . . . . . . 13 (𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ↔ (𝑛 ∈ (1...𝑁) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)))
289 fnconstg 6779 . . . . . . . . . . . . . . . . . 18 (1 ∈ V β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
29030, 289ax-mp 5 . . . . . . . . . . . . . . . . 17 (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1)))
291290, 35pm3.2i 469 . . . . . . . . . . . . . . . 16 ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
292 imain 6633 . . . . . . . . . . . . . . . . . 18 (Fun β—‘(2nd β€˜(1st β€˜π‘‡)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
29345, 292syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
294 fzdisj 13555 . . . . . . . . . . . . . . . . . . . 20 ((𝑦 + 1) < ((𝑦 + 1) + 1) β†’ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
29552, 294syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
296295imaeq2d 6059 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ βˆ…))
297296, 56eqtrdi 2781 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
298293, 297sylan9req 2786 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
299 fnun 6663 . . . . . . . . . . . . . . . 16 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ…) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
300291, 298, 299sylancr 585 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
301 imaundi 6150 . . . . . . . . . . . . . . . . 17 ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
302 fzpred 13576 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑁 ∈ (β„€β‰₯β€˜1) β†’ (1...𝑁) = ({1} βˆͺ ((1 + 1)...𝑁)))
303184, 302syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ (1...𝑁) = ({1} βˆͺ ((1 + 1)...𝑁)))
304 uncom 4147 . . . . . . . . . . . . . . . . . . . . . . . 24 ({1} βˆͺ ((1 + 1)...𝑁)) = (((1 + 1)...𝑁) βˆͺ {1})
305303, 304eqtrdi 2781 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (1...𝑁) = (((1 + 1)...𝑁) βˆͺ {1}))
306305difeq1d 4114 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ ((1...𝑁) βˆ– {1}) = ((((1 + 1)...𝑁) βˆͺ {1}) βˆ– {1}))
307 difun2 4477 . . . . . . . . . . . . . . . . . . . . . . 23 ((((1 + 1)...𝑁) βˆͺ {1}) βˆ– {1}) = (((1 + 1)...𝑁) βˆ– {1})
308 disj3 4450 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((1 + 1)...𝑁) ∩ {1}) = βˆ… ↔ ((1 + 1)...𝑁) = (((1 + 1)...𝑁) βˆ– {1}))
309179, 308mpbi 229 . . . . . . . . . . . . . . . . . . . . . . 23 ((1 + 1)...𝑁) = (((1 + 1)...𝑁) βˆ– {1})
310307, 309eqtr4i 2756 . . . . . . . . . . . . . . . . . . . . . 22 ((((1 + 1)...𝑁) βˆͺ {1}) βˆ– {1}) = ((1 + 1)...𝑁)
311306, 310eqtrdi 2781 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((1...𝑁) βˆ– {1}) = ((1 + 1)...𝑁))
312311adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((1...𝑁) βˆ– {1}) = ((1 + 1)...𝑁))
313 eluzp1p1 12875 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜(1 + 1)))
31463, 313syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜(1 + 1)))
315 fzsplit2 13553 . . . . . . . . . . . . . . . . . . . . 21 ((((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜(1 + 1)) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1))) β†’ ((1 + 1)...𝑁) = (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
316314, 75, 315syl2an2 684 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((1 + 1)...𝑁) = (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
317312, 316eqtrd 2765 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((1...𝑁) βˆ– {1}) = (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
318317imaeq2d 6059 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))))
319 imadif 6632 . . . . . . . . . . . . . . . . . . . . 21 (Fun β—‘(2nd β€˜(1st β€˜π‘‡)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) βˆ– ((2nd β€˜(1st β€˜π‘‡)) β€œ {1})))
32045, 319syl 17 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) βˆ– ((2nd β€˜(1st β€˜π‘‡)) β€œ {1})))
321 eluzfz1 13535 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑁 ∈ (β„€β‰₯β€˜1) β†’ 1 ∈ (1...𝑁))
322184, 321syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ 1 ∈ (1...𝑁))
323 fnsnfv 6970 . . . . . . . . . . . . . . . . . . . . . . 23 (((2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁) ∧ 1 ∈ (1...𝑁)) β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}))
32499, 322, 323syl2anc 582 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}))
325324eqcomd 2731 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) = {((2nd β€˜(1st β€˜π‘‡))β€˜1)})
32681, 325difeq12d 4116 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) βˆ– ((2nd β€˜(1st β€˜π‘‡)) β€œ {1})) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
327320, 326eqtrd 2765 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
328327adantr 479 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
329318, 328eqtr3d 2767 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
330301, 329eqtr3id 2779 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
331330fneq2d 6643 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) ↔ ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)})))
332300, 331mpbid 231 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
333 disjdifr 4469 . . . . . . . . . . . . . . 15 (((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∩ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = βˆ…
334 fnconstg 6779 . . . . . . . . . . . . . . . . . 18 (1 ∈ V β†’ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}) Fn {((2nd β€˜(1st β€˜π‘‡))β€˜1)})
33530, 334ax-mp 5 . . . . . . . . . . . . . . . . 17 ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}) Fn {((2nd β€˜(1st β€˜π‘‡))β€˜1)}
336 fvun1 6982 . . . . . . . . . . . . . . . . 17 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∧ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}) Fn {((2nd β€˜(1st β€˜π‘‡))β€˜1)} ∧ ((((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∩ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = βˆ… ∧ 𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›))
337335, 336mp3an2 1445 . . . . . . . . . . . . . . . 16 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∧ ((((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∩ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = βˆ… ∧ 𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›))
338 fnconstg 6779 . . . . . . . . . . . . . . . . . 18 (0 ∈ V β†’ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) Fn {((2nd β€˜(1st β€˜π‘‡))β€˜1)})
33933, 338ax-mp 5 . . . . . . . . . . . . . . . . 17 ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) Fn {((2nd β€˜(1st β€˜π‘‡))β€˜1)}
340 fvun1 6982 . . . . . . . . . . . . . . . . 17 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∧ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) Fn {((2nd β€˜(1st β€˜π‘‡))β€˜1)} ∧ ((((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∩ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = βˆ… ∧ 𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›))
341339, 340mp3an2 1445 . . . . . . . . . . . . . . . 16 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∧ ((((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∩ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = βˆ… ∧ 𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›))
342337, 341eqtr4d 2768 . . . . . . . . . . . . . . 15 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∧ ((((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∩ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = βˆ… ∧ 𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›))
343333, 342mpanr1 701 . . . . . . . . . . . . . 14 ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∧ 𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)})) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›))
344332, 343sylan 578 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)})) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›))
345288, 344sylan2br 593 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ (𝑛 ∈ (1...𝑁) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›))
346345anassrs 466 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›))
347 fzpred 13576 . . . . . . . . . . . . . . . . . . . . 21 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ (1...(𝑦 + 1)) = ({1} βˆͺ ((1 + 1)...(𝑦 + 1))))
34863, 347syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (1...(𝑦 + 1)) = ({1} βˆͺ ((1 + 1)...(𝑦 + 1))))
349348imaeq2d 6059 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
350349adantl 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
351324uneq1d 4156 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1)))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1)))))
352 uncom 4147 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
353 imaundi 6150 . . . . . . . . . . . . . . . . . . . 20 ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
354351, 352, 3533eqtr4g 2790 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
355354adantr 479 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
356350, 355eqtr4d 2768 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
357356xpeq1d 5702 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) Γ— {1}))
358 xpundir 5742 . . . . . . . . . . . . . . . 16 ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) Γ— {1}) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))
359357, 358eqtrdi 2781 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1})))
360359uneq1d 4156 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1})) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})))
361 un23 4163 . . . . . . . . . . . . . 14 (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1})) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))
362360, 361eqtrdi 2781 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1})))
363362fveq1d 6892 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›))
364363ad2antrr 724 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))β€˜π‘›))
365 imaco 6251 . . . . . . . . . . . . . . . . 17 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)))
366 df-ima 5686 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)) = ran ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ (1...𝑦))
367 peano2uz 12910 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜π‘¦))
36871, 367syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜π‘¦))
369368adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜π‘¦))
37070, 369eqeltrrd 2826 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ (β„€β‰₯β€˜π‘¦))
371 fzss2 13568 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑁 ∈ (β„€β‰₯β€˜π‘¦) β†’ (1...𝑦) βŠ† (1...𝑁))
372370, 371syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑦) βŠ† (1...𝑁))
373372resmptd 6040 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ (1...𝑦)) = (𝑛 ∈ (1...𝑦) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
374 fzss2 13568 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦) β†’ (1...𝑦) βŠ† (1...(𝑁 βˆ’ 1)))
37571, 374syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (1...𝑦) βŠ† (1...(𝑁 βˆ’ 1)))
376375adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑦) βŠ† (1...(𝑁 βˆ’ 1)))
377168adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1)))
378376, 377ssneldd 3976 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑁 ∈ (1...𝑦))
379 eleq1 2813 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 = 𝑁 β†’ (𝑛 ∈ (1...𝑦) ↔ 𝑁 ∈ (1...𝑦)))
380379notbid 317 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛 = 𝑁 β†’ (Β¬ 𝑛 ∈ (1...𝑦) ↔ Β¬ 𝑁 ∈ (1...𝑦)))
381378, 380syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 = 𝑁 β†’ Β¬ 𝑛 ∈ (1...𝑦)))
382381necon2ad 2945 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑦) β†’ 𝑛 β‰  𝑁))
383382imp 405 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑦)) β†’ 𝑛 β‰  𝑁)
384383, 206syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑦)) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
385384mpteq2dva 5244 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑦) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)))
386373, 385eqtrd 2765 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ (1...𝑦)) = (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)))
387386rneqd 5935 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ran ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ (1...𝑦)) = ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)))
388366, 387eqtrid 2777 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)) = ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)))
389 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) = (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1))
390389elrnmpt 5953 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 ∈ V β†’ (𝑗 ∈ ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1)))
391390elv 3469 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1))
392 elfzelz 13528 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 ∈ β„€)
393392adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑦 ∈ β„€)
394 simpr 483 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ 𝑛 ∈ (1...𝑦))
395118jctl 522 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ β„€ β†’ (1 ∈ β„€ ∧ 𝑦 ∈ β„€))
396 elfzelz 13528 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ (1...𝑦) β†’ 𝑛 ∈ β„€)
397396, 118jctir 519 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛 ∈ (1...𝑦) β†’ (𝑛 ∈ β„€ ∧ 1 ∈ β„€))
398 fzaddel 13562 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((1 ∈ β„€ ∧ 𝑦 ∈ β„€) ∧ (𝑛 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑛 ∈ (1...𝑦) ↔ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1))))
399395, 397, 398syl2an 594 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ (𝑛 ∈ (1...𝑦) ↔ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1))))
400394, 399mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1)))
401 eleq1 2813 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = (𝑛 + 1) β†’ (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) ↔ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1))))
402400, 401syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ (𝑗 = (𝑛 + 1) β†’ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
403402rexlimdva 3145 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ β„€ β†’ (βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1) β†’ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
404 elfzelz 13528 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ 𝑗 ∈ β„€)
405404zcnd 12692 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ 𝑗 ∈ β„‚)
406 npcan1 11664 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ β„‚ β†’ ((𝑗 βˆ’ 1) + 1) = 𝑗)
407405, 406syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ ((𝑗 βˆ’ 1) + 1) = 𝑗)
408407eleq1d 2810 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ (((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1)) ↔ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
409408ibir 267 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1)))
410409adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1)))
411 peano2zm 12630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ β„€ β†’ (𝑗 βˆ’ 1) ∈ β„€)
412404, 411syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ (𝑗 βˆ’ 1) ∈ β„€)
413412, 118jctir 519 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€))
414 fzaddel 13562 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((1 ∈ β„€ ∧ 𝑦 ∈ β„€) ∧ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€)) β†’ ((𝑗 βˆ’ 1) ∈ (1...𝑦) ↔ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1))))
415395, 413, 414syl2an 594 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ ((𝑗 βˆ’ 1) ∈ (1...𝑦) ↔ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1))))
416410, 415mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ (𝑗 βˆ’ 1) ∈ (1...𝑦))
417405adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ 𝑗 ∈ β„‚)
418406eqcomd 2731 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 ∈ β„‚ β†’ 𝑗 = ((𝑗 βˆ’ 1) + 1))
419417, 418syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ 𝑗 = ((𝑗 βˆ’ 1) + 1))
420 oveq1 7420 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = (𝑗 βˆ’ 1) β†’ (𝑛 + 1) = ((𝑗 βˆ’ 1) + 1))
421420rspceeqv 3625 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑗 βˆ’ 1) ∈ (1...𝑦) ∧ 𝑗 = ((𝑗 βˆ’ 1) + 1)) β†’ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1))
422416, 419, 421syl2anc 582 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1))
423422ex 411 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ β„€ β†’ (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1)))
424403, 423impbid 211 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ β„€ β†’ (βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1) ↔ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
425393, 424syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1) ↔ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
426391, 425bitrid 282 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑗 ∈ ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) ↔ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
427426eqrdv 2723 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) = ((1 + 1)...(𝑦 + 1)))
428388, 427eqtrd 2765 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)) = ((1 + 1)...(𝑦 + 1)))
429428imaeq2d 6059 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
430365, 429eqtrid 2777 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
431430xpeq1d 5702 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}))
432 imaundi 6150 . . . . . . . . . . . . . . . . . . 19 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1)))) = ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ {𝑁}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
433 imaco 6251 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ {𝑁}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
434 imaco 6251 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
435433, 434uneq12i 4155 . . . . . . . . . . . . . . . . . . 19 ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ {𝑁}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1)))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1)))))
436432, 435eqtri 2753 . . . . . . . . . . . . . . . . . 18 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1)))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1)))))
437189adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
438 fzsplit2 13553 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
43973, 437, 438syl2an2 684 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
440195uneq2d 4157 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
441440adantr 479 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
442439, 441eqtrd 2765 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
443 uncom 4147 . . . . . . . . . . . . . . . . . . . 20 (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}) = ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
444442, 443eqtrdi 2781 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
445444imaeq2d 6059 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) = (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1)))))
446249sneqd 4637 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ {((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘)} = {1})
447 fnsnfv 6970 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁) ∧ 𝑁 ∈ (1...𝑁)) β†’ {((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘)} = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
448252, 246, 447syl2anc 582 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ {((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘)} = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
449446, 448eqtr3d 2767 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ {1} = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
450449imaeq2d 6059 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})))
451324, 450eqtrd 2765 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})))
452451adantr 479 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})))
453 df-ima 5686 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = ran ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
454 fzss1 13567 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1)...(𝑁 βˆ’ 1)) βŠ† (1...(𝑁 βˆ’ 1)))
45563, 454syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1)...(𝑁 βˆ’ 1)) βŠ† (1...(𝑁 βˆ’ 1)))
456 fzss2 13568 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
457189, 456syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
458455, 457sylan9ssr 3988 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
459458resmptd 6040 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
460 elfzle2 13532 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ 𝑁 ≀ (𝑁 βˆ’ 1))
461166, 460nsyl 140 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (πœ‘ β†’ Β¬ 𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
462 eleq1 2813 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑛 = 𝑁 β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ 𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
463462notbid 317 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑛 = 𝑁 β†’ (Β¬ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ Β¬ 𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
464461, 463syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (πœ‘ β†’ (𝑛 = 𝑁 β†’ Β¬ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
465464con2d 134 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ Β¬ 𝑛 = 𝑁))
466465imp 405 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑛 = 𝑁)
467466iffalsed 4536 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
468467mpteq2dva 5244 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
469468adantr 479 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
470459, 469eqtrd 2765 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
471470rneqd 5935 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ran ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
472453, 471eqtrid 2777 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
473 elfzelz 13528 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ 𝑗 ∈ β„€)
474473zcnd 12692 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ 𝑗 ∈ β„‚)
475474, 406syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ ((𝑗 βˆ’ 1) + 1) = 𝑗)
476475eleq1d 2810 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ (((𝑗 βˆ’ 1) + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) ↔ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
477476ibir 267 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ ((𝑗 βˆ’ 1) + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)))
478477adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ ((𝑗 βˆ’ 1) + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)))
47950nnzd 12610 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ β„€)
480117, 479anim12ci 612 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1) ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€))
481473, 411syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ (𝑗 βˆ’ 1) ∈ β„€)
482481, 118jctir 519 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€))
483 fzaddel 13562 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝑦 + 1) ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) ∧ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€)) β†’ ((𝑗 βˆ’ 1) ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ ((𝑗 βˆ’ 1) + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
484480, 482, 483syl2an 594 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ ((𝑗 βˆ’ 1) ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ ((𝑗 βˆ’ 1) + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
485478, 484mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ (𝑗 βˆ’ 1) ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
486474, 418syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ 𝑗 = ((𝑗 βˆ’ 1) + 1))
487486adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ 𝑗 = ((𝑗 βˆ’ 1) + 1))
488420rspceeqv 3625 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝑗 βˆ’ 1) ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ∧ 𝑗 = ((𝑗 βˆ’ 1) + 1)) β†’ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1))
489485, 487, 488syl2anc 582 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1))
490489ex 411 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1)))
491 simpr 483 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
492 elfzelz 13528 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„€)
493492, 118jctir 519 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ (𝑛 ∈ β„€ ∧ 1 ∈ β„€))
494 fzaddel 13562 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝑦 + 1) ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) ∧ (𝑛 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ (𝑛 + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
495480, 493, 494syl2an 594 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ (𝑛 + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
496491, 495mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ (𝑛 + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)))
497 eleq1 2813 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = (𝑛 + 1) β†’ (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) ↔ (𝑛 + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
498496, 497syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ (𝑗 = (𝑛 + 1) β†’ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
499498rexlimdva 3145 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1) β†’ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
500490, 499impbid 211 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) ↔ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1)))
501 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1))
502501elrnmpt 5953 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ V β†’ (𝑗 ∈ ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1)))
503502elv 3469 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1))
504500, 503bitr4di 288 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) ↔ 𝑗 ∈ ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1))))
505504eqrdv 2723 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) = ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
50669oveq2d 7429 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) = (((𝑦 + 1) + 1)...𝑁))
507506adantr 479 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) = (((𝑦 + 1) + 1)...𝑁))
508472, 505, 5073eqtr2rd 2772 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1) + 1)...𝑁) = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
509508imaeq2d 6059 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1)))))
510452, 509uneq12d 4158 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))))))
511436, 445, 5103eqtr4a 2791 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) = ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
512511xpeq1d 5702 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}) = (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) Γ— {0}))
513 xpundir 5742 . . . . . . . . . . . . . . . 16 (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) Γ— {0}) = (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))
514512, 513eqtrdi 2781 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}) = (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})))
515431, 514uneq12d 4158 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))))
516 unass 4161 . . . . . . . . . . . . . . 15 (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0})) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})))
517 un23 4163 . . . . . . . . . . . . . . 15 (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0})) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))
518516, 517eqtr3i 2755 . . . . . . . . . . . . . 14 ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))
519515, 518eqtrdi 2781 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})) = (((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0})))
520519fveq1d 6892 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›))
521520ad2antrr 724 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}))β€˜π‘›))
522346, 364, 5213eqtr4d 2775 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))
523 snssi 4808 . . . . . . . . . . . . . . 15 (1 ∈ β„‚ β†’ {1} βŠ† β„‚)
524138, 523ax-mp 5 . . . . . . . . . . . . . 14 {1} βŠ† β„‚
525 0cn 11231 . . . . . . . . . . . . . . 15 0 ∈ β„‚
526 snssi 4808 . . . . . . . . . . . . . . 15 (0 ∈ β„‚ β†’ {0} βŠ† β„‚)
527525, 526ax-mp 5 . . . . . . . . . . . . . 14 {0} βŠ† β„‚
528524, 527unssi 4180 . . . . . . . . . . . . 13 ({1} βˆͺ {0}) βŠ† β„‚
52930fconst 6777 . . . . . . . . . . . . . . . . 17 ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦))⟢{1}
53033fconst 6777 . . . . . . . . . . . . . . . . 17 ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))⟢{0}
531529, 530pm3.2i 469 . . . . . . . . . . . . . . . 16 (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦))⟢{1} ∧ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))⟢{0})
532 fun 6753 . . . . . . . . . . . . . . . 16 (((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦))⟢{1} ∧ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))⟢{0}) ∧ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∩ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) = βˆ…) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})):((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))⟢({1} βˆͺ {0}))
533531, 238, 532sylancr 585 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})):((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))⟢({1} βˆͺ {0}))
534 imaundi 6150 . . . . . . . . . . . . . . . . 17 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁))) = ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))
535 fzsplit2 13553 . . . . . . . . . . . . . . . . . . . 20 (((𝑦 + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜π‘¦)) β†’ (1...𝑁) = ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁)))
53663, 370, 535syl2an2 684 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑁) = ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁)))
537536imaeq2d 6059 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑁)) = (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁))))
538 f1ofo 6839 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ ((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–ontoβ†’(1...𝑁))
539 foima 6809 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–ontoβ†’(1...𝑁) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑁)) = (1...𝑁))
540225, 538, 5393syl 18 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑁)) = (1...𝑁))
541540adantr 479 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑁)) = (1...𝑁))
542537, 541eqtr3d 2767 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁))) = (1...𝑁))
543534, 542eqtr3id 2779 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) = (1...𝑁))
544543feq2d 6703 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})):((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))⟢({1} βˆͺ {0}) ↔ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})):(1...𝑁)⟢({1} βˆͺ {0})))
545533, 544mpbid 231 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})):(1...𝑁)⟢({1} βˆͺ {0}))
546545ffvelcdmda 7087 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) ∈ ({1} βˆͺ {0}))
547528, 546sselid 3971 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) ∈ β„‚)
548547addlidd 11440 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (0 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))
549548adantr 479 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ (0 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))
550522, 549eqtr4d 2768 . . . . . . . . 9 ((((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (0 + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
55193, 95, 284, 550ifbothda 4563 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›) = (if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
552551oveq2d 7429 . . . . . . 7 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + (if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
553 elmapi 8861 . . . . . . . . . . . . 13 ((1st β€˜(1st β€˜π‘‡)) ∈ ((0..^𝐾) ↑m (1...𝑁)) β†’ (1st β€˜(1st β€˜π‘‡)):(1...𝑁)⟢(0..^𝐾))
55426, 553syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (1st β€˜(1st β€˜π‘‡)):(1...𝑁)⟢(0..^𝐾))
555554ffvelcdmda 7087 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ (0..^𝐾))
556 elfzonn0 13704 . . . . . . . . . . 11 (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ (0..^𝐾) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„•0)
557555, 556syl 17 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„•0)
558557nn0cnd 12559 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„‚)
559558adantlr 713 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„‚)
560138, 525ifcli 4572 . . . . . . . . 9 if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) ∈ β„‚
561560a1i 11 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) ∈ β„‚)
562559, 561, 547addassd 11261 . . . . . . 7 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0)) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + (if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
563552, 562eqtr4d 2768 . . . . . 6 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›)) = ((((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0)) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
564563mpteq2dva 5244 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜π‘›))) = (𝑛 ∈ (1...𝑁) ↦ ((((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0)) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
56591, 564eqtrd 2765 . . . 4 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))) = (𝑛 ∈ (1...𝑁) ↦ ((((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0)) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
566 poimirlem18.4 . . . . . . . . . 10 (πœ‘ β†’ (2nd β€˜π‘‡) = 0)
567566adantr 479 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (2nd β€˜π‘‡) = 0)
568 elfzle1 13531 . . . . . . . . . 10 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 0 ≀ 𝑦)
569568adantl 480 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 0 ≀ 𝑦)
570567, 569eqbrtrd 5166 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (2nd β€˜π‘‡) ≀ 𝑦)
571 0re 11241 . . . . . . . . . 10 0 ∈ ℝ
572566, 571eqeltrdi 2833 . . . . . . . . 9 (πœ‘ β†’ (2nd β€˜π‘‡) ∈ ℝ)
573 lenlt 11317 . . . . . . . . 9 (((2nd β€˜π‘‡) ∈ ℝ ∧ 𝑦 ∈ ℝ) β†’ ((2nd β€˜π‘‡) ≀ 𝑦 ↔ Β¬ 𝑦 < (2nd β€˜π‘‡)))
574572, 231, 573syl2an 594 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜π‘‡) ≀ 𝑦 ↔ Β¬ 𝑦 < (2nd β€˜π‘‡)))
575570, 574mpbid 231 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑦 < (2nd β€˜π‘‡))
576575iffalsed 4536 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) = (𝑦 + 1))
577576csbeq1d 3890 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ⦋(𝑦 + 1) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
578 ovex 7446 . . . . . 6 (𝑦 + 1) ∈ V
579 oveq2 7421 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) β†’ (1...𝑗) = (1...(𝑦 + 1)))
580579imaeq2d 6059 . . . . . . . . 9 (𝑗 = (𝑦 + 1) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))
581580xpeq1d 5702 . . . . . . . 8 (𝑗 = (𝑦 + 1) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}))
582 oveq1 7420 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) β†’ (𝑗 + 1) = ((𝑦 + 1) + 1))
583582oveq1d 7428 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) β†’ ((𝑗 + 1)...𝑁) = (((𝑦 + 1) + 1)...𝑁))
584583imaeq2d 6059 . . . . . . . . 9 (𝑗 = (𝑦 + 1) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
585584xpeq1d 5702 . . . . . . . 8 (𝑗 = (𝑦 + 1) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))
586581, 585uneq12d 4158 . . . . . . 7 (𝑗 = (𝑦 + 1) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})))
587586oveq2d 7429 . . . . . 6 (𝑗 = (𝑦 + 1) β†’ ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))))
588578, 587csbie 3922 . . . . 5 ⦋(𝑦 + 1) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})))
589577, 588eqtrdi 2781 . . . 4 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))) = ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))))
590 ovexd 7448 . . . . 5 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0)) ∈ V)
591 fvexd 6905 . . . . 5 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) ∈ V)
592 eqidd 2726 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))) = (𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))))
593545ffnd 6718 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})) Fn (1...𝑁))
594 nfcv 2892 . . . . . . . . . . 11 Ⅎ𝑛(2nd β€˜(1st β€˜π‘‡))
595 nfmpt1 5252 . . . . . . . . . . 11 Ⅎ𝑛(𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))
596594, 595nfco 5863 . . . . . . . . . 10 Ⅎ𝑛((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
597 nfcv 2892 . . . . . . . . . 10 Ⅎ𝑛(1...𝑦)
598596, 597nfima 6067 . . . . . . . . 9 Ⅎ𝑛(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦))
599 nfcv 2892 . . . . . . . . 9 Ⅎ𝑛{1}
600598, 599nfxp 5706 . . . . . . . 8 Ⅎ𝑛((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1})
601 nfcv 2892 . . . . . . . . . 10 Ⅎ𝑛((𝑦 + 1)...𝑁)
602596, 601nfima 6067 . . . . . . . . 9 Ⅎ𝑛(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))
603 nfcv 2892 . . . . . . . . 9 Ⅎ𝑛{0}
604602, 603nfxp 5706 . . . . . . . 8 Ⅎ𝑛((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})
605600, 604nfun 4159 . . . . . . 7 Ⅎ𝑛(((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))
606605dffn5f 6963 . . . . . 6 ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})) Fn (1...𝑁) ↔ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})) = (𝑛 ∈ (1...𝑁) ↦ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
607593, 606sylib 217 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})) = (𝑛 ∈ (1...𝑁) ↦ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›)))
60887, 590, 591, 592, 607offval2 7699 . . . 4 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))) ∘f + (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))) = (𝑛 ∈ (1...𝑁) ↦ ((((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0)) + ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›))))
609565, 589, 6083eqtr4rd 2776 . . 3 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))) ∘f + (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))) = ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))))
610609mpteq2dva 5244 . 2 (πœ‘ β†’ (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ((𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))) ∘f + (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})))) = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ⦋if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) / π‘—β¦Œ((1st β€˜(1st β€˜π‘‡)) ∘f + ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))))
61119, 610eqtr4d 2768 1 (πœ‘ β†’ 𝐹 = (𝑦 ∈ (0...(𝑁 βˆ’ 1)) ↦ ((𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))) ∘f + (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 394   = wceq 1533   ∈ wcel 2098  {cab 2702   β‰  wne 2930  βˆ€wral 3051  βˆƒwrex 3060  βˆƒ!wreu 3362  {crab 3419  Vcvv 3463  β¦‹csb 3886   βˆ– cdif 3938   βˆͺ cun 3939   ∩ cin 3940   βŠ† wss 3941  βˆ…c0 4319  ifcif 4525  {csn 4625  βŸ¨cop 4631   class class class wbr 5144   ↦ cmpt 5227   Γ— cxp 5671  β—‘ccnv 5672  ran crn 5674   β†Ύ cres 5675   β€œ cima 5676   ∘ ccom 5677  Fun wfun 6537   Fn wfn 6538  βŸΆwf 6539  β€“ontoβ†’wfo 6541  β€“1-1-ontoβ†’wf1o 6542  β€˜cfv 6543  (class class class)co 7413   ∘f cof 7677  1st c1st 7985  2nd c2nd 7986   ↑m cmap 8838  β„‚cc 11131  β„cr 11132  0cc0 11133  1c1 11134   + caddc 11136   < clt 11273   ≀ cle 11274   βˆ’ cmin 11469  β„•cn 12237  β„•0cn0 12497  β„€cz 12583  β„€β‰₯cuz 12847  ...cfz 13511  ..^cfzo 13654
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5281  ax-sep 5295  ax-nul 5302  ax-pow 5360  ax-pr 5424  ax-un 7735  ax-cnex 11189  ax-resscn 11190  ax-1cn 11191  ax-icn 11192  ax-addcl 11193  ax-addrcl 11194  ax-mulcl 11195  ax-mulrcl 11196  ax-mulcom 11197  ax-addass 11198  ax-mulass 11199  ax-distr 11200  ax-i2m1 11201  ax-1ne0 11202  ax-1rid 11203  ax-rnegex 11204  ax-rrecex 11205  ax-cnre 11206  ax-pre-lttri 11207  ax-pre-lttrn 11208  ax-pre-ltadd 11209  ax-pre-mulgt0 11210
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3961  df-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4905  df-iun 4994  df-br 5145  df-opab 5207  df-mpt 5228  df-tr 5262  df-id 5571  df-eprel 5577  df-po 5585  df-so 5586  df-fr 5628  df-we 5630  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-pred 6301  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7369  df-ov 7416  df-oprab 7417  df-mpo 7418  df-of 7679  df-om 7866  df-1st 7987  df-2nd 7988  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-er 8718  df-map 8840  df-en 8958  df-dom 8959  df-sdom 8960  df-pnf 11275  df-mnf 11276  df-xr 11277  df-ltxr 11278  df-le 11279  df-sub 11471  df-neg 11472  df-nn 12238  df-n0 12498  df-z 12584  df-uz 12848  df-fz 13512  df-fzo 13655
This theorem is referenced by:  poimirlem17  37163
  Copyright terms: Public domain W3C validator