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 36492
Description: Lemma for poimir 36509 establishing the vertices of the simplex of poimirlem17 36493. (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 6888 . . . . . . . . . 10 (𝑑 = 𝑇 β†’ (2nd β€˜π‘‘) = (2nd β€˜π‘‡))
32breq2d 5159 . . . . . . . . 9 (𝑑 = 𝑇 β†’ (𝑦 < (2nd β€˜π‘‘) ↔ 𝑦 < (2nd β€˜π‘‡)))
43ifbid 4550 . . . . . . . 8 (𝑑 = 𝑇 β†’ if(𝑦 < (2nd β€˜π‘‘), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)))
5 2fveq3 6893 . . . . . . . . 9 (𝑑 = 𝑇 β†’ (1st β€˜(1st β€˜π‘‘)) = (1st β€˜(1st β€˜π‘‡)))
6 2fveq3 6893 . . . . . . . . . . . 12 (𝑑 = 𝑇 β†’ (2nd β€˜(1st β€˜π‘‘)) = (2nd β€˜(1st β€˜π‘‡)))
76imaeq1d 6056 . . . . . . . . . . 11 (𝑑 = 𝑇 β†’ ((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)))
87xpeq1d 5704 . . . . . . . . . 10 (𝑑 = 𝑇 β†’ (((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}))
96imaeq1d 6056 . . . . . . . . . . 11 (𝑑 = 𝑇 β†’ ((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)))
109xpeq1d 5704 . . . . . . . . . 10 (𝑑 = 𝑇 β†’ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}))
118, 10uneq12d 4163 . . . . . . . . 9 (𝑑 = 𝑇 β†’ ((((2nd β€˜(1st β€˜π‘‘)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‘)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})))
125, 11oveq12d 7423 . . . . . . . 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 3901 . . . . . . 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 5249 . . . . . 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 2743 . . . . 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 3685 . . . 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 497 . . 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 3676 . . . . . . . . . . . 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 2851 . . . . . . . . . . 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 8003 . . . . . . . . . 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 8003 . . . . . . . . 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 8855 . . . . . . . 8 ((1st β€˜(1st β€˜π‘‡)) ∈ ((0..^𝐾) ↑m (1...𝑁)) β†’ (1st β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
2826, 27syl 17 . . . . . . 7 (πœ‘ β†’ (1st β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
2928adantr 481 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1st β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
30 1ex 11206 . . . . . . . . . 10 1 ∈ V
31 fnconstg 6776 . . . . . . . . . 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 11204 . . . . . . . . . 10 0 ∈ V
34 fnconstg 6776 . . . . . . . . . 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 471 . . . . . . . 8 ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∧ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}) Fn ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
37 xp2nd 8004 . . . . . . . . . . . . 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 6901 . . . . . . . . . . . . 13 (2nd β€˜(1st β€˜π‘‡)) ∈ V
40 f1oeq1 6818 . . . . . . . . . . . . 13 (𝑓 = (2nd β€˜(1st β€˜π‘‡)) β†’ (𝑓:(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ (2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁)))
4139, 40elab 3667 . . . . . . . . . . . 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 6836 . . . . . . . . . . . 12 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) ↔ ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–ontoβ†’(1...𝑁) ∧ Fun β—‘(2nd β€˜(1st β€˜π‘‡))))
4443simprbi 497 . . . . . . . . . . 11 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ Fun β—‘(2nd β€˜(1st β€˜π‘‡)))
4542, 44syl 17 . . . . . . . . . 10 (πœ‘ β†’ Fun β—‘(2nd β€˜(1st β€˜π‘‡)))
46 imain 6630 . . . . . . . . . 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 13590 . . . . . . . . . . . . . . 15 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 ∈ β„•0)
49 nn0p1nn 12507 . . . . . . . . . . . . . . 15 (𝑦 ∈ β„•0 β†’ (𝑦 + 1) ∈ β„•)
5048, 49syl 17 . . . . . . . . . . . . . 14 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ β„•)
5150nnred 12223 . . . . . . . . . . . . 13 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ ℝ)
5251ltp1d 12140 . . . . . . . . . . . 12 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) < ((𝑦 + 1) + 1))
53 fzdisj 13524 . . . . . . . . . . . 12 ((𝑦 + 1) < ((𝑦 + 1) + 1) β†’ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
5452, 53syl 17 . . . . . . . . . . 11 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
5554imaeq2d 6057 . . . . . . . . . 10 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ βˆ…))
56 ima0 6073 . . . . . . . . . 10 ((2nd β€˜(1st β€˜π‘‡)) β€œ βˆ…) = βˆ…
5755, 56eqtrdi 2788 . . . . . . . . 9 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
5847, 57sylan9req 2793 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
59 fnun 6660 . . . . . . . 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 587 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})) Fn (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
61 imaundi 6146 . . . . . . . . 9 ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
62 nnuz 12861 . . . . . . . . . . . . . 14 β„• = (β„€β‰₯β€˜1)
6350, 62eleqtrdi 2843 . . . . . . . . . . . . 13 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ (β„€β‰₯β€˜1))
64 peano2uz 12881 . . . . . . . . . . . . 13 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜1))
6563, 64syl 17 . . . . . . . . . . . 12 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜1))
66 poimir.0 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑁 ∈ β„•)
6766nncnd 12224 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑁 ∈ β„‚)
68 npcan1 11635 . . . . . . . . . . . . . . 15 (𝑁 ∈ β„‚ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
6967, 68syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
7069adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑁 βˆ’ 1) + 1) = 𝑁)
71 elfzuz3 13494 . . . . . . . . . . . . . . 15 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦))
72 eluzp1p1 12846 . . . . . . . . . . . . . . 15 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)))
7371, 72syl 17 . . . . . . . . . . . . . 14 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)))
7473adantl 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)))
7570, 74eqeltrrd 2834 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1)))
76 fzsplit2 13522 . . . . . . . . . . . 12 ((((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1))) β†’ (1...𝑁) = ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
7765, 75, 76syl2an2 684 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑁) = ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
7877imaeq2d 6057 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))))
79 f1ofo 6837 . . . . . . . . . . . 12 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ (2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–ontoβ†’(1...𝑁))
80 foima 6807 . . . . . . . . . . . 12 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–ontoβ†’(1...𝑁) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = (1...𝑁))
8142, 79, 803syl 18 . . . . . . . . . . 11 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = (1...𝑁))
8281adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) = (1...𝑁))
8378, 82eqtr3d 2774 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = (1...𝑁))
8461, 83eqtr3id 2786 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = (1...𝑁))
8584fneq2d 6640 . . . . . . 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 7440 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑁) ∈ V)
88 inidm 4217 . . . . . 6 ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
89 eqidd 2733 . . . . . 6 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) = ((1st β€˜(1st β€˜π‘‡))β€˜π‘›))
90 eqidd 2733 . . . . . 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 7675 . . . . 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 7412 . . . . . . . . . 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 2743 . . . . . . . . 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 7412 . . . . . . . . . 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 2743 . . . . . . . . 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 12332 . . . . . . . . . . . . . 14 (1 + 0) = 1
9796eqcomi 2741 . . . . . . . . . . . . 13 1 = (1 + 0)
98 f1ofn 6831 . . . . . . . . . . . . . . . . . 18 ((2nd β€˜(1st β€˜π‘‡)):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ (2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
9942, 98syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
10099adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁))
101 fzss2 13537 . . . . . . . . . . . . . . . . 17 (𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1)) β†’ (1...(𝑦 + 1)) βŠ† (1...𝑁))
10275, 101syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...(𝑦 + 1)) βŠ† (1...𝑁))
103 eluzfz1 13504 . . . . . . . . . . . . . . . . . 18 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ 1 ∈ (1...(𝑦 + 1)))
10463, 103syl 17 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 1 ∈ (1...(𝑦 + 1)))
105104adantl 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 1 ∈ (1...(𝑦 + 1)))
106 fnfvima 7231 . . . . . . . . . . . . . . . 16 (((2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁) ∧ (1...(𝑦 + 1)) βŠ† (1...𝑁) ∧ 1 ∈ (1...(𝑦 + 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))
107100, 102, 105, 106syl3anc 1371 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))
108 fvun1 6979 . . . . . . . . . . . . . . . 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 1451 . . . . . . . . . . . . . . 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 584 . . . . . . . . . . . . . 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 7201 . . . . . . . . . . . . . . 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 2772 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 1)
114 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ 𝑛 ∈ (1...(𝑁 βˆ’ 1)))
11566nnzd 12581 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (πœ‘ β†’ 𝑁 ∈ β„€)
116 peano2zm 12601 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑁 ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ β„€)
117115, 116syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ β„€)
118 1z 12588 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 1 ∈ β„€
119117, 118jctil 520 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (1 ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€))
120 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„€)
121120, 118jctir 521 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ (𝑛 ∈ β„€ ∧ 1 ∈ β„€))
122 fzaddel 13531 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((1 ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) ∧ (𝑛 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑛 + 1) ∈ ((1 + 1)...((𝑁 βˆ’ 1) + 1))))
123119, 121, 122syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ (𝑛 + 1) ∈ ((1 + 1)...((𝑁 βˆ’ 1) + 1))))
124114, 123mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑛 + 1) ∈ ((1 + 1)...((𝑁 βˆ’ 1) + 1)))
12569oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ ((1 + 1)...((𝑁 βˆ’ 1) + 1)) = ((1 + 1)...𝑁))
126125adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ ((1 + 1)...((𝑁 βˆ’ 1) + 1)) = ((1 + 1)...𝑁))
127124, 126eleqtrd 2835 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑛 + 1) ∈ ((1 + 1)...𝑁))
128127ralrimiva 3146 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑛 + 1) ∈ ((1 + 1)...𝑁))
129 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ 𝑦 ∈ ((1 + 1)...𝑁))
130 peano2z 12599 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (1 ∈ β„€ β†’ (1 + 1) ∈ β„€)
131118, 130ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (1 + 1) ∈ β„€
132115, 131jctil 520 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ ((1 + 1) ∈ β„€ ∧ 𝑁 ∈ β„€))
133 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ ((1 + 1)...𝑁) β†’ 𝑦 ∈ β„€)
134133, 118jctir 521 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ ((1 + 1)...𝑁) β†’ (𝑦 ∈ β„€ ∧ 1 ∈ β„€))
135 fzsubel 13533 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((1 + 1) ∈ β„€ ∧ 𝑁 ∈ β„€) ∧ (𝑦 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑦 ∈ ((1 + 1)...𝑁) ↔ (𝑦 βˆ’ 1) ∈ (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1))))
136132, 134, 135syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ (𝑦 ∈ ((1 + 1)...𝑁) ↔ (𝑦 βˆ’ 1) ∈ (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1))))
137129, 136mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ (𝑦 βˆ’ 1) ∈ (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1)))
138 ax-1cn 11164 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 1 ∈ β„‚
139138, 138pncan3oi 11472 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((1 + 1) βˆ’ 1) = 1
140139oveq1i 7415 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((1 + 1) βˆ’ 1)...(𝑁 βˆ’ 1)) = (1...(𝑁 βˆ’ 1))
141137, 140eleqtrdi 2843 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ (𝑦 βˆ’ 1) ∈ (1...(𝑁 βˆ’ 1)))
142133zcnd 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ ((1 + 1)...𝑁) β†’ 𝑦 ∈ β„‚)
143 elfznn 13526 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„•)
144143nncnd 12224 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„‚)
145 subadd2 11460 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑦 ∈ β„‚ ∧ 1 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ ((𝑦 βˆ’ 1) = 𝑛 ↔ (𝑛 + 1) = 𝑦))
146138, 145mp3an2 1449 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑦 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ ((𝑦 βˆ’ 1) = 𝑛 ↔ (𝑛 + 1) = 𝑦))
147146bicomd 222 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑦 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ ((𝑛 + 1) = 𝑦 ↔ (𝑦 βˆ’ 1) = 𝑛))
148 eqcom 2739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑛 + 1) = 𝑦 ↔ 𝑦 = (𝑛 + 1))
149 eqcom 2739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑦 βˆ’ 1) = 𝑛 ↔ 𝑛 = (𝑦 βˆ’ 1))
150147, 148, 1493bitr3g 312 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑦 ∈ β„‚ ∧ 𝑛 ∈ β„‚) β†’ (𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
151142, 144, 150syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑦 ∈ ((1 + 1)...𝑁) ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ (𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
152151ralrimiva 3146 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ ((1 + 1)...𝑁) β†’ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
153152adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1)))
154 reu6i 3723 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑦 βˆ’ 1) ∈ (1...(𝑁 βˆ’ 1)) ∧ βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑦 = (𝑛 + 1) ↔ 𝑛 = (𝑦 βˆ’ 1))) β†’ βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1))
155141, 153, 154syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ ((1 + 1)...𝑁)) β†’ βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1))
156155ralrimiva 3146 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ βˆ€π‘¦ ∈ ((1 + 1)...𝑁)βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1))
157 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) = (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1))
158157f1ompt 7107 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)):(1...(𝑁 βˆ’ 1))–1-1-ontoβ†’((1 + 1)...𝑁) ↔ (βˆ€π‘› ∈ (1...(𝑁 βˆ’ 1))(𝑛 + 1) ∈ ((1 + 1)...𝑁) ∧ βˆ€π‘¦ ∈ ((1 + 1)...𝑁)βˆƒ!𝑛 ∈ (1...(𝑁 βˆ’ 1))𝑦 = (𝑛 + 1)))
159128, 156, 158sylanbrc 583 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)):(1...(𝑁 βˆ’ 1))–1-1-ontoβ†’((1 + 1)...𝑁))
160 f1osng 6871 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑁 ∈ β„• ∧ 1 ∈ V) β†’ {βŸ¨π‘, 1⟩}:{𝑁}–1-1-ontoβ†’{1})
16166, 30, 160sylancl 586 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ {βŸ¨π‘, 1⟩}:{𝑁}–1-1-ontoβ†’{1})
16266nnred 12223 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ 𝑁 ∈ ℝ)
163162ltm1d 12142 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ (𝑁 βˆ’ 1) < 𝑁)
164117zred 12662 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ (𝑁 βˆ’ 1) ∈ ℝ)
165164, 162ltnled 11357 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ ((𝑁 βˆ’ 1) < 𝑁 ↔ Β¬ 𝑁 ≀ (𝑁 βˆ’ 1)))
166163, 165mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ Β¬ 𝑁 ≀ (𝑁 βˆ’ 1))
167 elfzle2 13501 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑁 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑁 ≀ (𝑁 βˆ’ 1))
168166, 167nsyl 140 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1)))
169 disjsn 4714 . . . . . . . . . . . . . . . . . . . . . . 23 (((1...(𝑁 βˆ’ 1)) ∩ {𝑁}) = βˆ… ↔ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1)))
170168, 169sylibr 233 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ ((1...(𝑁 βˆ’ 1)) ∩ {𝑁}) = βˆ…)
171 1re 11210 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 1 ∈ ℝ
172171ltp1i 12114 . . . . . . . . . . . . . . . . . . . . . . . . . 26 1 < (1 + 1)
173171, 171readdcli 11225 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (1 + 1) ∈ ℝ
174171, 173ltnlei 11331 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (1 < (1 + 1) ↔ Β¬ (1 + 1) ≀ 1)
175172, 174mpbi 229 . . . . . . . . . . . . . . . . . . . . . . . . 25 Β¬ (1 + 1) ≀ 1
176 elfzle1 13500 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 ∈ ((1 + 1)...𝑁) β†’ (1 + 1) ≀ 1)
177175, 176mto 196 . . . . . . . . . . . . . . . . . . . . . . . 24 Β¬ 1 ∈ ((1 + 1)...𝑁)
178 disjsn 4714 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((1 + 1)...𝑁) ∩ {1}) = βˆ… ↔ Β¬ 1 ∈ ((1 + 1)...𝑁))
179177, 178mpbir 230 . . . . . . . . . . . . . . . . . . . . . . 23 (((1 + 1)...𝑁) ∩ {1}) = βˆ…
180 f1oun 6849 . . . . . . . . . . . . . . . . . . . . . . 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 2843 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜1))
18569, 184eqeltrd 2833 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1))
186 uzid 12833 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑁 βˆ’ 1) ∈ β„€ β†’ (𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
187 peano2uz 12881 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
188117, 186, 1873syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
18969, 188eqeltrrd 2834 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
190 fzsplit2 13522 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1))) β†’ (1...𝑁) = ((1...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
191185, 189, 190syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ (1...𝑁) = ((1...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
19269oveq1d 7420 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (((𝑁 βˆ’ 1) + 1)...𝑁) = (𝑁...𝑁))
193 fzsn 13539 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑁 ∈ β„€ β†’ (𝑁...𝑁) = {𝑁})
194115, 193syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (𝑁...𝑁) = {𝑁})
195192, 194eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ (((𝑁 βˆ’ 1) + 1)...𝑁) = {𝑁})
196195uneq2d 4162 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ ((1...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)) = ((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
197191, 196eqtr2d 2773 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ ((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁}) = (1...𝑁))
198 iftrue 4533 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 = 𝑁 β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = 1)
199198adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 = 𝑁) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = 1)
20066, 183, 197, 199fmptapd 7165 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) βˆͺ {βŸ¨π‘, 1⟩}) = (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
201 eleq1 2821 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑛 = 𝑁 β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ 𝑁 ∈ (1...(𝑁 βˆ’ 1))))
202201notbid 317 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑛 = 𝑁 β†’ (Β¬ 𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↔ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1))))
203168, 202syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (𝑛 = 𝑁 β†’ Β¬ 𝑛 ∈ (1...(𝑁 βˆ’ 1))))
204203necon2ad 2955 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) β†’ 𝑛 β‰  𝑁))
205204imp 407 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ 𝑛 β‰  𝑁)
206 ifnefalse 4539 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 β‰  𝑁 β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
207205, 206syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑛 ∈ (1...(𝑁 βˆ’ 1))) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
208207mpteq2dva 5247 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
209208uneq1d 4161 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) βˆͺ {βŸ¨π‘, 1⟩}) = ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}))
210200, 209eqtr3d 2774 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = ((𝑛 ∈ (1...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) βˆͺ {βŸ¨π‘, 1⟩}))
211191, 196eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (1...𝑁) = ((1...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
212 uzid 12833 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 ∈ β„€ β†’ 1 ∈ (β„€β‰₯β€˜1))
213 peano2uz 12881 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 ∈ (β„€β‰₯β€˜1) β†’ (1 + 1) ∈ (β„€β‰₯β€˜1))
214118, 212, 213mp2b 10 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 + 1) ∈ (β„€β‰₯β€˜1)
215 fzsplit2 13522 . . . . . . . . . . . . . . . . . . . . . . . 24 (((1 + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜1)) β†’ (1...𝑁) = ((1...1) βˆͺ ((1 + 1)...𝑁)))
216214, 184, 215sylancr 587 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (1...𝑁) = ((1...1) βˆͺ ((1 + 1)...𝑁)))
217 fzsn 13539 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (1 ∈ β„€ β†’ (1...1) = {1})
218118, 217ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1...1) = {1}
219218uneq1i 4158 . . . . . . . . . . . . . . . . . . . . . . . 24 ((1...1) βˆͺ ((1 + 1)...𝑁)) = ({1} βˆͺ ((1 + 1)...𝑁))
220219equncomi 4154 . . . . . . . . . . . . . . . . . . . . . . 23 ((1...1) βˆͺ ((1 + 1)...𝑁)) = (((1 + 1)...𝑁) βˆͺ {1})
221216, 220eqtrdi 2788 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (1...𝑁) = (((1 + 1)...𝑁) βˆͺ {1}))
222210, 211, 221f1oeq123d 6824 . . . . . . . . . . . . . . . . . . . . 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 6853 . . . . . . . . . . . . . . . . . . . 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 584 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–1-1-ontoβ†’(1...𝑁))
226 dff1o3 6836 . . . . . . . . . . . . . . . . . . . 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 497 . . . . . . . . . . . . . . . . . . 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 6630 . . . . . . . . . . . . . . . . . 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 12529 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 ∈ ℝ)
232231ltp1d 12140 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 < (𝑦 + 1))
233 fzdisj 13524 . . . . . . . . . . . . . . . . . . . 20 (𝑦 < (𝑦 + 1) β†’ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁)) = βˆ…)
234232, 233syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁)) = βˆ…)
235234imaeq2d 6057 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ βˆ…))
236 ima0 6073 . . . . . . . . . . . . . . . . . 18 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ βˆ…) = βˆ…
237235, 236eqtrdi 2788 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = βˆ…)
238230, 237sylan9req 2793 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) ∩ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) = βˆ…)
239 imassrn 6068 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)) βŠ† ran (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))
240 f1of 6830 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))):(1...𝑁)⟢(1...𝑁))
241 frn 6721 . . . . . . . . . . . . . . . . . . . . 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 3992 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)) βŠ† (1...𝑁))
244243adantr 481 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)) βŠ† (1...𝑁))
245 elfz1end 13527 . . . . . . . . . . . . . . . . . . . . . 22 (𝑁 ∈ β„• ↔ 𝑁 ∈ (1...𝑁))
24666, 245sylib 217 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑁 ∈ (1...𝑁))
247 eqid 2732 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))
248198, 247, 30fvmpt 6995 . . . . . . . . . . . . . . . . . . . . 21 (𝑁 ∈ (1...𝑁) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) = 1)
249246, 248syl 17 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) = 1)
250249adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) = 1)
251 f1ofn 6831 . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁))
254 fzss1 13536 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁))
25563, 254syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁))
256255adantl 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁))
257 eluzfz2 13505 . . . . . . . . . . . . . . . . . . . . 21 (𝑁 ∈ (β„€β‰₯β€˜(𝑦 + 1)) β†’ 𝑁 ∈ ((𝑦 + 1)...𝑁))
25875, 257syl 17 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ ((𝑦 + 1)...𝑁))
259 fnfvima 7231 . . . . . . . . . . . . . . . . . . . 20 (((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁) ∧ ((𝑦 + 1)...𝑁) βŠ† (1...𝑁) ∧ 𝑁 ∈ ((𝑦 + 1)...𝑁)) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) ∈ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
260253, 256, 258, 259syl3anc 1371 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘) ∈ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
261250, 260eqeltrrd 2834 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 1 ∈ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
262 fnfvima 7231 . . . . . . . . . . . . . . . . . 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 1371 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁))))
264 imaco 6247 . . . . . . . . . . . . . . . . 17 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...𝑁)))
265263, 264eleqtrrdi 2844 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡))β€˜1) ∈ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)))
266 fnconstg 6776 . . . . . . . . . . . . . . . . . 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 6776 . . . . . . . . . . . . . . . . . 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 6980 . . . . . . . . . . . . . . . . 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 1451 . . . . . . . . . . . . . . . 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 584 . . . . . . . . . . . . . . 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 7201 . . . . . . . . . . . . . . . 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 2772 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜((2nd β€˜(1st β€˜π‘‡))β€˜1)) = 0)
276275oveq2d 7421 . . . . . . . . . . . . 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 2798 . . . . . . . . . . . 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 6888 . . . . . . . . . . . . 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 6888 . . . . . . . . . . . . . 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 7421 . . . . . . . . . . . . 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 2748 . . . . . . . . . . . 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 407 . . . . . . . . . 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 4789 . . . . . . . . . . . . . 14 (𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ↔ (𝑛 ∈ (1...𝑁) ∧ 𝑛 β‰  ((2nd β€˜(1st β€˜π‘‡))β€˜1)))
286 df-ne 2941 . . . . . . . . . . . . . . 15 (𝑛 β‰  ((2nd β€˜(1st β€˜π‘‡))β€˜1) ↔ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1))
287286anbi2i 623 . . . . . . . . . . . . . 14 ((𝑛 ∈ (1...𝑁) ∧ 𝑛 β‰  ((2nd β€˜(1st β€˜π‘‡))β€˜1)) ↔ (𝑛 ∈ (1...𝑁) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)))
288285, 287bitri 274 . . . . . . . . . . . . 13 (𝑛 ∈ ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ↔ (𝑛 ∈ (1...𝑁) ∧ Β¬ 𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1)))
289 fnconstg 6776 . . . . . . . . . . . . . . . . . 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 471 . . . . . . . . . . . . . . . 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 6630 . . . . . . . . . . . . . . . . . 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 13524 . . . . . . . . . . . . . . . . . . . 20 ((𝑦 + 1) < ((𝑦 + 1) + 1) β†’ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
29552, 294syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁)) = βˆ…)
296295imaeq2d 6057 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ βˆ…))
297296, 56eqtrdi 2788 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) ∩ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
298293, 297sylan9req 2793 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) ∩ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = βˆ…)
299 fnun 6660 . . . . . . . . . . . . . . . 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 587 . . . . . . . . . . . . . . 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 6146 . . . . . . . . . . . . . . . . 17 ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
302 fzpred 13545 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑁 ∈ (β„€β‰₯β€˜1) β†’ (1...𝑁) = ({1} βˆͺ ((1 + 1)...𝑁)))
303184, 302syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ (1...𝑁) = ({1} βˆͺ ((1 + 1)...𝑁)))
304 uncom 4152 . . . . . . . . . . . . . . . . . . . . . . . 24 ({1} βˆͺ ((1 + 1)...𝑁)) = (((1 + 1)...𝑁) βˆͺ {1})
305303, 304eqtrdi 2788 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (1...𝑁) = (((1 + 1)...𝑁) βˆͺ {1}))
306305difeq1d 4120 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ ((1...𝑁) βˆ– {1}) = ((((1 + 1)...𝑁) βˆͺ {1}) βˆ– {1}))
307 difun2 4479 . . . . . . . . . . . . . . . . . . . . . . 23 ((((1 + 1)...𝑁) βˆͺ {1}) βˆ– {1}) = (((1 + 1)...𝑁) βˆ– {1})
308 disj3 4452 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((1 + 1)...𝑁) ∩ {1}) = βˆ… ↔ ((1 + 1)...𝑁) = (((1 + 1)...𝑁) βˆ– {1}))
309179, 308mpbi 229 . . . . . . . . . . . . . . . . . . . . . . 23 ((1 + 1)...𝑁) = (((1 + 1)...𝑁) βˆ– {1})
310307, 309eqtr4i 2763 . . . . . . . . . . . . . . . . . . . . . 22 ((((1 + 1)...𝑁) βˆͺ {1}) βˆ– {1}) = ((1 + 1)...𝑁)
311306, 310eqtrdi 2788 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((1...𝑁) βˆ– {1}) = ((1 + 1)...𝑁))
312311adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((1...𝑁) βˆ– {1}) = ((1 + 1)...𝑁))
313 eluzp1p1 12846 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜(1 + 1)))
31463, 313syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1) + 1) ∈ (β„€β‰₯β€˜(1 + 1)))
315 fzsplit2 13522 . . . . . . . . . . . . . . . . . . . . 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 2772 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((1...𝑁) βˆ– {1}) = (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁)))
318317imaeq2d 6057 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))))
319 imadif 6629 . . . . . . . . . . . . . . . . . . . . 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 13504 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑁 ∈ (β„€β‰₯β€˜1) β†’ 1 ∈ (1...𝑁))
322184, 321syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ 1 ∈ (1...𝑁))
323 fnsnfv 6967 . . . . . . . . . . . . . . . . . . . . . . 23 (((2nd β€˜(1st β€˜π‘‡)) Fn (1...𝑁) ∧ 1 ∈ (1...𝑁)) β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}))
32499, 322, 323syl2anc 584 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}))
325324eqcomd 2738 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) = {((2nd β€˜(1st β€˜π‘‡))β€˜1)})
32681, 325difeq12d 4122 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑁)) βˆ– ((2nd β€˜(1st β€˜π‘‡)) β€œ {1})) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
327320, 326eqtrd 2772 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
328327adantr 481 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1...𝑁) βˆ– {1})) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
329318, 328eqtr3d 2774 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((1 + 1)...(𝑦 + 1)) βˆͺ (((𝑦 + 1) + 1)...𝑁))) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
330301, 329eqtr3id 2786 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) = ((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
331330fneq2d 6640 . . . . . . . . . . . . . . 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 4471 . . . . . . . . . . . . . . 15 (((1...𝑁) βˆ– {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) ∩ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = βˆ…
334 fnconstg 6776 . . . . . . . . . . . . . . . . . 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 6979 . . . . . . . . . . . . . . . . 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 1449 . . . . . . . . . . . . . . . 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 6776 . . . . . . . . . . . . . . . . . 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 6979 . . . . . . . . . . . . . . . . 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 1449 . . . . . . . . . . . . . . . 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 2775 . . . . . . . . . . . . . . 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 580 . . . . . . . . . . . . 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 595 . . . . . . . . . . . 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 468 . . . . . . . . . . 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 13545 . . . . . . . . . . . . . . . . . . . . 21 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ (1...(𝑦 + 1)) = ({1} βˆͺ ((1 + 1)...(𝑦 + 1))))
34863, 347syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (1...(𝑦 + 1)) = ({1} βˆͺ ((1 + 1)...(𝑦 + 1))))
349348imaeq2d 6057 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
350349adantl 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
351324uneq1d 4161 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1)))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1)))))
352 uncom 4152 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
353 imaundi 6146 . . . . . . . . . . . . . . . . . . . 20 ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
354351, 352, 3533eqtr4g 2797 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
355354adantr 481 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ({1} βˆͺ ((1 + 1)...(𝑦 + 1)))))
356350, 355eqtr4d 2775 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}))
357356xpeq1d 5704 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) Γ— {1}))
358 xpundir 5743 . . . . . . . . . . . . . . . 16 ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) βˆͺ {((2nd β€˜(1st β€˜π‘‡))β€˜1)}) Γ— {1}) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1}))
359357, 358eqtrdi 2788 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}) βˆͺ ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {1})))
360359uneq1d 4161 . . . . . . . . . . . . . 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 4167 . . . . . . . . . . . . . 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 2788 . . . . . . . . . . . . 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 6890 . . . . . . . . . . . 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 6247 . . . . . . . . . . . . . . . . 17 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)))
366 df-ima 5688 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)) = ran ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ (1...𝑦))
367 peano2uz 12881 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜π‘¦))
36871, 367syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜π‘¦))
369368adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜π‘¦))
37070, 369eqeltrrd 2834 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ (β„€β‰₯β€˜π‘¦))
371 fzss2 13537 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑁 ∈ (β„€β‰₯β€˜π‘¦) β†’ (1...𝑦) βŠ† (1...𝑁))
372370, 371syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑦) βŠ† (1...𝑁))
373372resmptd 6038 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ (1...𝑦)) = (𝑛 ∈ (1...𝑦) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
374 fzss2 13537 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑁 βˆ’ 1) ∈ (β„€β‰₯β€˜π‘¦) β†’ (1...𝑦) βŠ† (1...(𝑁 βˆ’ 1)))
37571, 374syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (1...𝑦) βŠ† (1...(𝑁 βˆ’ 1)))
376375adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑦) βŠ† (1...(𝑁 βˆ’ 1)))
377168adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑁 ∈ (1...(𝑁 βˆ’ 1)))
378376, 377ssneldd 3984 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑁 ∈ (1...𝑦))
379 eleq1 2821 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 = 𝑁 β†’ (𝑛 ∈ (1...𝑦) ↔ 𝑁 ∈ (1...𝑦)))
380379notbid 317 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛 = 𝑁 β†’ (Β¬ 𝑛 ∈ (1...𝑦) ↔ Β¬ 𝑁 ∈ (1...𝑦)))
381378, 380syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 = 𝑁 β†’ Β¬ 𝑛 ∈ (1...𝑦)))
382381necon2ad 2955 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑦) β†’ 𝑛 β‰  𝑁))
383382imp 407 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑦)) β†’ 𝑛 β‰  𝑁)
384383, 206syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑦)) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
385384mpteq2dva 5247 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑦) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)))
386373, 385eqtrd 2772 . . . . . . . . . . . . . . . . . . . . 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 2784 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)) = ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)))
389 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) = (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1))
390389elrnmpt 5953 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 ∈ V β†’ (𝑗 ∈ ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1)))
391390elv 3480 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1))
392 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 𝑦 ∈ β„€)
393392adantl 482 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑦 ∈ β„€)
394 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ 𝑛 ∈ (1...𝑦))
395118jctl 524 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ β„€ β†’ (1 ∈ β„€ ∧ 𝑦 ∈ β„€))
396 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ (1...𝑦) β†’ 𝑛 ∈ β„€)
397396, 118jctir 521 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛 ∈ (1...𝑦) β†’ (𝑛 ∈ β„€ ∧ 1 ∈ β„€))
398 fzaddel 13531 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((1 ∈ β„€ ∧ 𝑦 ∈ β„€) ∧ (𝑛 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑛 ∈ (1...𝑦) ↔ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1))))
399395, 397, 398syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ (𝑛 ∈ (1...𝑦) ↔ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1))))
400394, 399mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1)))
401 eleq1 2821 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = (𝑛 + 1) β†’ (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) ↔ (𝑛 + 1) ∈ ((1 + 1)...(𝑦 + 1))))
402400, 401syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑦 ∈ β„€ ∧ 𝑛 ∈ (1...𝑦)) β†’ (𝑗 = (𝑛 + 1) β†’ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
403402rexlimdva 3155 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ β„€ β†’ (βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1) β†’ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
404 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ 𝑗 ∈ β„€)
405404zcnd 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ 𝑗 ∈ β„‚)
406 npcan1 11635 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ β„‚ β†’ ((𝑗 βˆ’ 1) + 1) = 𝑗)
407405, 406syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ ((𝑗 βˆ’ 1) + 1) = 𝑗)
408407eleq1d 2818 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ (((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1)) ↔ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))))
409408ibir 267 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1)))
410409adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1)))
411 peano2zm 12601 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ β„€ β†’ (𝑗 βˆ’ 1) ∈ β„€)
412404, 411syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ (𝑗 βˆ’ 1) ∈ β„€)
413412, 118jctir 521 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 ∈ ((1 + 1)...(𝑦 + 1)) β†’ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€))
414 fzaddel 13531 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((1 ∈ β„€ ∧ 𝑦 ∈ β„€) ∧ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€)) β†’ ((𝑗 βˆ’ 1) ∈ (1...𝑦) ↔ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1))))
415395, 413, 414syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ ((𝑗 βˆ’ 1) ∈ (1...𝑦) ↔ ((𝑗 βˆ’ 1) + 1) ∈ ((1 + 1)...(𝑦 + 1))))
416410, 415mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ (𝑗 βˆ’ 1) ∈ (1...𝑦))
417405adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ 𝑗 ∈ β„‚)
418406eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 ∈ β„‚ β†’ 𝑗 = ((𝑗 βˆ’ 1) + 1))
419417, 418syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ 𝑗 = ((𝑗 βˆ’ 1) + 1))
420 oveq1 7412 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑛 = (𝑗 βˆ’ 1) β†’ (𝑛 + 1) = ((𝑗 βˆ’ 1) + 1))
421420rspceeqv 3632 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑗 βˆ’ 1) ∈ (1...𝑦) ∧ 𝑗 = ((𝑗 βˆ’ 1) + 1)) β†’ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1))
422416, 419, 421syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑦 ∈ β„€ ∧ 𝑗 ∈ ((1 + 1)...(𝑦 + 1))) β†’ βˆƒπ‘› ∈ (1...𝑦)𝑗 = (𝑛 + 1))
423422ex 413 . . . . . . . . . . . . . . . . . . . . . . 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 2730 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ran (𝑛 ∈ (1...𝑦) ↦ (𝑛 + 1)) = ((1 + 1)...(𝑦 + 1)))
428388, 427eqtrd 2772 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦)) = ((1 + 1)...(𝑦 + 1)))
429428imaeq2d 6057 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ (1...𝑦))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
430365, 429eqtrid 2784 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))))
431430xpeq1d 5704 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((1 + 1)...(𝑦 + 1))) Γ— {1}))
432 imaundi 6146 . . . . . . . . . . . . . . . . . . 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 6247 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ {𝑁}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
434 imaco 6247 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
435433, 434uneq12i 4160 . . . . . . . . . . . . . . . . . . 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 2760 . . . . . . . . . . . . . . . . . 18 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1)))) = (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})) βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1)))))
437189adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)))
438 fzsplit2 13522 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑁 βˆ’ 1) + 1) ∈ (β„€β‰₯β€˜(𝑦 + 1)) ∧ 𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
43973, 437, 438syl2an2 684 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)))
440195uneq2d 4162 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
441440adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ (((𝑁 βˆ’ 1) + 1)...𝑁)) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
442439, 441eqtrd 2772 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}))
443 uncom 4152 . . . . . . . . . . . . . . . . . . . 20 (((𝑦 + 1)...(𝑁 βˆ’ 1)) βˆͺ {𝑁}) = ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
444442, 443eqtrdi 2788 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...𝑁) = ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
445444imaeq2d 6057 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) = (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ({𝑁} βˆͺ ((𝑦 + 1)...(𝑁 βˆ’ 1)))))
446249sneqd 4639 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ {((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘)} = {1})
447 fnsnfv 6967 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) Fn (1...𝑁) ∧ 𝑁 ∈ (1...𝑁)) β†’ {((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘)} = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
448252, 246, 447syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ {((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))β€˜π‘)} = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
449446, 448eqtr3d 2774 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ {1} = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁}))
450449imaeq2d 6057 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ {1}) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})))
451324, 450eqtrd 2772 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})))
452451adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ {((2nd β€˜(1st β€˜π‘‡))β€˜1)} = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ {𝑁})))
453 df-ima 5688 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = ran ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
454 fzss1 13536 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑦 + 1) ∈ (β„€β‰₯β€˜1) β†’ ((𝑦 + 1)...(𝑁 βˆ’ 1)) βŠ† (1...(𝑁 βˆ’ 1)))
45563, 454syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ ((𝑦 + 1)...(𝑁 βˆ’ 1)) βŠ† (1...(𝑁 βˆ’ 1)))
456 fzss2 13537 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (β„€β‰₯β€˜(𝑁 βˆ’ 1)) β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
457189, 456syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ (1...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
458455, 457sylan9ssr 3995 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1)...(𝑁 βˆ’ 1)) βŠ† (1...𝑁))
459458resmptd 6038 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β†Ύ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
460 elfzle2 13501 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ 𝑁 ≀ (𝑁 βˆ’ 1))
461166, 460nsyl 140 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (πœ‘ β†’ Β¬ 𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
462 eleq1 2821 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑛 = 𝑁 β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ 𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
463462notbid 317 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑛 = 𝑁 β†’ (Β¬ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ Β¬ 𝑁 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
464461, 463syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (πœ‘ β†’ (𝑛 = 𝑁 β†’ Β¬ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
465464con2d 134 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ Β¬ 𝑛 = 𝑁))
466465imp 407 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((πœ‘ ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑛 = 𝑁)
467466iffalsed 4538 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ if(𝑛 = 𝑁, 1, (𝑛 + 1)) = (𝑛 + 1))
468467mpteq2dva 5247 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
469468adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
470459, 469eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . 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 2784 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))) = ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
473 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ 𝑗 ∈ β„€)
474473zcnd 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ 𝑗 ∈ β„‚)
475474, 406syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ ((𝑗 βˆ’ 1) + 1) = 𝑗)
476475eleq1d 2818 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ ((𝑗 βˆ’ 1) + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)))
47950nnzd 12581 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ (𝑦 + 1) ∈ β„€)
480117, 479anim12ci 614 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((𝑦 + 1) ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€))
481473, 411syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ (𝑗 βˆ’ 1) ∈ β„€)
482481, 118jctir 521 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€))
483 fzaddel 13531 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝑦 + 1) ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) ∧ ((𝑗 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€)) β†’ ((𝑗 βˆ’ 1) ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ ((𝑗 βˆ’ 1) + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
484480, 482, 483syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ 𝑗 = ((𝑗 βˆ’ 1) + 1))
488420rspceeqv 3632 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝑗 βˆ’ 1) ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ∧ 𝑗 = ((𝑗 βˆ’ 1) + 1)) β†’ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1))
489485, 487, 488syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))) β†’ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1))
490489ex 413 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) β†’ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1)))
491 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))) β†’ 𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)))
492 elfzelz 13497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ 𝑛 ∈ β„€)
493492, 118jctir 521 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) β†’ (𝑛 ∈ β„€ ∧ 1 ∈ β„€))
494 fzaddel 13531 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((𝑦 + 1) ∈ β„€ ∧ (𝑁 βˆ’ 1) ∈ β„€) ∧ (𝑛 ∈ β„€ ∧ 1 ∈ β„€)) β†’ (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↔ (𝑛 + 1) ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1))))
495480, 493, 494syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2821 . . . . . . . . . . . . . . . . . . . . . . . . . 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 3155 . . . . . . . . . . . . . . . . . . . . . . . 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 2732 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) = (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1))
502501elrnmpt 5953 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ V β†’ (𝑗 ∈ ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1)))
503502elv 3480 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)) ↔ βˆƒπ‘› ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1))𝑗 = (𝑛 + 1))
504500, 503bitr4di 288 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑗 ∈ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) ↔ 𝑗 ∈ ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1))))
505504eqrdv 2730 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) = ran (𝑛 ∈ ((𝑦 + 1)...(𝑁 βˆ’ 1)) ↦ (𝑛 + 1)))
50669oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) = (((𝑦 + 1) + 1)...𝑁))
507506adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1) + 1)...((𝑁 βˆ’ 1) + 1)) = (((𝑦 + 1) + 1)...𝑁))
508472, 505, 5073eqtr2rd 2779 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((𝑦 + 1) + 1)...𝑁) = ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1))))
509508imaeq2d 6057 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))) β€œ ((𝑦 + 1)...(𝑁 βˆ’ 1)))))
510452, 509uneq12d 4163 . . . . . . . . . . . . . . . . . 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 2798 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) = ({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))))
512511xpeq1d 5704 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}) = (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) Γ— {0}))
513 xpundir 5743 . . . . . . . . . . . . . . . 16 (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} βˆͺ ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁))) Γ— {0}) = (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))
514512, 513eqtrdi 2788 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}) = (({((2nd β€˜(1st β€˜π‘‡))β€˜1)} Γ— {0}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})))
515431, 514uneq12d 4163 . . . . . . . . . . . . . 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 4165 . . . . . . . . . . . . . . 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 4167 . . . . . . . . . . . . . . 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 2762 . . . . . . . . . . . . . 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 2788 . . . . . . . . . . . . 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 6890 . . . . . . . . . . . 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 2782 . . . . . . . . . 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 4810 . . . . . . . . . . . . . . 15 (1 ∈ β„‚ β†’ {1} βŠ† β„‚)
524138, 523ax-mp 5 . . . . . . . . . . . . . 14 {1} βŠ† β„‚
525 0cn 11202 . . . . . . . . . . . . . . 15 0 ∈ β„‚
526 snssi 4810 . . . . . . . . . . . . . . 15 (0 ∈ β„‚ β†’ {0} βŠ† β„‚)
527525, 526ax-mp 5 . . . . . . . . . . . . . 14 {0} βŠ† β„‚
528524, 527unssi 4184 . . . . . . . . . . . . 13 ({1} βˆͺ {0}) βŠ† β„‚
52930fconst 6774 . . . . . . . . . . . . . . . . 17 ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦))⟢{1}
53033fconst 6774 . . . . . . . . . . . . . . . . 17 ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}):(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))⟢{0}
531529, 530pm3.2i 471 . . . . . . . . . . . . . . . 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 6750 . . . . . . . . . . . . . . . 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 587 . . . . . . . . . . . . . . 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 6146 . . . . . . . . . . . . . . . . 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 13522 . . . . . . . . . . . . . . . . . . . 20 (((𝑦 + 1) ∈ (β„€β‰₯β€˜1) ∧ 𝑁 ∈ (β„€β‰₯β€˜π‘¦)) β†’ (1...𝑁) = ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁)))
53663, 370, 535syl2an2 684 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (1...𝑁) = ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁)))
537536imaeq2d 6057 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑁)) = (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁))))
538 f1ofo 6837 . . . . . . . . . . . . . . . . . . . 20 (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–1-1-ontoβ†’(1...𝑁) β†’ ((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))):(1...𝑁)–ontoβ†’(1...𝑁))
539 foima 6807 . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑁)) = (1...𝑁))
542537, 541eqtr3d 2774 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((1...𝑦) βˆͺ ((𝑦 + 1)...𝑁))) = (1...𝑁))
543534, 542eqtr3id 2786 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))) = (1...𝑁))
544543feq2d 6700 . . . . . . . . . . . . . . 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 7083 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) ∈ ({1} βˆͺ {0}))
547528, 546sselid 3979 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) ∈ β„‚)
548547addlidd 11411 . . . . . . . . . . 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 481 . . . . . . . . . 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 2775 . . . . . . . . 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 4565 . . . . . . . 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 7421 . . . . . . 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 8839 . . . . . . . . . . . . 13 ((1st β€˜(1st β€˜π‘‡)) ∈ ((0..^𝐾) ↑m (1...𝑁)) β†’ (1st β€˜(1st β€˜π‘‡)):(1...𝑁)⟢(0..^𝐾))
55426, 553syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (1st β€˜(1st β€˜π‘‡)):(1...𝑁)⟢(0..^𝐾))
555554ffvelcdmda 7083 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ (0..^𝐾))
556 elfzonn0 13673 . . . . . . . . . . 11 (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ (0..^𝐾) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„•0)
557555, 556syl 17 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„•0)
558557nn0cnd 12530 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„‚)
559558adantlr 713 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((1st β€˜(1st β€˜π‘‡))β€˜π‘›) ∈ β„‚)
560138, 525ifcli 4574 . . . . . . . . 9 if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) ∈ β„‚
561560a1i 11 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0) ∈ β„‚)
562559, 561, 547addassd 11232 . . . . . . 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 2775 . . . . . 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 5247 . . . . 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 2772 . . . 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 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (2nd β€˜π‘‡) = 0)
568 elfzle1 13500 . . . . . . . . . 10 (𝑦 ∈ (0...(𝑁 βˆ’ 1)) β†’ 0 ≀ 𝑦)
569568adantl 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ 0 ≀ 𝑦)
570567, 569eqbrtrd 5169 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (2nd β€˜π‘‡) ≀ 𝑦)
571 0re 11212 . . . . . . . . . 10 0 ∈ ℝ
572566, 571eqeltrdi 2841 . . . . . . . . 9 (πœ‘ β†’ (2nd β€˜π‘‡) ∈ ℝ)
573 lenlt 11288 . . . . . . . . 9 (((2nd β€˜π‘‡) ∈ ℝ ∧ 𝑦 ∈ ℝ) β†’ ((2nd β€˜π‘‡) ≀ 𝑦 ↔ Β¬ 𝑦 < (2nd β€˜π‘‡)))
574572, 231, 573syl2an 596 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ ((2nd β€˜π‘‡) ≀ 𝑦 ↔ Β¬ 𝑦 < (2nd β€˜π‘‡)))
575570, 574mpbid 231 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ Β¬ 𝑦 < (2nd β€˜π‘‡))
576575iffalsed 4538 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ if(𝑦 < (2nd β€˜π‘‡), 𝑦, (𝑦 + 1)) = (𝑦 + 1))
577576csbeq1d 3896 . . . . 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 7438 . . . . . 6 (𝑦 + 1) ∈ V
579 oveq2 7413 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) β†’ (1...𝑗) = (1...(𝑦 + 1)))
580579imaeq2d 6057 . . . . . . . . 9 (𝑗 = (𝑦 + 1) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))))
581580xpeq1d 5704 . . . . . . . 8 (𝑗 = (𝑦 + 1) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}))
582 oveq1 7412 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) β†’ (𝑗 + 1) = ((𝑦 + 1) + 1))
583582oveq1d 7420 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) β†’ ((𝑗 + 1)...𝑁) = (((𝑦 + 1) + 1)...𝑁))
584583imaeq2d 6057 . . . . . . . . 9 (𝑗 = (𝑦 + 1) β†’ ((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) = ((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)))
585584xpeq1d 5704 . . . . . . . 8 (𝑗 = (𝑦 + 1) β†’ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0}) = (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0}))
586581, 585uneq12d 4163 . . . . . . 7 (𝑗 = (𝑦 + 1) β†’ ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...𝑗)) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ ((𝑗 + 1)...𝑁)) Γ— {0})) = ((((2nd β€˜(1st β€˜π‘‡)) β€œ (1...(𝑦 + 1))) Γ— {1}) βˆͺ (((2nd β€˜(1st β€˜π‘‡)) β€œ (((𝑦 + 1) + 1)...𝑁)) Γ— {0})))
587586oveq2d 7421 . . . . . 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 3928 . . . . 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 2788 . . . 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 7440 . . . . 5 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0)) ∈ V)
591 fvexd 6903 . . . . 5 (((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) ∧ 𝑛 ∈ (1...𝑁)) β†’ ((((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))β€˜π‘›) ∈ V)
592 eqidd 2733 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))) = (𝑛 ∈ (1...𝑁) ↦ (((1st β€˜(1st β€˜π‘‡))β€˜π‘›) + if(𝑛 = ((2nd β€˜(1st β€˜π‘‡))β€˜1), 1, 0))))
593545ffnd 6715 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ (0...(𝑁 βˆ’ 1))) β†’ (((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})) Fn (1...𝑁))
594 nfcv 2903 . . . . . . . . . . 11 Ⅎ𝑛(2nd β€˜(1st β€˜π‘‡))
595 nfmpt1 5255 . . . . . . . . . . 11 Ⅎ𝑛(𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))
596594, 595nfco 5863 . . . . . . . . . 10 Ⅎ𝑛((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1))))
597 nfcv 2903 . . . . . . . . . 10 Ⅎ𝑛(1...𝑦)
598596, 597nfima 6065 . . . . . . . . 9 Ⅎ𝑛(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦))
599 nfcv 2903 . . . . . . . . 9 Ⅎ𝑛{1}
600598, 599nfxp 5708 . . . . . . . 8 Ⅎ𝑛((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1})
601 nfcv 2903 . . . . . . . . . 10 Ⅎ𝑛((𝑦 + 1)...𝑁)
602596, 601nfima 6065 . . . . . . . . 9 Ⅎ𝑛(((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁))
603 nfcv 2903 . . . . . . . . 9 Ⅎ𝑛{0}
604602, 603nfxp 5708 . . . . . . . 8 Ⅎ𝑛((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0})
605600, 604nfun 4164 . . . . . . 7 Ⅎ𝑛(((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ (1...𝑦)) Γ— {1}) βˆͺ ((((2nd β€˜(1st β€˜π‘‡)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 𝑁, 1, (𝑛 + 1)))) β€œ ((𝑦 + 1)...𝑁)) Γ— {0}))
606605dffn5f 6960 . . . . . 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 7686 . . . 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 2783 . . 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 5247 . 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 2775 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 396   = wceq 1541   ∈ wcel 2106  {cab 2709   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  βˆƒ!wreu 3374  {crab 3432  Vcvv 3474  β¦‹csb 3892   βˆ– cdif 3944   βˆͺ cun 3945   ∩ cin 3946   βŠ† wss 3947  βˆ…c0 4321  ifcif 4527  {csn 4627  βŸ¨cop 4633   class class class wbr 5147   ↦ cmpt 5230   Γ— cxp 5673  β—‘ccnv 5674  ran crn 5676   β†Ύ cres 5677   β€œ cima 5678   ∘ ccom 5679  Fun wfun 6534   Fn wfn 6535  βŸΆwf 6536  β€“ontoβ†’wfo 6538  β€“1-1-ontoβ†’wf1o 6539  β€˜cfv 6540  (class class class)co 7405   ∘f cof 7664  1st c1st 7969  2nd c2nd 7970   ↑m cmap 8816  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  β„•cn 12208  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  ...cfz 13480  ..^cfzo 13623
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-er 8699  df-map 8818  df-en 8936  df-dom 8937  df-sdom 8938  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-nn 12209  df-n0 12469  df-z 12555  df-uz 12819  df-fz 13481  df-fzo 13624
This theorem is referenced by:  poimirlem17  36493
  Copyright terms: Public domain W3C validator