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

Theorem poimirlem20 36098
Description: Lemma for poimir 36111 establishing existence for poimirlem21 36099. (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 (𝜑𝑇𝑆)
poimirlem22.3 ((𝜑𝑛 ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝𝑛) ≠ 0)
poimirlem21.4 (𝜑 → (2nd𝑇) = 𝑁)
Assertion
Ref Expression
poimirlem20 (𝜑 → ∃𝑧𝑆 𝑧𝑇)
Distinct variable groups:   𝑓,𝑗,𝑛,𝑝,𝑡,𝑦,𝑧   𝜑,𝑗,𝑛,𝑦   𝑗,𝐹,𝑛,𝑦   𝑗,𝑁,𝑛,𝑦   𝑇,𝑗,𝑛,𝑦   𝜑,𝑝,𝑡   𝑓,𝐾,𝑗,𝑛,𝑝,𝑡   𝑓,𝑁,𝑝,𝑡   𝑇,𝑓,𝑝   𝜑,𝑧   𝑓,𝐹,𝑝,𝑡,𝑧   𝑧,𝐾   𝑧,𝑁   𝑡,𝑇,𝑧   𝑆,𝑗,𝑛,𝑝,𝑡,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem20
StepHypRef Expression
1 oveq2 7365 . . . . . . . . 9 (1 = if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0) → (((1st ‘(1st𝑇))‘𝑛) − 1) = (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0)))
21eleq1d 2822 . . . . . . . 8 (1 = if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0) → ((((1st ‘(1st𝑇))‘𝑛) − 1) ∈ (0..^𝐾) ↔ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0)) ∈ (0..^𝐾)))
3 oveq2 7365 . . . . . . . . 9 (0 = if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0) → (((1st ‘(1st𝑇))‘𝑛) − 0) = (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0)))
43eleq1d 2822 . . . . . . . 8 (0 = if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0) → ((((1st ‘(1st𝑇))‘𝑛) − 0) ∈ (0..^𝐾) ↔ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0)) ∈ (0..^𝐾)))
5 fveq2 6842 . . . . . . . . . . . 12 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → ((1st ‘(1st𝑇))‘𝑛) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
65oveq1d 7372 . . . . . . . . . . 11 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → (((1st ‘(1st𝑇))‘𝑛) − 1) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1))
76adantl 482 . . . . . . . . . 10 ((𝜑𝑛 = ((2nd ‘(1st𝑇))‘𝑁)) → (((1st ‘(1st𝑇))‘𝑛) − 1) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1))
8 poimirlem22.2 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑇𝑆)
9 elrabi 3639 . . . . . . . . . . . . . . . . . . . . 21 (𝑇 ∈ {𝑡 ∈ ((((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...𝑁)))
10 poimirlem22.s . . . . . . . . . . . . . . . . . . . . 21 𝑆 = {𝑡 ∈ ((((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}))))}
119, 10eleq2s 2856 . . . . . . . . . . . . . . . . . . . 20 (𝑇𝑆𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
128, 11syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
13 xp1st 7953 . . . . . . . . . . . . . . . . . . 19 (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
1412, 13syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
15 xp1st 7953 . . . . . . . . . . . . . . . . . 18 ((1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
1614, 15syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
17 elmapi 8787 . . . . . . . . . . . . . . . . 17 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
1816, 17syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
19 xp2nd 7954 . . . . . . . . . . . . . . . . . . . 20 ((1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
2014, 19syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
21 fvex 6855 . . . . . . . . . . . . . . . . . . . 20 (2nd ‘(1st𝑇)) ∈ V
22 f1oeq1 6772 . . . . . . . . . . . . . . . . . . . 20 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
2321, 22elab 3630 . . . . . . . . . . . . . . . . . . 19 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
2420, 23sylib 217 . . . . . . . . . . . . . . . . . 18 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
25 f1of 6784 . . . . . . . . . . . . . . . . . 18 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)):(1...𝑁)⟶(1...𝑁))
2624, 25syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)⟶(1...𝑁))
27 poimir.0 . . . . . . . . . . . . . . . . . 18 (𝜑𝑁 ∈ ℕ)
28 elfz1end 13471 . . . . . . . . . . . . . . . . . 18 (𝑁 ∈ ℕ ↔ 𝑁 ∈ (1...𝑁))
2927, 28sylib 217 . . . . . . . . . . . . . . . . 17 (𝜑𝑁 ∈ (1...𝑁))
3026, 29ffvelcdmd 7036 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁))
3118, 30ffvelcdmd 7036 . . . . . . . . . . . . . . 15 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ (0..^𝐾))
32 elfzonn0 13617 . . . . . . . . . . . . . . 15 (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ (0..^𝐾) → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ0)
3331, 32syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ0)
34 fvex 6855 . . . . . . . . . . . . . . . . 17 ((2nd ‘(1st𝑇))‘𝑁) ∈ V
35 eleq1 2825 . . . . . . . . . . . . . . . . . . 19 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → (𝑛 ∈ (1...𝑁) ↔ ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁)))
3635anbi2d 629 . . . . . . . . . . . . . . . . . 18 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → ((𝜑𝑛 ∈ (1...𝑁)) ↔ (𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁))))
37 fveq2 6842 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → (𝑝𝑛) = (𝑝‘((2nd ‘(1st𝑇))‘𝑁)))
3837neeq1d 3003 . . . . . . . . . . . . . . . . . . 19 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → ((𝑝𝑛) ≠ 0 ↔ (𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0))
3938rexbidv 3175 . . . . . . . . . . . . . . . . . 18 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → (∃𝑝 ∈ ran 𝐹(𝑝𝑛) ≠ 0 ↔ ∃𝑝 ∈ ran 𝐹(𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0))
4036, 39imbi12d 344 . . . . . . . . . . . . . . . . 17 (𝑛 = ((2nd ‘(1st𝑇))‘𝑁) → (((𝜑𝑛 ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝𝑛) ≠ 0) ↔ ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0)))
41 poimirlem22.3 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝𝑛) ≠ 0)
4234, 40, 41vtocl 3518 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0)
4330, 42mpdan 685 . . . . . . . . . . . . . . 15 (𝜑 → ∃𝑝 ∈ ran 𝐹(𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0)
44 fveq1 6841 . . . . . . . . . . . . . . . . . . . . 21 (𝑝 = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))) → (𝑝‘((2nd ‘(1st𝑇))‘𝑁)) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑁)))
4518ffnd 6669 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (1st ‘(1st𝑇)) Fn (1...𝑁))
4645adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (1st ‘(1st𝑇)) Fn (1...𝑁))
47 1ex 11151 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 1 ∈ V
48 fnconstg 6730 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (1 ∈ V → (((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑦)))
4947, 48ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑦))
50 c0ex 11149 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 0 ∈ V
51 fnconstg 6730 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (0 ∈ V → (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
5250, 51ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))
5349, 52pm3.2i 471 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑦)) ∧ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
54 dff1o3 6790 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) ∧ Fun (2nd ‘(1st𝑇))))
5554simprbi 497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → Fun (2nd ‘(1st𝑇)))
5624, 55syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝜑 → Fun (2nd ‘(1st𝑇)))
57 imain 6586 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))))
5856, 57syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))))
59 elfznn0 13534 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 ∈ ℕ0)
6059nn0red 12474 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 ∈ ℝ)
6160ltp1d 12085 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 < (𝑦 + 1))
62 fzdisj 13468 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑦 < (𝑦 + 1) → ((1...𝑦) ∩ ((𝑦 + 1)...𝑁)) = ∅)
6361, 62syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ (0...(𝑁 − 1)) → ((1...𝑦) ∩ ((𝑦 + 1)...𝑁)) = ∅)
6463imaeq2d 6013 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ (0...(𝑁 − 1)) → ((2nd ‘(1st𝑇)) “ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = ((2nd ‘(1st𝑇)) “ ∅))
65 ima0 6029 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((2nd ‘(1st𝑇)) “ ∅) = ∅
6664, 65eqtrdi 2792 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ (0...(𝑁 − 1)) → ((2nd ‘(1st𝑇)) “ ((1...𝑦) ∩ ((𝑦 + 1)...𝑁))) = ∅)
6758, 66sylan9req 2797 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) = ∅)
68 fnun 6614 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑦)) ∧ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) ∧ (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) = ∅) → ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))))
6953, 67, 68sylancr 587 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))))
70 imaundi 6102 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((2nd ‘(1st𝑇)) “ ((1...𝑦) ∪ ((𝑦 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
71 nn0p1nn 12452 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 ∈ ℕ0 → (𝑦 + 1) ∈ ℕ)
72 nnuz 12806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ℕ = (ℤ‘1)
7371, 72eleqtrdi 2848 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 ∈ ℕ0 → (𝑦 + 1) ∈ (ℤ‘1))
7459, 73syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 ∈ (0...(𝑁 − 1)) → (𝑦 + 1) ∈ (ℤ‘1))
7574adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑦 + 1) ∈ (ℤ‘1))
7627nncnd 12169 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝜑𝑁 ∈ ℂ)
77 npcan1 11580 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑁 ∈ ℂ → ((𝑁 − 1) + 1) = 𝑁)
7876, 77syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
7978adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((𝑁 − 1) + 1) = 𝑁)
80 elfzuz3 13438 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑦 ∈ (0...(𝑁 − 1)) → (𝑁 − 1) ∈ (ℤ𝑦))
81 peano2uz 12826 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑁 − 1) ∈ (ℤ𝑦) → ((𝑁 − 1) + 1) ∈ (ℤ𝑦))
8280, 81syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ𝑦))
8382adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((𝑁 − 1) + 1) ∈ (ℤ𝑦))
8479, 83eqeltrrd 2839 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ (ℤ𝑦))
85 fzsplit2 13466 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝑦 + 1) ∈ (ℤ‘1) ∧ 𝑁 ∈ (ℤ𝑦)) → (1...𝑁) = ((1...𝑦) ∪ ((𝑦 + 1)...𝑁)))
8675, 84, 85syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (1...𝑁) = ((1...𝑦) ∪ ((𝑦 + 1)...𝑁)))
8786imaeq2d 6013 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = ((2nd ‘(1st𝑇)) “ ((1...𝑦) ∪ ((𝑦 + 1)...𝑁))))
88 f1ofo 6791 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
89 foima 6761 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
9024, 88, 893syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
9190adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
9287, 91eqtr3d 2778 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st𝑇)) “ ((1...𝑦) ∪ ((𝑦 + 1)...𝑁))) = (1...𝑁))
9370, 92eqtr3id 2790 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) = (1...𝑁))
9493fneq2d 6596 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...𝑦)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) ↔ ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})) Fn (1...𝑁)))
9569, 94mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})) Fn (1...𝑁))
96 ovex 7390 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1...𝑁) ∈ V
9796a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (1...𝑁) ∈ V)
98 inidm 4178 . . . . . . . . . . . . . . . . . . . . . . . 24 ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
99 eqidd 2737 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
100 f1ofn 6785 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)) Fn (1...𝑁))
10124, 100syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝜑 → (2nd ‘(1st𝑇)) Fn (1...𝑁))
102101adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (2nd ‘(1st𝑇)) Fn (1...𝑁))
103 fzss1 13480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑦 + 1) ∈ (ℤ‘1) → ((𝑦 + 1)...𝑁) ⊆ (1...𝑁))
10474, 103syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑦 + 1)...𝑁) ⊆ (1...𝑁))
105104adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((𝑦 + 1)...𝑁) ⊆ (1...𝑁))
106 eluzp1p1 12791 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑁 − 1) ∈ (ℤ𝑦) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑦 + 1)))
107 uzss 12786 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝑁 − 1) + 1) ∈ (ℤ‘(𝑦 + 1)) → (ℤ‘((𝑁 − 1) + 1)) ⊆ (ℤ‘(𝑦 + 1)))
10880, 106, 1073syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 ∈ (0...(𝑁 − 1)) → (ℤ‘((𝑁 − 1) + 1)) ⊆ (ℤ‘(𝑦 + 1)))
109108adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (ℤ‘((𝑁 − 1) + 1)) ⊆ (ℤ‘(𝑦 + 1)))
11027nnzd 12526 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝜑𝑁 ∈ ℤ)
111110uzidd 12779 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝜑𝑁 ∈ (ℤ𝑁))
11278fveq2d 6846 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝜑 → (ℤ‘((𝑁 − 1) + 1)) = (ℤ𝑁))
113111, 112eleqtrrd 2841 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝜑𝑁 ∈ (ℤ‘((𝑁 − 1) + 1)))
114113adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ (ℤ‘((𝑁 − 1) + 1)))
115109, 114sseldd 3945 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ (ℤ‘(𝑦 + 1)))
116 eluzfz2 13449 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑁 ∈ (ℤ‘(𝑦 + 1)) → 𝑁 ∈ ((𝑦 + 1)...𝑁))
117115, 116syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ ((𝑦 + 1)...𝑁))
118 fnfvima 7183 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((2nd ‘(1st𝑇)) Fn (1...𝑁) ∧ ((𝑦 + 1)...𝑁) ⊆ (1...𝑁) ∧ 𝑁 ∈ ((𝑦 + 1)...𝑁)) → ((2nd ‘(1st𝑇))‘𝑁) ∈ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
119102, 105, 117, 118syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st𝑇))‘𝑁) ∈ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
120 fvun2 6933 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑦)) ∧ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) ∧ ((((2nd ‘(1st𝑇)) “ (1...𝑦)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) = ∅ ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))) → (((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑁)) = ((((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑁)))
12149, 52, 120mp3an12 1451 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((2nd ‘(1st𝑇)) “ (1...𝑦)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) = ∅ ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁))) → (((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑁)) = ((((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑁)))
12267, 119, 121syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑁)) = ((((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑁)))
12350fvconst2 7153 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((2nd ‘(1st𝑇))‘𝑁) ∈ ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) → ((((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑁)) = 0)
124119, 123syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑁)) = 0)
125122, 124eqtrd 2776 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑁)) = 0)
126125adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑁)) = 0)
12746, 95, 97, 97, 98, 99, 126ofval 7628 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ((2nd ‘(1st𝑇))‘𝑁) ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑁)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) + 0))
12830, 127mpidan 687 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑁)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) + 0))
12933nn0cnd 12475 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℂ)
130129addid1d 11355 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) + 0) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
131130adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) + 0) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
132128, 131eqtrd 2776 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑁)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
13344, 132sylan9eqr 2798 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑝 = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))) → (𝑝‘((2nd ‘(1st𝑇))‘𝑁)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
134133adantllr 717 . . . . . . . . . . . . . . . . . . 19 ((((𝜑𝑝 ∈ ran 𝐹) ∧ 𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑝 = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))) → (𝑝‘((2nd ‘(1st𝑇))‘𝑁)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
135 fveq2 6842 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
136135breq2d 5117 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
137136ifbid 4509 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
138 2fveq3 6847 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
139 2fveq3 6847 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
140139imaeq1d 6012 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
141140xpeq1d 5662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
142139imaeq1d 6012 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
143142xpeq1d 5662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
144141, 143uneq12d 4124 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
145138, 144oveq12d 7375 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
146137, 145csbeq12dv 3864 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑡 = 𝑇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}))))
147146mpteq2dv 5207 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑡 = 𝑇 → (𝑦 ∈ (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})))))
148147eqeq2d 2747 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (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}))))))
149148, 10elrab2 3648 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑇𝑆 ↔ (𝑇 ∈ ((((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}))))))
150149simprbi 497 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑇𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
1518, 150syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
15260adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑦 ∈ ℝ)
153 peano2zm 12546 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑁 ∈ ℤ → (𝑁 − 1) ∈ ℤ)
154110, 153syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝜑 → (𝑁 − 1) ∈ ℤ)
155154zred 12607 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝜑 → (𝑁 − 1) ∈ ℝ)
156155adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑁 − 1) ∈ ℝ)
15727nnred 12168 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝜑𝑁 ∈ ℝ)
158157adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ ℝ)
159 elfzle2 13445 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 ≤ (𝑁 − 1))
160159adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑦 ≤ (𝑁 − 1))
161157ltm1d 12087 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝜑 → (𝑁 − 1) < 𝑁)
162161adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑁 − 1) < 𝑁)
163152, 156, 158, 160, 162lelttrd 11313 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑦 < 𝑁)
164 poimirlem21.4 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝜑 → (2nd𝑇) = 𝑁)
165164adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (2nd𝑇) = 𝑁)
166163, 165breqtrrd 5133 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑦 < (2nd𝑇))
167166iftrued 4494 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = 𝑦)
168167csbeq1d 3859 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = 𝑦 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
169 vex 3449 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑦 ∈ V
170 oveq2 7365 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 = 𝑦 → (1...𝑗) = (1...𝑦))
171170imaeq2d 6013 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 = 𝑦 → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑦)))
172171xpeq1d 5662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 = 𝑦 → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}))
173 oveq1 7364 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑗 = 𝑦 → (𝑗 + 1) = (𝑦 + 1))
174173oveq1d 7372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (𝑗 = 𝑦 → ((𝑗 + 1)...𝑁) = ((𝑦 + 1)...𝑁))
175174imaeq2d 6013 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑗 = 𝑦 → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
176175xpeq1d 5662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 = 𝑦 → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))
177172, 176uneq12d 4124 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑗 = 𝑦 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))
178177oveq2d 7373 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 = 𝑦 → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
179169, 178csbie 3891 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑦 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))
180168, 179eqtrdi 2792 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
181180mpteq2dva 5205 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))))
182151, 181eqtrd 2776 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))))
183182rneqd 5893 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ran 𝐹 = ran (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))))
184183eleq2d 2823 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (𝑝 ∈ ran 𝐹𝑝 ∈ ran (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))))
185 eqid 2736 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
186 ovex 7390 . . . . . . . . . . . . . . . . . . . . . 22 ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))) ∈ V
187185, 186elrnmpti 5915 . . . . . . . . . . . . . . . . . . . . 21 (𝑝 ∈ ran (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))) ↔ ∃𝑦 ∈ (0...(𝑁 − 1))𝑝 = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
188184, 187bitrdi 286 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑝 ∈ ran 𝐹 ↔ ∃𝑦 ∈ (0...(𝑁 − 1))𝑝 = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))))
189188biimpa 477 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑝 ∈ ran 𝐹) → ∃𝑦 ∈ (0...(𝑁 − 1))𝑝 = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
190134, 189r19.29a 3159 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑝 ∈ ran 𝐹) → (𝑝‘((2nd ‘(1st𝑇))‘𝑁)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
191190neeq1d 3003 . . . . . . . . . . . . . . . . 17 ((𝜑𝑝 ∈ ran 𝐹) → ((𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0 ↔ ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0))
192191biimpd 228 . . . . . . . . . . . . . . . 16 ((𝜑𝑝 ∈ ran 𝐹) → ((𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0))
193192rexlimdva 3152 . . . . . . . . . . . . . . 15 (𝜑 → (∃𝑝 ∈ ran 𝐹(𝑝‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0))
19443, 193mpd 15 . . . . . . . . . . . . . 14 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0)
195 elnnne0 12427 . . . . . . . . . . . . . 14 (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ ↔ (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ0 ∧ ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ≠ 0))
19633, 194, 195sylanbrc 583 . . . . . . . . . . . . 13 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ)
197 nnm1nn0 12454 . . . . . . . . . . . . 13 (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) ∈ ℕ0)
198196, 197syl 17 . . . . . . . . . . . 12 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) ∈ ℕ0)
199 elfzo0 13613 . . . . . . . . . . . . . 14 (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ (0..^𝐾) ↔ (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ0𝐾 ∈ ℕ ∧ ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) < 𝐾))
20031, 199sylib 217 . . . . . . . . . . . . 13 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℕ0𝐾 ∈ ℕ ∧ ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) < 𝐾))
201200simp2d 1143 . . . . . . . . . . . 12 (𝜑𝐾 ∈ ℕ)
202198nn0red 12474 . . . . . . . . . . . . 13 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) ∈ ℝ)
20333nn0red 12474 . . . . . . . . . . . . 13 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ ℝ)
204201nnred 12168 . . . . . . . . . . . . 13 (𝜑𝐾 ∈ ℝ)
205203ltm1d 12087 . . . . . . . . . . . . 13 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) < ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)))
206 elfzolt2 13581 . . . . . . . . . . . . . 14 (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) ∈ (0..^𝐾) → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) < 𝐾)
20731, 206syl 17 . . . . . . . . . . . . 13 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) < 𝐾)
208202, 203, 204, 205, 207lttrd 11316 . . . . . . . . . . . 12 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) < 𝐾)
209 elfzo0 13613 . . . . . . . . . . . 12 ((((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) ∈ (0..^𝐾) ↔ ((((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) ∈ ℕ0𝐾 ∈ ℕ ∧ (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) < 𝐾))
210198, 201, 208, 209syl3anbrc 1343 . . . . . . . . . . 11 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) ∈ (0..^𝐾))
211210adantr 481 . . . . . . . . . 10 ((𝜑𝑛 = ((2nd ‘(1st𝑇))‘𝑁)) → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑁)) − 1) ∈ (0..^𝐾))
2127, 211eqeltrd 2838 . . . . . . . . 9 ((𝜑𝑛 = ((2nd ‘(1st𝑇))‘𝑁)) → (((1st ‘(1st𝑇))‘𝑛) − 1) ∈ (0..^𝐾))
213212adantlr 713 . . . . . . . 8 (((𝜑𝑛 ∈ (1...𝑁)) ∧ 𝑛 = ((2nd ‘(1st𝑇))‘𝑁)) → (((1st ‘(1st𝑇))‘𝑛) − 1) ∈ (0..^𝐾))
21418ffvelcdmda 7035 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ (0..^𝐾))
215 elfzonn0 13617 . . . . . . . . . . . . 13 (((1st ‘(1st𝑇))‘𝑛) ∈ (0..^𝐾) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℕ0)
216214, 215syl 17 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℕ0)
217216nn0cnd 12475 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℂ)
218217subid1d 11501 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇))‘𝑛) − 0) = ((1st ‘(1st𝑇))‘𝑛))
219218, 214eqeltrd 2838 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇))‘𝑛) − 0) ∈ (0..^𝐾))
220219adantr 481 . . . . . . . 8 (((𝜑𝑛 ∈ (1...𝑁)) ∧ ¬ 𝑛 = ((2nd ‘(1st𝑇))‘𝑁)) → (((1st ‘(1st𝑇))‘𝑛) − 0) ∈ (0..^𝐾))
2212, 4, 213, 220ifbothda 4524 . . . . . . 7 ((𝜑𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0)) ∈ (0..^𝐾))
222221fmpttd 7063 . . . . . 6 (𝜑 → (𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))):(1...𝑁)⟶(0..^𝐾))
223 ovex 7390 . . . . . . 7 (0..^𝐾) ∈ V
224223, 96elmap 8809 . . . . . 6 ((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∈ ((0..^𝐾) ↑m (1...𝑁)) ↔ (𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))):(1...𝑁)⟶(0..^𝐾))
225222, 224sylibr 233 . . . . 5 (𝜑 → (𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∈ ((0..^𝐾) ↑m (1...𝑁)))
226 simpr 485 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ ((1 + 1)...𝑁)) → 𝑛 ∈ ((1 + 1)...𝑁))
227 1z 12533 . . . . . . . . . . . . . . . 16 1 ∈ ℤ
228 peano2z 12544 . . . . . . . . . . . . . . . 16 (1 ∈ ℤ → (1 + 1) ∈ ℤ)
229227, 228ax-mp 5 . . . . . . . . . . . . . . 15 (1 + 1) ∈ ℤ
230110, 229jctil 520 . . . . . . . . . . . . . 14 (𝜑 → ((1 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ))
231 elfzelz 13441 . . . . . . . . . . . . . . 15 (𝑛 ∈ ((1 + 1)...𝑁) → 𝑛 ∈ ℤ)
232231, 227jctir 521 . . . . . . . . . . . . . 14 (𝑛 ∈ ((1 + 1)...𝑁) → (𝑛 ∈ ℤ ∧ 1 ∈ ℤ))
233 fzsubel 13477 . . . . . . . . . . . . . 14 ((((1 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑛 ∈ ℤ ∧ 1 ∈ ℤ)) → (𝑛 ∈ ((1 + 1)...𝑁) ↔ (𝑛 − 1) ∈ (((1 + 1) − 1)...(𝑁 − 1))))
234230, 232, 233syl2an 596 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ ((1 + 1)...𝑁)) → (𝑛 ∈ ((1 + 1)...𝑁) ↔ (𝑛 − 1) ∈ (((1 + 1) − 1)...(𝑁 − 1))))
235226, 234mpbid 231 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ((1 + 1)...𝑁)) → (𝑛 − 1) ∈ (((1 + 1) − 1)...(𝑁 − 1)))
236 ax-1cn 11109 . . . . . . . . . . . . . 14 1 ∈ ℂ
237236, 236pncan3oi 11417 . . . . . . . . . . . . 13 ((1 + 1) − 1) = 1
238237oveq1i 7367 . . . . . . . . . . . 12 (((1 + 1) − 1)...(𝑁 − 1)) = (1...(𝑁 − 1))
239235, 238eleqtrdi 2848 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ((1 + 1)...𝑁)) → (𝑛 − 1) ∈ (1...(𝑁 − 1)))
240239ralrimiva 3143 . . . . . . . . . 10 (𝜑 → ∀𝑛 ∈ ((1 + 1)...𝑁)(𝑛 − 1) ∈ (1...(𝑁 − 1)))
241 simpr 485 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ (1...(𝑁 − 1))) → 𝑦 ∈ (1...(𝑁 − 1)))
242154, 227jctil 520 . . . . . . . . . . . . . . 15 (𝜑 → (1 ∈ ℤ ∧ (𝑁 − 1) ∈ ℤ))
243 elfzelz 13441 . . . . . . . . . . . . . . . 16 (𝑦 ∈ (1...(𝑁 − 1)) → 𝑦 ∈ ℤ)
244243, 227jctir 521 . . . . . . . . . . . . . . 15 (𝑦 ∈ (1...(𝑁 − 1)) → (𝑦 ∈ ℤ ∧ 1 ∈ ℤ))
245 fzaddel 13475 . . . . . . . . . . . . . . 15 (((1 ∈ ℤ ∧ (𝑁 − 1) ∈ ℤ) ∧ (𝑦 ∈ ℤ ∧ 1 ∈ ℤ)) → (𝑦 ∈ (1...(𝑁 − 1)) ↔ (𝑦 + 1) ∈ ((1 + 1)...((𝑁 − 1) + 1))))
246242, 244, 245syl2an 596 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ (1...(𝑁 − 1))) → (𝑦 ∈ (1...(𝑁 − 1)) ↔ (𝑦 + 1) ∈ ((1 + 1)...((𝑁 − 1) + 1))))
247241, 246mpbid 231 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (1...(𝑁 − 1))) → (𝑦 + 1) ∈ ((1 + 1)...((𝑁 − 1) + 1)))
24878oveq2d 7373 . . . . . . . . . . . . . 14 (𝜑 → ((1 + 1)...((𝑁 − 1) + 1)) = ((1 + 1)...𝑁))
249248adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (1...(𝑁 − 1))) → ((1 + 1)...((𝑁 − 1) + 1)) = ((1 + 1)...𝑁))
250247, 249eleqtrd 2840 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (1...(𝑁 − 1))) → (𝑦 + 1) ∈ ((1 + 1)...𝑁))
251231zcnd 12608 . . . . . . . . . . . . . . 15 (𝑛 ∈ ((1 + 1)...𝑁) → 𝑛 ∈ ℂ)
252243zcnd 12608 . . . . . . . . . . . . . . 15 (𝑦 ∈ (1...(𝑁 − 1)) → 𝑦 ∈ ℂ)
253 subadd2 11405 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ ∧ 𝑦 ∈ ℂ) → ((𝑛 − 1) = 𝑦 ↔ (𝑦 + 1) = 𝑛))
254236, 253mp3an2 1449 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℂ ∧ 𝑦 ∈ ℂ) → ((𝑛 − 1) = 𝑦 ↔ (𝑦 + 1) = 𝑛))
255 eqcom 2743 . . . . . . . . . . . . . . . 16 (𝑦 = (𝑛 − 1) ↔ (𝑛 − 1) = 𝑦)
256 eqcom 2743 . . . . . . . . . . . . . . . 16 (𝑛 = (𝑦 + 1) ↔ (𝑦 + 1) = 𝑛)
257254, 255, 2563bitr4g 313 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑦 = (𝑛 − 1) ↔ 𝑛 = (𝑦 + 1)))
258251, 252, 257syl2anr 597 . . . . . . . . . . . . . 14 ((𝑦 ∈ (1...(𝑁 − 1)) ∧ 𝑛 ∈ ((1 + 1)...𝑁)) → (𝑦 = (𝑛 − 1) ↔ 𝑛 = (𝑦 + 1)))
259258ralrimiva 3143 . . . . . . . . . . . . 13 (𝑦 ∈ (1...(𝑁 − 1)) → ∀𝑛 ∈ ((1 + 1)...𝑁)(𝑦 = (𝑛 − 1) ↔ 𝑛 = (𝑦 + 1)))
260259adantl 482 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (1...(𝑁 − 1))) → ∀𝑛 ∈ ((1 + 1)...𝑁)(𝑦 = (𝑛 − 1) ↔ 𝑛 = (𝑦 + 1)))
261 reu6i 3686 . . . . . . . . . . . 12 (((𝑦 + 1) ∈ ((1 + 1)...𝑁) ∧ ∀𝑛 ∈ ((1 + 1)...𝑁)(𝑦 = (𝑛 − 1) ↔ 𝑛 = (𝑦 + 1))) → ∃!𝑛 ∈ ((1 + 1)...𝑁)𝑦 = (𝑛 − 1))
262250, 260, 261syl2anc 584 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (1...(𝑁 − 1))) → ∃!𝑛 ∈ ((1 + 1)...𝑁)𝑦 = (𝑛 − 1))
263262ralrimiva 3143 . . . . . . . . . 10 (𝜑 → ∀𝑦 ∈ (1...(𝑁 − 1))∃!𝑛 ∈ ((1 + 1)...𝑁)𝑦 = (𝑛 − 1))
264 eqid 2736 . . . . . . . . . . 11 (𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)) = (𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1))
265264f1ompt 7059 . . . . . . . . . 10 ((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)):((1 + 1)...𝑁)–1-1-onto→(1...(𝑁 − 1)) ↔ (∀𝑛 ∈ ((1 + 1)...𝑁)(𝑛 − 1) ∈ (1...(𝑁 − 1)) ∧ ∀𝑦 ∈ (1...(𝑁 − 1))∃!𝑛 ∈ ((1 + 1)...𝑁)𝑦 = (𝑛 − 1)))
266240, 263, 265sylanbrc 583 . . . . . . . . 9 (𝜑 → (𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)):((1 + 1)...𝑁)–1-1-onto→(1...(𝑁 − 1)))
267 f1osng 6825 . . . . . . . . . 10 ((1 ∈ V ∧ 𝑁 ∈ ℕ) → {⟨1, 𝑁⟩}:{1}–1-1-onto→{𝑁})
26847, 27, 267sylancr 587 . . . . . . . . 9 (𝜑 → {⟨1, 𝑁⟩}:{1}–1-1-onto→{𝑁})
269155, 157ltnled 11302 . . . . . . . . . . . 12 (𝜑 → ((𝑁 − 1) < 𝑁 ↔ ¬ 𝑁 ≤ (𝑁 − 1)))
270161, 269mpbid 231 . . . . . . . . . . 11 (𝜑 → ¬ 𝑁 ≤ (𝑁 − 1))
271 elfzle2 13445 . . . . . . . . . . 11 (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ≤ (𝑁 − 1))
272270, 271nsyl 140 . . . . . . . . . 10 (𝜑 → ¬ 𝑁 ∈ (1...(𝑁 − 1)))
273 disjsn 4672 . . . . . . . . . 10 (((1...(𝑁 − 1)) ∩ {𝑁}) = ∅ ↔ ¬ 𝑁 ∈ (1...(𝑁 − 1)))
274272, 273sylibr 233 . . . . . . . . 9 (𝜑 → ((1...(𝑁 − 1)) ∩ {𝑁}) = ∅)
275 1re 11155 . . . . . . . . . . . . . 14 1 ∈ ℝ
276275ltp1i 12059 . . . . . . . . . . . . 13 1 < (1 + 1)
277229zrei 12505 . . . . . . . . . . . . . 14 (1 + 1) ∈ ℝ
278275, 277ltnlei 11276 . . . . . . . . . . . . 13 (1 < (1 + 1) ↔ ¬ (1 + 1) ≤ 1)
279276, 278mpbi 229 . . . . . . . . . . . 12 ¬ (1 + 1) ≤ 1
280 elfzle1 13444 . . . . . . . . . . . 12 (1 ∈ ((1 + 1)...𝑁) → (1 + 1) ≤ 1)
281279, 280mto 196 . . . . . . . . . . 11 ¬ 1 ∈ ((1 + 1)...𝑁)
282 disjsn 4672 . . . . . . . . . . 11 ((((1 + 1)...𝑁) ∩ {1}) = ∅ ↔ ¬ 1 ∈ ((1 + 1)...𝑁))
283281, 282mpbir 230 . . . . . . . . . 10 (((1 + 1)...𝑁) ∩ {1}) = ∅
284 f1oun 6803 . . . . . . . . . 10 ((((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)):((1 + 1)...𝑁)–1-1-onto→(1...(𝑁 − 1)) ∧ {⟨1, 𝑁⟩}:{1}–1-1-onto→{𝑁}) ∧ ((((1 + 1)...𝑁) ∩ {1}) = ∅ ∧ ((1...(𝑁 − 1)) ∩ {𝑁}) = ∅)) → ((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)) ∪ {⟨1, 𝑁⟩}):(((1 + 1)...𝑁) ∪ {1})–1-1-onto→((1...(𝑁 − 1)) ∪ {𝑁}))
285283, 284mpanr1 701 . . . . . . . . 9 ((((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)):((1 + 1)...𝑁)–1-1-onto→(1...(𝑁 − 1)) ∧ {⟨1, 𝑁⟩}:{1}–1-1-onto→{𝑁}) ∧ ((1...(𝑁 − 1)) ∩ {𝑁}) = ∅) → ((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)) ∪ {⟨1, 𝑁⟩}):(((1 + 1)...𝑁) ∪ {1})–1-1-onto→((1...(𝑁 − 1)) ∪ {𝑁}))
286266, 268, 274, 285syl21anc 836 . . . . . . . 8 (𝜑 → ((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)) ∪ {⟨1, 𝑁⟩}):(((1 + 1)...𝑁) ∪ {1})–1-1-onto→((1...(𝑁 − 1)) ∪ {𝑁}))
287 eleq1 2825 . . . . . . . . . . . . . . 15 (𝑛 = 1 → (𝑛 ∈ ((1 + 1)...𝑁) ↔ 1 ∈ ((1 + 1)...𝑁)))
288281, 287mtbiri 326 . . . . . . . . . . . . . 14 (𝑛 = 1 → ¬ 𝑛 ∈ ((1 + 1)...𝑁))
289288necon2ai 2973 . . . . . . . . . . . . 13 (𝑛 ∈ ((1 + 1)...𝑁) → 𝑛 ≠ 1)
290 ifnefalse 4498 . . . . . . . . . . . . 13 (𝑛 ≠ 1 → if(𝑛 = 1, 𝑁, (𝑛 − 1)) = (𝑛 − 1))
291289, 290syl 17 . . . . . . . . . . . 12 (𝑛 ∈ ((1 + 1)...𝑁) → if(𝑛 = 1, 𝑁, (𝑛 − 1)) = (𝑛 − 1))
292291mpteq2ia 5208 . . . . . . . . . . 11 (𝑛 ∈ ((1 + 1)...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))) = (𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1))
293292uneq1i 4119 . . . . . . . . . 10 ((𝑛 ∈ ((1 + 1)...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))) ∪ {⟨1, 𝑁⟩}) = ((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)) ∪ {⟨1, 𝑁⟩})
29447a1i 11 . . . . . . . . . . 11 (𝜑 → 1 ∈ V)
29527, 72eleqtrdi 2848 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ (ℤ‘1))
296 fzpred 13489 . . . . . . . . . . . . 13 (𝑁 ∈ (ℤ‘1) → (1...𝑁) = ({1} ∪ ((1 + 1)...𝑁)))
297295, 296syl 17 . . . . . . . . . . . 12 (𝜑 → (1...𝑁) = ({1} ∪ ((1 + 1)...𝑁)))
298 uncom 4113 . . . . . . . . . . . 12 ({1} ∪ ((1 + 1)...𝑁)) = (((1 + 1)...𝑁) ∪ {1})
299297, 298eqtr2di 2793 . . . . . . . . . . 11 (𝜑 → (((1 + 1)...𝑁) ∪ {1}) = (1...𝑁))
300 iftrue 4492 . . . . . . . . . . . 12 (𝑛 = 1 → if(𝑛 = 1, 𝑁, (𝑛 − 1)) = 𝑁)
301300adantl 482 . . . . . . . . . . 11 ((𝜑𝑛 = 1) → if(𝑛 = 1, 𝑁, (𝑛 − 1)) = 𝑁)
302294, 27, 299, 301fmptapd 7117 . . . . . . . . . 10 (𝜑 → ((𝑛 ∈ ((1 + 1)...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))) ∪ {⟨1, 𝑁⟩}) = (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))
303293, 302eqtr3id 2790 . . . . . . . . 9 (𝜑 → ((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)) ∪ {⟨1, 𝑁⟩}) = (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))
30478, 295eqeltrd 2838 . . . . . . . . . . 11 (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ‘1))
305 uzid 12778 . . . . . . . . . . . . 13 ((𝑁 − 1) ∈ ℤ → (𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)))
306 peano2uz 12826 . . . . . . . . . . . . 13 ((𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
307154, 305, 3063syl 18 . . . . . . . . . . . 12 (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
30878, 307eqeltrrd 2839 . . . . . . . . . . 11 (𝜑𝑁 ∈ (ℤ‘(𝑁 − 1)))
309 fzsplit2 13466 . . . . . . . . . . 11 ((((𝑁 − 1) + 1) ∈ (ℤ‘1) ∧ 𝑁 ∈ (ℤ‘(𝑁 − 1))) → (1...𝑁) = ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
310304, 308, 309syl2anc 584 . . . . . . . . . 10 (𝜑 → (1...𝑁) = ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
31178oveq1d 7372 . . . . . . . . . . . 12 (𝜑 → (((𝑁 − 1) + 1)...𝑁) = (𝑁...𝑁))
312 fzsn 13483 . . . . . . . . . . . . 13 (𝑁 ∈ ℤ → (𝑁...𝑁) = {𝑁})
313110, 312syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑁...𝑁) = {𝑁})
314311, 313eqtrd 2776 . . . . . . . . . . 11 (𝜑 → (((𝑁 − 1) + 1)...𝑁) = {𝑁})
315314uneq2d 4123 . . . . . . . . . 10 (𝜑 → ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)) = ((1...(𝑁 − 1)) ∪ {𝑁}))
316310, 315eqtr2d 2777 . . . . . . . . 9 (𝜑 → ((1...(𝑁 − 1)) ∪ {𝑁}) = (1...𝑁))
317303, 299, 316f1oeq123d 6778 . . . . . . . 8 (𝜑 → (((𝑛 ∈ ((1 + 1)...𝑁) ↦ (𝑛 − 1)) ∪ {⟨1, 𝑁⟩}):(((1 + 1)...𝑁) ∪ {1})–1-1-onto→((1...(𝑁 − 1)) ∪ {𝑁}) ↔ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))):(1...𝑁)–1-1-onto→(1...𝑁)))
318286, 317mpbid 231 . . . . . . 7 (𝜑 → (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))):(1...𝑁)–1-1-onto→(1...𝑁))
319 f1oco 6807 . . . . . . 7 (((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...𝑁))
32024, 318, 319syl2anc 584 . . . . . 6 (𝜑 → ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))):(1...𝑁)–1-1-onto→(1...𝑁))
32196mptex 7173 . . . . . . . 8 (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))) ∈ V
32221, 321coex 7867 . . . . . . 7 ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) ∈ V
323 f1oeq1 6772 . . . . . . 7 (𝑓 = ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))):(1...𝑁)–1-1-onto→(1...𝑁)))
324322, 323elab 3630 . . . . . 6 (((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))):(1...𝑁)–1-1-onto→(1...𝑁))
325320, 324sylibr 233 . . . . 5 (𝜑 → ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
326225, 325opelxpd 5671 . . . 4 (𝜑 → ⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩ ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
32727nnnn0d 12473 . . . . 5 (𝜑𝑁 ∈ ℕ0)
328 0elfz 13538 . . . . 5 (𝑁 ∈ ℕ0 → 0 ∈ (0...𝑁))
329327, 328syl 17 . . . 4 (𝜑 → 0 ∈ (0...𝑁))
330326, 329opelxpd 5671 . . 3 (𝜑 → ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
331 poimirlem22.1 . . . . 5 (𝜑𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑m (1...𝑁)))
33227, 10, 331, 8, 41, 164poimirlem19 36097 . . . 4 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))))
333 elfzle1 13444 . . . . . . . . 9 (𝑦 ∈ (0...(𝑁 − 1)) → 0 ≤ 𝑦)
334 0re 11157 . . . . . . . . . 10 0 ∈ ℝ
335 lenlt 11233 . . . . . . . . . 10 ((0 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (0 ≤ 𝑦 ↔ ¬ 𝑦 < 0))
336334, 60, 335sylancr 587 . . . . . . . . 9 (𝑦 ∈ (0...(𝑁 − 1)) → (0 ≤ 𝑦 ↔ ¬ 𝑦 < 0))
337333, 336mpbid 231 . . . . . . . 8 (𝑦 ∈ (0...(𝑁 − 1)) → ¬ 𝑦 < 0)
338337iffalsed 4497 . . . . . . 7 (𝑦 ∈ (0...(𝑁 − 1)) → if(𝑦 < 0, 𝑦, (𝑦 + 1)) = (𝑦 + 1))
339338csbeq1d 3859 . . . . . 6 (𝑦 ∈ (0...(𝑁 − 1)) → if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}))) = (𝑦 + 1) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}))))
340 ovex 7390 . . . . . . 7 (𝑦 + 1) ∈ V
341 oveq2 7365 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) → (1...𝑗) = (1...(𝑦 + 1)))
342341imaeq2d 6013 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) → (((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) = (((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...(𝑦 + 1))))
343342xpeq1d 5662 . . . . . . . . 9 (𝑗 = (𝑦 + 1) → ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) = ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...(𝑦 + 1))) × {1}))
344 oveq1 7364 . . . . . . . . . . . 12 (𝑗 = (𝑦 + 1) → (𝑗 + 1) = ((𝑦 + 1) + 1))
345344oveq1d 7372 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) → ((𝑗 + 1)...𝑁) = (((𝑦 + 1) + 1)...𝑁))
346345imaeq2d 6013 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) → (((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) = (((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)))
347346xpeq1d 5662 . . . . . . . . 9 (𝑗 = (𝑦 + 1) → ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}) = ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))
348343, 347uneq12d 4124 . . . . . . . 8 (𝑗 = (𝑦 + 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))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
349348oveq2d 7373 . . . . . . 7 (𝑗 = (𝑦 + 1) → ((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 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, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
350340, 349csbie 3891 . . . . . 6 (𝑦 + 1) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 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, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
351339, 350eqtrdi 2792 . . . . 5 (𝑦 ∈ (0...(𝑁 − 1)) → if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 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, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
352351mpteq2ia 5208 . . . 4 (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
353332, 352eqtr4di 2794 . . 3 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0})))))
354 opex 5421 . . . . . . . . . 10 ⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩ ∈ V
355354, 50op2ndd 7932 . . . . . . . . 9 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (2nd𝑡) = 0)
356355breq2d 5117 . . . . . . . 8 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (𝑦 < (2nd𝑡) ↔ 𝑦 < 0))
357356ifbid 4509 . . . . . . 7 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < 0, 𝑦, (𝑦 + 1)))
358354, 50op1std 7931 . . . . . . . . 9 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (1st𝑡) = ⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩)
35996mptex 7173 . . . . . . . . . 10 (𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∈ V
360359, 322op1std 7931 . . . . . . . . 9 ((1st𝑡) = ⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩ → (1st ‘(1st𝑡)) = (𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))))
361358, 360syl 17 . . . . . . . 8 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (1st ‘(1st𝑡)) = (𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))))
362359, 322op2ndd 7932 . . . . . . . . . . . 12 ((1st𝑡) = ⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩ → (2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))))
363358, 362syl 17 . . . . . . . . . . 11 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))))
364363imaeq1d 6012 . . . . . . . . . 10 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = (((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)))
365364xpeq1d 5662 . . . . . . . . 9 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}))
366363imaeq1d 6012 . . . . . . . . . 10 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = (((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)))
367366xpeq1d 5662 . . . . . . . . 9 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}))
368365, 367uneq12d 4124 . . . . . . . 8 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0})))
369361, 368oveq12d 7375 . . . . . . 7 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → ((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}))))
370357, 369csbeq12dv 3864 . . . . . 6 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}))))
371370mpteq2dv 5207 . . . . 5 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0})))))
372371eqeq2d 2747 . . . 4 (𝑡 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}))))))
373372, 10elrab2 3648 . . 3 (⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ∈ 𝑆 ↔ (⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < 0, 𝑦, (𝑦 + 1)) / 𝑗((𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))) ∘f + (((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1)))) “ ((𝑗 + 1)...𝑁)) × {0}))))))
374330, 353, 373sylanbrc 583 . 2 (𝜑 → ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ∈ 𝑆)
375354, 50op2ndd 7932 . . . . . 6 (𝑇 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (2nd𝑇) = 0)
376375eqcoms 2744 . . . . 5 (⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ = 𝑇 → (2nd𝑇) = 0)
37727nnne0d 12203 . . . . . . 7 (𝜑𝑁 ≠ 0)
378377necomd 2999 . . . . . 6 (𝜑 → 0 ≠ 𝑁)
379 neeq1 3006 . . . . . 6 ((2nd𝑇) = 0 → ((2nd𝑇) ≠ 𝑁 ↔ 0 ≠ 𝑁))
380378, 379syl5ibrcom 246 . . . . 5 (𝜑 → ((2nd𝑇) = 0 → (2nd𝑇) ≠ 𝑁))
381376, 380syl5 34 . . . 4 (𝜑 → (⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ = 𝑇 → (2nd𝑇) ≠ 𝑁))
382381necon2d 2966 . . 3 (𝜑 → ((2nd𝑇) = 𝑁 → ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ≠ 𝑇))
383164, 382mpd 15 . 2 (𝜑 → ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ≠ 𝑇)
384 neeq1 3006 . . 3 (𝑧 = ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ → (𝑧𝑇 ↔ ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ≠ 𝑇))
385384rspcev 3581 . 2 ((⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ∈ 𝑆 ∧ ⟨⟨(𝑛 ∈ (1...𝑁) ↦ (((1st ‘(1st𝑇))‘𝑛) − if(𝑛 = ((2nd ‘(1st𝑇))‘𝑁), 1, 0))), ((2nd ‘(1st𝑇)) ∘ (𝑛 ∈ (1...𝑁) ↦ if(𝑛 = 1, 𝑁, (𝑛 − 1))))⟩, 0⟩ ≠ 𝑇) → ∃𝑧𝑆 𝑧𝑇)
386374, 383, 385syl2anc 584 1 (𝜑 → ∃𝑧𝑆 𝑧𝑇)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1087   = wceq 1541  wcel 2106  {cab 2713  wne 2943  wral 3064  wrex 3073  ∃!wreu 3351  {crab 3407  Vcvv 3445  csb 3855  cun 3908  cin 3909  wss 3910  c0 4282  ifcif 4486  {csn 4586  cop 4592   class class class wbr 5105  cmpt 5188   × cxp 5631  ccnv 5632  ran crn 5634  cima 5636  ccom 5637  Fun wfun 6490   Fn wfn 6491  wf 6492  ontowfo 6494  1-1-ontowf1o 6495  cfv 6496  (class class class)co 7357  f cof 7615  1st c1st 7919  2nd c2nd 7920  m cmap 8765  cc 11049  cr 11050  0cc0 11051  1c1 11052   + caddc 11054   < clt 11189  cle 11190  cmin 11385  cn 12153  0cn0 12413  cz 12499  cuz 12763  ...cfz 13424  ..^cfzo 13567
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 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128
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 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-om 7803  df-1st 7921  df-2nd 7922  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-er 8648  df-map 8767  df-en 8884  df-dom 8885  df-sdom 8886  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-nn 12154  df-n0 12414  df-z 12500  df-uz 12764  df-fz 13425  df-fzo 13568
This theorem is referenced by:  poimirlem21  36099
  Copyright terms: Public domain W3C validator