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

Theorem poimirlem15 33851
Description: Lemma for poimir 33869, that the face in poimirlem22 33858 is a face. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0 (𝜑𝑁 ∈ ℕ)
poimirlem22.s 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
poimirlem22.1 (𝜑𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑𝑚 (1...𝑁)))
poimirlem22.2 (𝜑𝑇𝑆)
poimirlem15.3 (𝜑 → (2nd𝑇) ∈ (1...(𝑁 − 1)))
Assertion
Ref Expression
poimirlem15 (𝜑 → ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ ∈ 𝑆)
Distinct variable groups:   𝑓,𝑗,𝑡,𝑦   𝜑,𝑗,𝑦   𝑗,𝐹,𝑦   𝑗,𝑁,𝑦   𝑇,𝑗,𝑦   𝜑,𝑡   𝑓,𝐾,𝑗,𝑡   𝑓,𝑁,𝑡   𝑇,𝑓   𝑓,𝐹,𝑡   𝑡,𝑇   𝑆,𝑗,𝑡,𝑦
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem15
StepHypRef Expression
1 poimirlem22.2 . . . . . 6 (𝜑𝑇𝑆)
2 elrabi 3516 . . . . . . 7 (𝑇 ∈ {𝑡 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
3 poimirlem22.s . . . . . . 7 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
42, 3eleq2s 2862 . . . . . 6 (𝑇𝑆𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
51, 4syl 17 . . . . 5 (𝜑𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
6 xp1st 7400 . . . . 5 (𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
7 xp1st 7400 . . . . 5 ((1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
85, 6, 73syl 18 . . . 4 (𝜑 → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
9 xp2nd 7401 . . . . . . . 8 ((1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
105, 6, 93syl 18 . . . . . . 7 (𝜑 → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
11 fvex 6390 . . . . . . . 8 (2nd ‘(1st𝑇)) ∈ V
12 f1oeq1 6312 . . . . . . . 8 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
1311, 12elab 3507 . . . . . . 7 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
1410, 13sylib 209 . . . . . 6 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
15 poimirlem15.3 . . . . . . . . . . . . 13 (𝜑 → (2nd𝑇) ∈ (1...(𝑁 − 1)))
16 elfznn 12580 . . . . . . . . . . . . 13 ((2nd𝑇) ∈ (1...(𝑁 − 1)) → (2nd𝑇) ∈ ℕ)
1715, 16syl 17 . . . . . . . . . . . 12 (𝜑 → (2nd𝑇) ∈ ℕ)
1817nnred 11293 . . . . . . . . . . 11 (𝜑 → (2nd𝑇) ∈ ℝ)
1918ltp1d 11210 . . . . . . . . . . 11 (𝜑 → (2nd𝑇) < ((2nd𝑇) + 1))
2018, 19ltned 10429 . . . . . . . . . 10 (𝜑 → (2nd𝑇) ≠ ((2nd𝑇) + 1))
2120necomd 2992 . . . . . . . . . 10 (𝜑 → ((2nd𝑇) + 1) ≠ (2nd𝑇))
22 fvex 6390 . . . . . . . . . . 11 (2nd𝑇) ∈ V
23 ovex 6876 . . . . . . . . . . 11 ((2nd𝑇) + 1) ∈ V
24 f1oprg 6366 . . . . . . . . . . 11 ((((2nd𝑇) ∈ V ∧ ((2nd𝑇) + 1) ∈ V) ∧ (((2nd𝑇) + 1) ∈ V ∧ (2nd𝑇) ∈ V)) → (((2nd𝑇) ≠ ((2nd𝑇) + 1) ∧ ((2nd𝑇) + 1) ≠ (2nd𝑇)) → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{((2nd𝑇) + 1), (2nd𝑇)}))
2522, 23, 23, 22, 24mp4an 684 . . . . . . . . . 10 (((2nd𝑇) ≠ ((2nd𝑇) + 1) ∧ ((2nd𝑇) + 1) ≠ (2nd𝑇)) → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{((2nd𝑇) + 1), (2nd𝑇)})
2620, 21, 25syl2anc 579 . . . . . . . . 9 (𝜑 → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{((2nd𝑇) + 1), (2nd𝑇)})
27 prcom 4424 . . . . . . . . . 10 {((2nd𝑇) + 1), (2nd𝑇)} = {(2nd𝑇), ((2nd𝑇) + 1)}
28 f1oeq3 6314 . . . . . . . . . 10 ({((2nd𝑇) + 1), (2nd𝑇)} = {(2nd𝑇), ((2nd𝑇) + 1)} → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{((2nd𝑇) + 1), (2nd𝑇)} ↔ {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{(2nd𝑇), ((2nd𝑇) + 1)}))
2927, 28ax-mp 5 . . . . . . . . 9 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{((2nd𝑇) + 1), (2nd𝑇)} ↔ {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{(2nd𝑇), ((2nd𝑇) + 1)})
3026, 29sylib 209 . . . . . . . 8 (𝜑 → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{(2nd𝑇), ((2nd𝑇) + 1)})
31 f1oi 6359 . . . . . . . 8 ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})):((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})–1-1-onto→((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})
32 disjdif 4202 . . . . . . . . 9 ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ∅
33 f1oun 6341 . . . . . . . . 9 ((({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{(2nd𝑇), ((2nd𝑇) + 1)} ∧ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})):((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})–1-1-onto→((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) ∧ (({(2nd𝑇), ((2nd𝑇) + 1)} ∩ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ∅ ∧ ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ∅)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))–1-1-onto→({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
3432, 32, 33mpanr12 696 . . . . . . . 8 (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{(2nd𝑇), ((2nd𝑇) + 1)} ∧ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})):((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})–1-1-onto→((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))–1-1-onto→({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
3530, 31, 34sylancl 580 . . . . . . 7 (𝜑 → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))–1-1-onto→({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
36 poimir.0 . . . . . . . . . . . . . . 15 (𝜑𝑁 ∈ ℕ)
3736nncnd 11294 . . . . . . . . . . . . . 14 (𝜑𝑁 ∈ ℂ)
38 npcan1 10711 . . . . . . . . . . . . . 14 (𝑁 ∈ ℂ → ((𝑁 − 1) + 1) = 𝑁)
3937, 38syl 17 . . . . . . . . . . . . 13 (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
4036nnzd 11731 . . . . . . . . . . . . . . 15 (𝜑𝑁 ∈ ℤ)
41 peano2zm 11670 . . . . . . . . . . . . . . 15 (𝑁 ∈ ℤ → (𝑁 − 1) ∈ ℤ)
4240, 41syl 17 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 − 1) ∈ ℤ)
43 uzid 11904 . . . . . . . . . . . . . 14 ((𝑁 − 1) ∈ ℤ → (𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)))
44 peano2uz 11944 . . . . . . . . . . . . . 14 ((𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
4542, 43, 443syl 18 . . . . . . . . . . . . 13 (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
4639, 45eqeltrrd 2845 . . . . . . . . . . . 12 (𝜑𝑁 ∈ (ℤ‘(𝑁 − 1)))
47 fzss2 12591 . . . . . . . . . . . 12 (𝑁 ∈ (ℤ‘(𝑁 − 1)) → (1...(𝑁 − 1)) ⊆ (1...𝑁))
4846, 47syl 17 . . . . . . . . . . 11 (𝜑 → (1...(𝑁 − 1)) ⊆ (1...𝑁))
4948, 15sseldd 3764 . . . . . . . . . 10 (𝜑 → (2nd𝑇) ∈ (1...𝑁))
5017peano2nnd 11295 . . . . . . . . . . 11 (𝜑 → ((2nd𝑇) + 1) ∈ ℕ)
5142zred 11732 . . . . . . . . . . . . 13 (𝜑 → (𝑁 − 1) ∈ ℝ)
5236nnred 11293 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℝ)
53 elfzle2 12555 . . . . . . . . . . . . . 14 ((2nd𝑇) ∈ (1...(𝑁 − 1)) → (2nd𝑇) ≤ (𝑁 − 1))
5415, 53syl 17 . . . . . . . . . . . . 13 (𝜑 → (2nd𝑇) ≤ (𝑁 − 1))
5552ltm1d 11212 . . . . . . . . . . . . 13 (𝜑 → (𝑁 − 1) < 𝑁)
5618, 51, 52, 54, 55lelttrd 10451 . . . . . . . . . . . 12 (𝜑 → (2nd𝑇) < 𝑁)
5717nnzd 11731 . . . . . . . . . . . . 13 (𝜑 → (2nd𝑇) ∈ ℤ)
58 zltp1le 11677 . . . . . . . . . . . . 13 (((2nd𝑇) ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((2nd𝑇) < 𝑁 ↔ ((2nd𝑇) + 1) ≤ 𝑁))
5957, 40, 58syl2anc 579 . . . . . . . . . . . 12 (𝜑 → ((2nd𝑇) < 𝑁 ↔ ((2nd𝑇) + 1) ≤ 𝑁))
6056, 59mpbid 223 . . . . . . . . . . 11 (𝜑 → ((2nd𝑇) + 1) ≤ 𝑁)
61 fznn 12618 . . . . . . . . . . . 12 (𝑁 ∈ ℤ → (((2nd𝑇) + 1) ∈ (1...𝑁) ↔ (((2nd𝑇) + 1) ∈ ℕ ∧ ((2nd𝑇) + 1) ≤ 𝑁)))
6240, 61syl 17 . . . . . . . . . . 11 (𝜑 → (((2nd𝑇) + 1) ∈ (1...𝑁) ↔ (((2nd𝑇) + 1) ∈ ℕ ∧ ((2nd𝑇) + 1) ≤ 𝑁)))
6350, 60, 62mpbir2and 704 . . . . . . . . . 10 (𝜑 → ((2nd𝑇) + 1) ∈ (1...𝑁))
64 prssi 4508 . . . . . . . . . 10 (((2nd𝑇) ∈ (1...𝑁) ∧ ((2nd𝑇) + 1) ∈ (1...𝑁)) → {(2nd𝑇), ((2nd𝑇) + 1)} ⊆ (1...𝑁))
6549, 63, 64syl2anc 579 . . . . . . . . 9 (𝜑 → {(2nd𝑇), ((2nd𝑇) + 1)} ⊆ (1...𝑁))
66 undif 4211 . . . . . . . . 9 ({(2nd𝑇), ((2nd𝑇) + 1)} ⊆ (1...𝑁) ↔ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (1...𝑁))
6765, 66sylib 209 . . . . . . . 8 (𝜑 → ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (1...𝑁))
68 f1oeq23 6315 . . . . . . . 8 ((({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (1...𝑁) ∧ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (1...𝑁)) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))–1-1-onto→({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) ↔ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):(1...𝑁)–1-1-onto→(1...𝑁)))
6967, 67, 68syl2anc 579 . . . . . . 7 (𝜑 → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))–1-1-onto→({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) ↔ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):(1...𝑁)–1-1-onto→(1...𝑁)))
7035, 69mpbid 223 . . . . . 6 (𝜑 → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):(1...𝑁)–1-1-onto→(1...𝑁))
71 f1oco 6344 . . . . . 6 (((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) ∧ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))):(1...𝑁)–1-1-onto→(1...𝑁)) → ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))):(1...𝑁)–1-1-onto→(1...𝑁))
7214, 70, 71syl2anc 579 . . . . 5 (𝜑 → ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))):(1...𝑁)–1-1-onto→(1...𝑁))
73 prex 5067 . . . . . . . 8 {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∈ V
74 ovex 6876 . . . . . . . . 9 (1...𝑁) ∈ V
75 difexg 4971 . . . . . . . . 9 ((1...𝑁) ∈ V → ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∈ V)
76 resiexg 7302 . . . . . . . . 9 (((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∈ V → ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) ∈ V)
7774, 75, 76mp2b 10 . . . . . . . 8 ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) ∈ V
7873, 77unex 7156 . . . . . . 7 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) ∈ V
7911, 78coex 7318 . . . . . 6 ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) ∈ V
80 f1oeq1 6312 . . . . . 6 (𝑓 = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))):(1...𝑁)–1-1-onto→(1...𝑁)))
8179, 80elab 3507 . . . . 5 (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))):(1...𝑁)–1-1-onto→(1...𝑁))
8272, 81sylibr 225 . . . 4 (𝜑 → ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
83 opelxpi 5316 . . . 4 (((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)) ∧ ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
848, 82, 83syl2anc 579 . . 3 (𝜑 → ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
85 fz1ssfz0 12646 . . . . 5 (1...𝑁) ⊆ (0...𝑁)
8648, 85syl6ss 3775 . . . 4 (𝜑 → (1...(𝑁 − 1)) ⊆ (0...𝑁))
8786, 15sseldd 3764 . . 3 (𝜑 → (2nd𝑇) ∈ (0...𝑁))
88 opelxpi 5316 . . 3 ((⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) ∧ (2nd𝑇) ∈ (0...𝑁)) → ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
8984, 87, 88syl2anc 579 . 2 (𝜑 → ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
90 fveq2 6377 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
9190breq2d 4823 . . . . . . . . . . 11 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
9291ifbid 4267 . . . . . . . . . 10 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
9392csbeq1d 3700 . . . . . . . . 9 (𝑡 = 𝑇if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
94 2fveq3 6382 . . . . . . . . . . 11 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
95 2fveq3 6382 . . . . . . . . . . . . . 14 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
9695imaeq1d 5649 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
9796xpeq1d 5308 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
9895imaeq1d 5649 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
9998xpeq1d 5308 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
10097, 99uneq12d 3932 . . . . . . . . . . 11 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
10194, 100oveq12d 6862 . . . . . . . . . 10 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
102101csbeq2dv 4155 . . . . . . . . 9 (𝑡 = 𝑇if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
10393, 102eqtrd 2799 . . . . . . . 8 (𝑡 = 𝑇if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
104103mpteq2dv 4906 . . . . . . 7 (𝑡 = 𝑇 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
105104eqeq2d 2775 . . . . . 6 (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
106105, 3elrab2 3525 . . . . 5 (𝑇𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
107106simprbi 490 . . . 4 (𝑇𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
1081, 107syl 17 . . 3 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
109 imaco 5828 . . . . . . . . . 10 (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) = ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...𝑦)))
110 f1ofn 6323 . . . . . . . . . . . . . . . 16 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{((2nd𝑇) + 1), (2nd𝑇)} → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} Fn {(2nd𝑇), ((2nd𝑇) + 1)})
11126, 110syl 17 . . . . . . . . . . . . . . 15 (𝜑 → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} Fn {(2nd𝑇), ((2nd𝑇) + 1)})
112111ad2antrr 717 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} Fn {(2nd𝑇), ((2nd𝑇) + 1)})
113 incom 3969 . . . . . . . . . . . . . . 15 ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ (1...𝑦)) = ((1...𝑦) ∩ {(2nd𝑇), ((2nd𝑇) + 1)})
114 elfznn0 12643 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 ∈ ℕ0)
115114nn0red 11601 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 ∈ ℝ)
116 ltnle 10373 . . . . . . . . . . . . . . . . . . . . 21 ((𝑦 ∈ ℝ ∧ (2nd𝑇) ∈ ℝ) → (𝑦 < (2nd𝑇) ↔ ¬ (2nd𝑇) ≤ 𝑦))
117115, 18, 116syl2anr 590 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑦 < (2nd𝑇) ↔ ¬ (2nd𝑇) ≤ 𝑦))
118117biimpa 468 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ¬ (2nd𝑇) ≤ 𝑦)
119 elfzle2 12555 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑇) ∈ (1...𝑦) → (2nd𝑇) ≤ 𝑦)
120118, 119nsyl 137 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ¬ (2nd𝑇) ∈ (1...𝑦))
121 disjsn 4404 . . . . . . . . . . . . . . . . . 18 (((1...𝑦) ∩ {(2nd𝑇)}) = ∅ ↔ ¬ (2nd𝑇) ∈ (1...𝑦))
122120, 121sylibr 225 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((1...𝑦) ∩ {(2nd𝑇)}) = ∅)
123115ad2antlr 718 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → 𝑦 ∈ ℝ)
12418ad2antrr 717 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (2nd𝑇) ∈ ℝ)
12550nnred 11293 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((2nd𝑇) + 1) ∈ ℝ)
126125ad2antrr 717 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((2nd𝑇) + 1) ∈ ℝ)
127 simpr 477 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → 𝑦 < (2nd𝑇))
12819ad2antrr 717 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (2nd𝑇) < ((2nd𝑇) + 1))
129123, 124, 126, 127, 128lttrd 10454 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → 𝑦 < ((2nd𝑇) + 1))
130 ltnle 10373 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 ∈ ℝ ∧ ((2nd𝑇) + 1) ∈ ℝ) → (𝑦 < ((2nd𝑇) + 1) ↔ ¬ ((2nd𝑇) + 1) ≤ 𝑦))
131115, 125, 130syl2anr 590 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑦 < ((2nd𝑇) + 1) ↔ ¬ ((2nd𝑇) + 1) ≤ 𝑦))
132131adantr 472 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (𝑦 < ((2nd𝑇) + 1) ↔ ¬ ((2nd𝑇) + 1) ≤ 𝑦))
133129, 132mpbid 223 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ¬ ((2nd𝑇) + 1) ≤ 𝑦)
134 elfzle2 12555 . . . . . . . . . . . . . . . . . . 19 (((2nd𝑇) + 1) ∈ (1...𝑦) → ((2nd𝑇) + 1) ≤ 𝑦)
135133, 134nsyl 137 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ¬ ((2nd𝑇) + 1) ∈ (1...𝑦))
136 disjsn 4404 . . . . . . . . . . . . . . . . . 18 (((1...𝑦) ∩ {((2nd𝑇) + 1)}) = ∅ ↔ ¬ ((2nd𝑇) + 1) ∈ (1...𝑦))
137135, 136sylibr 225 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((1...𝑦) ∩ {((2nd𝑇) + 1)}) = ∅)
138122, 137uneq12d 3932 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (((1...𝑦) ∩ {(2nd𝑇)}) ∪ ((1...𝑦) ∩ {((2nd𝑇) + 1)})) = (∅ ∪ ∅))
139 df-pr 4339 . . . . . . . . . . . . . . . . . 18 {(2nd𝑇), ((2nd𝑇) + 1)} = ({(2nd𝑇)} ∪ {((2nd𝑇) + 1)})
140139ineq2i 3975 . . . . . . . . . . . . . . . . 17 ((1...𝑦) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ((1...𝑦) ∩ ({(2nd𝑇)} ∪ {((2nd𝑇) + 1)}))
141 indi 4040 . . . . . . . . . . . . . . . . 17 ((1...𝑦) ∩ ({(2nd𝑇)} ∪ {((2nd𝑇) + 1)})) = (((1...𝑦) ∩ {(2nd𝑇)}) ∪ ((1...𝑦) ∩ {((2nd𝑇) + 1)}))
142140, 141eqtr2i 2788 . . . . . . . . . . . . . . . 16 (((1...𝑦) ∩ {(2nd𝑇)}) ∪ ((1...𝑦) ∩ {((2nd𝑇) + 1)})) = ((1...𝑦) ∩ {(2nd𝑇), ((2nd𝑇) + 1)})
143 un0 4131 . . . . . . . . . . . . . . . 16 (∅ ∪ ∅) = ∅
144138, 142, 1433eqtr3g 2822 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((1...𝑦) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅)
145113, 144syl5eq 2811 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ (1...𝑦)) = ∅)
146 fnimadisj 6192 . . . . . . . . . . . . . 14 (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} Fn {(2nd𝑇), ((2nd𝑇) + 1)} ∧ ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ (1...𝑦)) = ∅) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...𝑦)) = ∅)
147112, 145, 146syl2anc 579 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...𝑦)) = ∅)
14839adantr 472 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((𝑁 − 1) + 1) = 𝑁)
149 elfzuz3 12549 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (0...(𝑁 − 1)) → (𝑁 − 1) ∈ (ℤ𝑦))
150 peano2uz 11944 . . . . . . . . . . . . . . . . . . . 20 ((𝑁 − 1) ∈ (ℤ𝑦) → ((𝑁 − 1) + 1) ∈ (ℤ𝑦))
151149, 150syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ𝑦))
152151adantl 473 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((𝑁 − 1) + 1) ∈ (ℤ𝑦))
153148, 152eqeltrrd 2845 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ (ℤ𝑦))
154 fzss2 12591 . . . . . . . . . . . . . . . . 17 (𝑁 ∈ (ℤ𝑦) → (1...𝑦) ⊆ (1...𝑁))
155 reldisj 4183 . . . . . . . . . . . . . . . . 17 ((1...𝑦) ⊆ (1...𝑁) → (((1...𝑦) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅ ↔ (1...𝑦) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
156153, 154, 1553syl 18 . . . . . . . . . . . . . . . 16 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((1...𝑦) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅ ↔ (1...𝑦) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
157156adantr 472 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (((1...𝑦) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅ ↔ (1...𝑦) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
158144, 157mpbid 223 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (1...𝑦) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
159 resiima 5664 . . . . . . . . . . . . . 14 ((1...𝑦) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...𝑦)) = (1...𝑦))
160158, 159syl 17 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...𝑦)) = (1...𝑦))
161147, 160uneq12d 3932 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...𝑦)) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...𝑦))) = (∅ ∪ (1...𝑦)))
162 imaundir 5731 . . . . . . . . . . . 12 (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...𝑦)) = (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...𝑦)) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...𝑦)))
163 uncom 3921 . . . . . . . . . . . . 13 (∅ ∪ (1...𝑦)) = ((1...𝑦) ∪ ∅)
164 un0 4131 . . . . . . . . . . . . 13 ((1...𝑦) ∪ ∅) = (1...𝑦)
165163, 164eqtr2i 2788 . . . . . . . . . . . 12 (1...𝑦) = (∅ ∪ (1...𝑦))
166161, 162, 1653eqtr4g 2824 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...𝑦)) = (1...𝑦))
167166imaeq2d 5650 . . . . . . . . . 10 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...𝑦))) = ((2nd ‘(1st𝑇)) “ (1...𝑦)))
168109, 167syl5eq 2811 . . . . . . . . 9 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) = ((2nd ‘(1st𝑇)) “ (1...𝑦)))
169168xpeq1d 5308 . . . . . . . 8 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}))
170 imaco 5828 . . . . . . . . . 10 (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ ((𝑦 + 1)...𝑁)))
171 imaundir 5731 . . . . . . . . . . . . 13 (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ ((𝑦 + 1)...𝑁)) = (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((𝑦 + 1)...𝑁)))
172 imassrn 5661 . . . . . . . . . . . . . . . . 17 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)) ⊆ ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}
173172a1i 11 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)) ⊆ ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
174 fnima 6190 . . . . . . . . . . . . . . . . . . 19 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} Fn {(2nd𝑇), ((2nd𝑇) + 1)} → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
17526, 110, 1743syl 18 . . . . . . . . . . . . . . . . . 18 (𝜑 → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
176175ad2antrr 717 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
177 elfzelz 12552 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 ∈ ℤ)
178 zltp1le 11677 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 ∈ ℤ ∧ (2nd𝑇) ∈ ℤ) → (𝑦 < (2nd𝑇) ↔ (𝑦 + 1) ≤ (2nd𝑇)))
179177, 57, 178syl2anr 590 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑦 < (2nd𝑇) ↔ (𝑦 + 1) ≤ (2nd𝑇)))
180179biimpa 468 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (𝑦 + 1) ≤ (2nd𝑇))
18118, 52, 56ltled 10441 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (2nd𝑇) ≤ 𝑁)
182181ad2antrr 717 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (2nd𝑇) ≤ 𝑁)
18357adantr 472 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (2nd𝑇) ∈ ℤ)
184 nn0p1nn 11581 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ℕ0 → (𝑦 + 1) ∈ ℕ)
185114, 184syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ (0...(𝑁 − 1)) → (𝑦 + 1) ∈ ℕ)
186185nnzd 11731 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ (0...(𝑁 − 1)) → (𝑦 + 1) ∈ ℤ)
187186adantl 473 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑦 + 1) ∈ ℤ)
18840adantr 472 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ ℤ)
189 elfz 12542 . . . . . . . . . . . . . . . . . . . . . 22 (((2nd𝑇) ∈ ℤ ∧ (𝑦 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((2nd𝑇) ∈ ((𝑦 + 1)...𝑁) ↔ ((𝑦 + 1) ≤ (2nd𝑇) ∧ (2nd𝑇) ≤ 𝑁)))
190183, 187, 188, 189syl3anc 1490 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd𝑇) ∈ ((𝑦 + 1)...𝑁) ↔ ((𝑦 + 1) ≤ (2nd𝑇) ∧ (2nd𝑇) ≤ 𝑁)))
191190adantr 472 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((2nd𝑇) ∈ ((𝑦 + 1)...𝑁) ↔ ((𝑦 + 1) ≤ (2nd𝑇) ∧ (2nd𝑇) ≤ 𝑁)))
192180, 182, 191mpbir2and 704 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (2nd𝑇) ∈ ((𝑦 + 1)...𝑁))
193 1red 10296 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → 1 ∈ ℝ)
194 ltle 10382 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 ∈ ℝ ∧ (2nd𝑇) ∈ ℝ) → (𝑦 < (2nd𝑇) → 𝑦 ≤ (2nd𝑇)))
195115, 18, 194syl2anr 590 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (𝑦 < (2nd𝑇) → 𝑦 ≤ (2nd𝑇)))
196195imp 395 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → 𝑦 ≤ (2nd𝑇))
197123, 124, 193, 196leadd1dd 10897 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (𝑦 + 1) ≤ ((2nd𝑇) + 1))
19860ad2antrr 717 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((2nd𝑇) + 1) ≤ 𝑁)
19957peano2zd 11735 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ((2nd𝑇) + 1) ∈ ℤ)
200199adantr 472 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd𝑇) + 1) ∈ ℤ)
201 elfz 12542 . . . . . . . . . . . . . . . . . . . . . 22 ((((2nd𝑇) + 1) ∈ ℤ ∧ (𝑦 + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (((2nd𝑇) + 1) ∈ ((𝑦 + 1)...𝑁) ↔ ((𝑦 + 1) ≤ ((2nd𝑇) + 1) ∧ ((2nd𝑇) + 1) ≤ 𝑁)))
202200, 187, 188, 201syl3anc 1490 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((2nd𝑇) + 1) ∈ ((𝑦 + 1)...𝑁) ↔ ((𝑦 + 1) ≤ ((2nd𝑇) + 1) ∧ ((2nd𝑇) + 1) ≤ 𝑁)))
203202adantr 472 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (((2nd𝑇) + 1) ∈ ((𝑦 + 1)...𝑁) ↔ ((𝑦 + 1) ≤ ((2nd𝑇) + 1) ∧ ((2nd𝑇) + 1) ≤ 𝑁)))
204197, 198, 203mpbir2and 704 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((2nd𝑇) + 1) ∈ ((𝑦 + 1)...𝑁))
205 prssi 4508 . . . . . . . . . . . . . . . . . . 19 (((2nd𝑇) ∈ ((𝑦 + 1)...𝑁) ∧ ((2nd𝑇) + 1) ∈ ((𝑦 + 1)...𝑁)) → {(2nd𝑇), ((2nd𝑇) + 1)} ⊆ ((𝑦 + 1)...𝑁))
206192, 204, 205syl2anc 579 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → {(2nd𝑇), ((2nd𝑇) + 1)} ⊆ ((𝑦 + 1)...𝑁))
207 imass2 5685 . . . . . . . . . . . . . . . . . 18 ({(2nd𝑇), ((2nd𝑇) + 1)} ⊆ ((𝑦 + 1)...𝑁) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)))
208206, 207syl 17 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)))
209176, 208eqsstr3d 3802 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ⊆ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)))
210173, 209eqssd 3780 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)) = ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
211 f1ofo 6329 . . . . . . . . . . . . . . . . . 18 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–1-1-onto→{((2nd𝑇) + 1), (2nd𝑇)} → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–onto→{((2nd𝑇) + 1), (2nd𝑇)})
212 forn 6303 . . . . . . . . . . . . . . . . . 18 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}:{(2nd𝑇), ((2nd𝑇) + 1)}–onto→{((2nd𝑇) + 1), (2nd𝑇)} → ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} = {((2nd𝑇) + 1), (2nd𝑇)})
21326, 211, 2123syl 18 . . . . . . . . . . . . . . . . 17 (𝜑 → ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} = {((2nd𝑇) + 1), (2nd𝑇)})
214213, 27syl6eq 2815 . . . . . . . . . . . . . . . 16 (𝜑 → ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} = {(2nd𝑇), ((2nd𝑇) + 1)})
215214ad2antrr 717 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} = {(2nd𝑇), ((2nd𝑇) + 1)})
216210, 215eqtrd 2799 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)) = {(2nd𝑇), ((2nd𝑇) + 1)})
217 undif 4211 . . . . . . . . . . . . . . . . 17 ({(2nd𝑇), ((2nd𝑇) + 1)} ⊆ ((𝑦 + 1)...𝑁) ↔ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ((𝑦 + 1)...𝑁))
218206, 217sylib 209 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ((𝑦 + 1)...𝑁))
219218imaeq2d 5650 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((𝑦 + 1)...𝑁)))
220 fnresi 6188 . . . . . . . . . . . . . . . . . . 19 ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) Fn ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})
221 incom 3969 . . . . . . . . . . . . . . . . . . . 20 (((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
222221, 32eqtri 2787 . . . . . . . . . . . . . . . . . . 19 (((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅
223 fnimadisj 6192 . . . . . . . . . . . . . . . . . . 19 ((( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) Fn ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∧ (((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅)
224220, 222, 223mp2an 683 . . . . . . . . . . . . . . . . . 18 (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅
225224a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅)
226 nnuz 11926 . . . . . . . . . . . . . . . . . . . . . 22 ℕ = (ℤ‘1)
227185, 226syl6eleq 2854 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ (0...(𝑁 − 1)) → (𝑦 + 1) ∈ (ℤ‘1))
228 fzss1 12590 . . . . . . . . . . . . . . . . . . . . 21 ((𝑦 + 1) ∈ (ℤ‘1) → ((𝑦 + 1)...𝑁) ⊆ (1...𝑁))
229227, 228syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑦 + 1)...𝑁) ⊆ (1...𝑁))
230229ssdifd 3910 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ (0...(𝑁 − 1)) → (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
231 resiima 5664 . . . . . . . . . . . . . . . . . . 19 ((((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
232230, 231syl 17 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...(𝑁 − 1)) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
233232ad2antlr 718 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
234225, 233uneq12d 3932 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = (∅ ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
235 imaundi 5730 . . . . . . . . . . . . . . . 16 (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = ((( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
236 uncom 3921 . . . . . . . . . . . . . . . . 17 (∅ ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ((((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ ∅)
237 un0 4131 . . . . . . . . . . . . . . . . 17 ((((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ ∅) = (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})
238236, 237eqtr2i 2788 . . . . . . . . . . . . . . . 16 (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) = (∅ ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
239234, 235, 2383eqtr4g 2824 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
240219, 239eqtr3d 2801 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((𝑦 + 1)...𝑁)) = (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
241216, 240uneq12d 3932 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ ((𝑦 + 1)...𝑁)) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((𝑦 + 1)...𝑁))) = ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
242171, 241syl5eq 2811 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ ((𝑦 + 1)...𝑁)) = ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ (((𝑦 + 1)...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
243242, 218eqtrd 2799 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ ((𝑦 + 1)...𝑁)) = ((𝑦 + 1)...𝑁))
244243imaeq2d 5650 . . . . . . . . . 10 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ ((𝑦 + 1)...𝑁))) = ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
245170, 244syl5eq 2811 . . . . . . . . 9 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
246245xpeq1d 5308 . . . . . . . 8 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))
247169, 246uneq12d 3932 . . . . . . 7 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))
248247oveq2d 6860 . . . . . 6 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
249 iftrue 4251 . . . . . . . . 9 (𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = 𝑦)
250249csbeq1d 3700 . . . . . . . 8 (𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = 𝑦 / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))
251 vex 3353 . . . . . . . . 9 𝑦 ∈ V
252 oveq2 6852 . . . . . . . . . . . . 13 (𝑗 = 𝑦 → (1...𝑗) = (1...𝑦))
253252imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = 𝑦 → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) = (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)))
254253xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = 𝑦 → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) = ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}))
255 oveq1 6851 . . . . . . . . . . . . . 14 (𝑗 = 𝑦 → (𝑗 + 1) = (𝑦 + 1))
256255oveq1d 6859 . . . . . . . . . . . . 13 (𝑗 = 𝑦 → ((𝑗 + 1)...𝑁) = ((𝑦 + 1)...𝑁))
257256imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = 𝑦 → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) = (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)))
258257xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = 𝑦 → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}) = ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0}))
259254, 258uneq12d 3932 . . . . . . . . . 10 (𝑗 = 𝑦 → (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0})) = (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0})))
260259oveq2d 6860 . . . . . . . . 9 (𝑗 = 𝑦 → ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0}))))
261251, 260csbie 3719 . . . . . . . 8 𝑦 / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0})))
262250, 261syl6eq 2815 . . . . . . 7 (𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0}))))
263262adantl 473 . . . . . 6 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑦)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑦 + 1)...𝑁)) × {0}))))
264249csbeq1d 3700 . . . . . . . 8 (𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = 𝑦 / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
265252imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = 𝑦 → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑦)))
266265xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = 𝑦 → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}))
267256imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = 𝑦 → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)))
268267xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = 𝑦 → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))
269266, 268uneq12d 3932 . . . . . . . . . 10 (𝑗 = 𝑦 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))
270269oveq2d 6860 . . . . . . . . 9 (𝑗 = 𝑦 → ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
271251, 270csbie 3719 . . . . . . . 8 𝑦 / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0})))
272264, 271syl6eq 2815 . . . . . . 7 (𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
273272adantl 473 . . . . . 6 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑦)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑦 + 1)...𝑁)) × {0}))))
274248, 263, 2733eqtr4d 2809 . . . . 5 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ 𝑦 < (2nd𝑇)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
275 lenlt 10372 . . . . . . . . . 10 (((2nd𝑇) ∈ ℝ ∧ 𝑦 ∈ ℝ) → ((2nd𝑇) ≤ 𝑦 ↔ ¬ 𝑦 < (2nd𝑇)))
27618, 115, 275syl2an 589 . . . . . . . . 9 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd𝑇) ≤ 𝑦 ↔ ¬ 𝑦 < (2nd𝑇)))
277276biimpar 469 . . . . . . . 8 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ¬ 𝑦 < (2nd𝑇)) → (2nd𝑇) ≤ 𝑦)
278 imaco 5828 . . . . . . . . . . 11 (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) = ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...(𝑦 + 1))))
279 imaundir 5731 . . . . . . . . . . . . . 14 (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...(𝑦 + 1))) = (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...(𝑦 + 1))))
280 imassrn 5661 . . . . . . . . . . . . . . . . . 18 ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))) ⊆ ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩}
281280a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))) ⊆ ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
282175ad2antrr 717 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
28317ad2antrr 717 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) ∈ ℕ)
28418ad2antrr 717 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) ∈ ℝ)
285115ad2antlr 718 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → 𝑦 ∈ ℝ)
286185nnred 11293 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ (0...(𝑁 − 1)) → (𝑦 + 1) ∈ ℝ)
287286ad2antlr 718 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (𝑦 + 1) ∈ ℝ)
288 simpr 477 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) ≤ 𝑦)
289115lep1d 11211 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 ≤ (𝑦 + 1))
290289ad2antlr 718 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → 𝑦 ≤ (𝑦 + 1))
291284, 285, 287, 288, 290letrd 10450 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) ≤ (𝑦 + 1))
292 fznn 12618 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 + 1) ∈ ℤ → ((2nd𝑇) ∈ (1...(𝑦 + 1)) ↔ ((2nd𝑇) ∈ ℕ ∧ (2nd𝑇) ≤ (𝑦 + 1))))
293186, 292syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ (0...(𝑁 − 1)) → ((2nd𝑇) ∈ (1...(𝑦 + 1)) ↔ ((2nd𝑇) ∈ ℕ ∧ (2nd𝑇) ≤ (𝑦 + 1))))
294293ad2antlr 718 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd𝑇) ∈ (1...(𝑦 + 1)) ↔ ((2nd𝑇) ∈ ℕ ∧ (2nd𝑇) ≤ (𝑦 + 1))))
295283, 291, 294mpbir2and 704 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) ∈ (1...(𝑦 + 1)))
29650ad2antrr 717 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd𝑇) + 1) ∈ ℕ)
297 1red 10296 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → 1 ∈ ℝ)
298284, 285, 297, 288leadd1dd 10897 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd𝑇) + 1) ≤ (𝑦 + 1))
299 fznn 12618 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 + 1) ∈ ℤ → (((2nd𝑇) + 1) ∈ (1...(𝑦 + 1)) ↔ (((2nd𝑇) + 1) ∈ ℕ ∧ ((2nd𝑇) + 1) ≤ (𝑦 + 1))))
300186, 299syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ (0...(𝑁 − 1)) → (((2nd𝑇) + 1) ∈ (1...(𝑦 + 1)) ↔ (((2nd𝑇) + 1) ∈ ℕ ∧ ((2nd𝑇) + 1) ≤ (𝑦 + 1))))
301300ad2antlr 718 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((2nd𝑇) + 1) ∈ (1...(𝑦 + 1)) ↔ (((2nd𝑇) + 1) ∈ ℕ ∧ ((2nd𝑇) + 1) ≤ (𝑦 + 1))))
302296, 298, 301mpbir2and 704 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd𝑇) + 1) ∈ (1...(𝑦 + 1)))
303 prssi 4508 . . . . . . . . . . . . . . . . . . . 20 (((2nd𝑇) ∈ (1...(𝑦 + 1)) ∧ ((2nd𝑇) + 1) ∈ (1...(𝑦 + 1))) → {(2nd𝑇), ((2nd𝑇) + 1)} ⊆ (1...(𝑦 + 1)))
304295, 302, 303syl2anc 579 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → {(2nd𝑇), ((2nd𝑇) + 1)} ⊆ (1...(𝑦 + 1)))
305 imass2 5685 . . . . . . . . . . . . . . . . . . 19 ({(2nd𝑇), ((2nd𝑇) + 1)} ⊆ (1...(𝑦 + 1)) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))))
306304, 305syl 17 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))))
307282, 306eqsstr3d 3802 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ⊆ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))))
308281, 307eqssd 3780 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))) = ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩})
309214ad2antrr 717 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ran {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} = {(2nd𝑇), ((2nd𝑇) + 1)})
310308, 309eqtrd 2799 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))) = {(2nd𝑇), ((2nd𝑇) + 1)})
311 undif 4211 . . . . . . . . . . . . . . . . . 18 ({(2nd𝑇), ((2nd𝑇) + 1)} ⊆ (1...(𝑦 + 1)) ↔ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (1...(𝑦 + 1)))
312304, 311sylib 209 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (1...(𝑦 + 1)))
313312imaeq2d 5650 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...(𝑦 + 1))))
314224a1i 11 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅)
315 eluzp1p1 11915 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑁 − 1) ∈ (ℤ𝑦) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑦 + 1)))
316149, 315syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑦 + 1)))
317316adantl 473 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑦 + 1)))
318148, 317eqeltrrd 2845 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ (ℤ‘(𝑦 + 1)))
319 fzss2 12591 . . . . . . . . . . . . . . . . . . . . . 22 (𝑁 ∈ (ℤ‘(𝑦 + 1)) → (1...(𝑦 + 1)) ⊆ (1...𝑁))
320318, 319syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (1...(𝑦 + 1)) ⊆ (1...𝑁))
321320ssdifd 3910 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
322321adantr 472 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
323 resiima 5664 . . . . . . . . . . . . . . . . . . 19 (((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
324322, 323syl 17 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
325314, 324uneq12d 3932 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = (∅ ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
326 imaundi 5730 . . . . . . . . . . . . . . . . 17 (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = ((( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
327 uncom 3921 . . . . . . . . . . . . . . . . . 18 (∅ ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) = (((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ ∅)
328 un0 4131 . . . . . . . . . . . . . . . . . 18 (((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) ∪ ∅) = ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})
329327, 328eqtr2i 2788 . . . . . . . . . . . . . . . . 17 ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) = (∅ ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
330325, 326, 3293eqtr4g 2824 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) = ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
331313, 330eqtr3d 2801 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...(𝑦 + 1))) = ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
332310, 331uneq12d 3932 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (1...(𝑦 + 1))) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (1...(𝑦 + 1)))) = ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
333279, 332syl5eq 2811 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...(𝑦 + 1))) = ({(2nd𝑇), ((2nd𝑇) + 1)} ∪ ((1...(𝑦 + 1)) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
334333, 312eqtrd 2799 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...(𝑦 + 1))) = (1...(𝑦 + 1)))
335334imaeq2d 5650 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (1...(𝑦 + 1)))) = ((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))))
336278, 335syl5eq 2811 . . . . . . . . . 10 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) = ((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))))
337336xpeq1d 5308 . . . . . . . . 9 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) = (((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}))
338 imaco 5828 . . . . . . . . . . 11 (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (((𝑦 + 1) + 1)...𝑁)))
339111ad2antrr 717 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → {⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} Fn {(2nd𝑇), ((2nd𝑇) + 1)})
340 incom 3969 . . . . . . . . . . . . . . . 16 ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ (((𝑦 + 1) + 1)...𝑁)) = ((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇), ((2nd𝑇) + 1)})
341125ad2antrr 717 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd𝑇) + 1) ∈ ℝ)
342185peano2nnd 11295 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑦 + 1) + 1) ∈ ℕ)
343342nnred 11293 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑦 + 1) + 1) ∈ ℝ)
344343ad2antlr 718 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((𝑦 + 1) + 1) ∈ ℝ)
34519ad2antrr 717 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) < ((2nd𝑇) + 1))
346115ltp1d 11210 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ (0...(𝑁 − 1)) → 𝑦 < (𝑦 + 1))
347346ad2antlr 718 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → 𝑦 < (𝑦 + 1))
348284, 285, 287, 288, 347lelttrd 10451 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) < (𝑦 + 1))
349284, 287, 297, 348ltadd1dd 10894 . . . . . . . . . . . . . . . . . . . . . 22 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd𝑇) + 1) < ((𝑦 + 1) + 1))
350284, 341, 344, 345, 349lttrd 10454 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (2nd𝑇) < ((𝑦 + 1) + 1))
351 ltnle 10373 . . . . . . . . . . . . . . . . . . . . . . 23 (((2nd𝑇) ∈ ℝ ∧ ((𝑦 + 1) + 1) ∈ ℝ) → ((2nd𝑇) < ((𝑦 + 1) + 1) ↔ ¬ ((𝑦 + 1) + 1) ≤ (2nd𝑇)))
35218, 343, 351syl2an 589 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → ((2nd𝑇) < ((𝑦 + 1) + 1) ↔ ¬ ((𝑦 + 1) + 1) ≤ (2nd𝑇)))
353352adantr 472 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd𝑇) < ((𝑦 + 1) + 1) ↔ ¬ ((𝑦 + 1) + 1) ≤ (2nd𝑇)))
354350, 353mpbid 223 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ¬ ((𝑦 + 1) + 1) ≤ (2nd𝑇))
355 elfzle1 12554 . . . . . . . . . . . . . . . . . . . 20 ((2nd𝑇) ∈ (((𝑦 + 1) + 1)...𝑁) → ((𝑦 + 1) + 1) ≤ (2nd𝑇))
356354, 355nsyl 137 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ¬ (2nd𝑇) ∈ (((𝑦 + 1) + 1)...𝑁))
357 disjsn 4404 . . . . . . . . . . . . . . . . . . 19 (((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇)}) = ∅ ↔ ¬ (2nd𝑇) ∈ (((𝑦 + 1) + 1)...𝑁))
358356, 357sylibr 225 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇)}) = ∅)
359 ltnle 10373 . . . . . . . . . . . . . . . . . . . . . . 23 ((((2nd𝑇) + 1) ∈ ℝ ∧ ((𝑦 + 1) + 1) ∈ ℝ) → (((2nd𝑇) + 1) < ((𝑦 + 1) + 1) ↔ ¬ ((𝑦 + 1) + 1) ≤ ((2nd𝑇) + 1)))
360125, 343, 359syl2an 589 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → (((2nd𝑇) + 1) < ((𝑦 + 1) + 1) ↔ ¬ ((𝑦 + 1) + 1) ≤ ((2nd𝑇) + 1)))
361360adantr 472 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((2nd𝑇) + 1) < ((𝑦 + 1) + 1) ↔ ¬ ((𝑦 + 1) + 1) ≤ ((2nd𝑇) + 1)))
362349, 361mpbid 223 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ¬ ((𝑦 + 1) + 1) ≤ ((2nd𝑇) + 1))
363 elfzle1 12554 . . . . . . . . . . . . . . . . . . . 20 (((2nd𝑇) + 1) ∈ (((𝑦 + 1) + 1)...𝑁) → ((𝑦 + 1) + 1) ≤ ((2nd𝑇) + 1))
364362, 363nsyl 137 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ¬ ((2nd𝑇) + 1) ∈ (((𝑦 + 1) + 1)...𝑁))
365 disjsn 4404 . . . . . . . . . . . . . . . . . . 19 (((((𝑦 + 1) + 1)...𝑁) ∩ {((2nd𝑇) + 1)}) = ∅ ↔ ¬ ((2nd𝑇) + 1) ∈ (((𝑦 + 1) + 1)...𝑁))
366364, 365sylibr 225 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((((𝑦 + 1) + 1)...𝑁) ∩ {((2nd𝑇) + 1)}) = ∅)
367358, 366uneq12d 3932 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇)}) ∪ ((((𝑦 + 1) + 1)...𝑁) ∩ {((2nd𝑇) + 1)})) = (∅ ∪ ∅))
368139ineq2i 3975 . . . . . . . . . . . . . . . . . 18 ((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ((((𝑦 + 1) + 1)...𝑁) ∩ ({(2nd𝑇)} ∪ {((2nd𝑇) + 1)}))
369 indi 4040 . . . . . . . . . . . . . . . . . 18 ((((𝑦 + 1) + 1)...𝑁) ∩ ({(2nd𝑇)} ∪ {((2nd𝑇) + 1)})) = (((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇)}) ∪ ((((𝑦 + 1) + 1)...𝑁) ∩ {((2nd𝑇) + 1)}))
370368, 369eqtr2i 2788 . . . . . . . . . . . . . . . . 17 (((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇)}) ∪ ((((𝑦 + 1) + 1)...𝑁) ∩ {((2nd𝑇) + 1)})) = ((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇), ((2nd𝑇) + 1)})
371367, 370, 1433eqtr3g 2822 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅)
372340, 371syl5eq 2811 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ (((𝑦 + 1) + 1)...𝑁)) = ∅)
373 fnimadisj 6192 . . . . . . . . . . . . . . 15 (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} Fn {(2nd𝑇), ((2nd𝑇) + 1)} ∧ ({(2nd𝑇), ((2nd𝑇) + 1)} ∩ (((𝑦 + 1) + 1)...𝑁)) = ∅) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (((𝑦 + 1) + 1)...𝑁)) = ∅)
374339, 372, 373syl2anc 579 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (((𝑦 + 1) + 1)...𝑁)) = ∅)
375342, 226syl6eleq 2854 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ (0...(𝑁 − 1)) → ((𝑦 + 1) + 1) ∈ (ℤ‘1))
376 fzss1 12590 . . . . . . . . . . . . . . . . . 18 (((𝑦 + 1) + 1) ∈ (ℤ‘1) → (((𝑦 + 1) + 1)...𝑁) ⊆ (1...𝑁))
377 reldisj 4183 . . . . . . . . . . . . . . . . . 18 ((((𝑦 + 1) + 1)...𝑁) ⊆ (1...𝑁) → (((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅ ↔ (((𝑦 + 1) + 1)...𝑁) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
378375, 376, 3773syl 18 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ (0...(𝑁 − 1)) → (((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅ ↔ (((𝑦 + 1) + 1)...𝑁) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
379378ad2antlr 718 . . . . . . . . . . . . . . . 16 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((((𝑦 + 1) + 1)...𝑁) ∩ {(2nd𝑇), ((2nd𝑇) + 1)}) = ∅ ↔ (((𝑦 + 1) + 1)...𝑁) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))
380371, 379mpbid 223 . . . . . . . . . . . . . . 15 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((𝑦 + 1) + 1)...𝑁) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))
381 resiima 5664 . . . . . . . . . . . . . . 15 ((((𝑦 + 1) + 1)...𝑁) ⊆ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1) + 1)...𝑁)) = (((𝑦 + 1) + 1)...𝑁))
382380, 381syl 17 . . . . . . . . . . . . . 14 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1) + 1)...𝑁)) = (((𝑦 + 1) + 1)...𝑁))
383374, 382uneq12d 3932 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (((𝑦 + 1) + 1)...𝑁)) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1) + 1)...𝑁))) = (∅ ∪ (((𝑦 + 1) + 1)...𝑁)))
384 imaundir 5731 . . . . . . . . . . . . 13 (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (((𝑦 + 1) + 1)...𝑁)) = (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} “ (((𝑦 + 1) + 1)...𝑁)) ∪ (( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})) “ (((𝑦 + 1) + 1)...𝑁)))
385 uncom 3921 . . . . . . . . . . . . . 14 (∅ ∪ (((𝑦 + 1) + 1)...𝑁)) = ((((𝑦 + 1) + 1)...𝑁) ∪ ∅)
386 un0 4131 . . . . . . . . . . . . . 14 ((((𝑦 + 1) + 1)...𝑁) ∪ ∅) = (((𝑦 + 1) + 1)...𝑁)
387385, 386eqtr2i 2788 . . . . . . . . . . . . 13 (((𝑦 + 1) + 1)...𝑁) = (∅ ∪ (((𝑦 + 1) + 1)...𝑁))
388383, 384, 3873eqtr4g 2824 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (((𝑦 + 1) + 1)...𝑁)) = (((𝑦 + 1) + 1)...𝑁))
389388imaeq2d 5650 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((2nd ‘(1st𝑇)) “ (({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))) “ (((𝑦 + 1) + 1)...𝑁))) = ((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)))
390338, 389syl5eq 2811 . . . . . . . . . 10 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)))
391390xpeq1d 5308 . . . . . . . . 9 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))
392337, 391uneq12d 3932 . . . . . . . 8 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ (2nd𝑇) ≤ 𝑦) → (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
393277, 392syldan 585 . . . . . . 7 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ¬ 𝑦 < (2nd𝑇)) → (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
394393oveq2d 6860 . . . . . 6 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ¬ 𝑦 < (2nd𝑇)) → ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
395 iffalse 4254 . . . . . . . . 9 𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = (𝑦 + 1))
396395csbeq1d 3700 . . . . . . . 8 𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = (𝑦 + 1) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))
397 ovex 6876 . . . . . . . . 9 (𝑦 + 1) ∈ V
398 oveq2 6852 . . . . . . . . . . . . 13 (𝑗 = (𝑦 + 1) → (1...𝑗) = (1...(𝑦 + 1)))
399398imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = (𝑦 + 1) → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) = (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))))
400399xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) = ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}))
401 oveq1 6851 . . . . . . . . . . . . . 14 (𝑗 = (𝑦 + 1) → (𝑗 + 1) = ((𝑦 + 1) + 1))
402401oveq1d 6859 . . . . . . . . . . . . 13 (𝑗 = (𝑦 + 1) → ((𝑗 + 1)...𝑁) = (((𝑦 + 1) + 1)...𝑁))
403402imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = (𝑦 + 1) → (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) = (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)))
404403xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) → ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}) = ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))
405400, 404uneq12d 3932 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) → (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0})) = (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
406405oveq2d 6860 . . . . . . . . 9 (𝑗 = (𝑦 + 1) → ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
407397, 406csbie 3719 . . . . . . . 8 (𝑦 + 1) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
408396, 407syl6eq 2815 . . . . . . 7 𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
409408adantl 473 . . . . . 6 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ¬ 𝑦 < (2nd𝑇)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...(𝑦 + 1))) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
410395csbeq1d 3700 . . . . . . . 8 𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = (𝑦 + 1) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
411398imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = (𝑦 + 1) → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))))
412411xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}))
413402imaeq2d 5650 . . . . . . . . . . . 12 (𝑗 = (𝑦 + 1) → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)))
414413xpeq1d 5308 . . . . . . . . . . 11 (𝑗 = (𝑦 + 1) → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))
415412, 414uneq12d 3932 . . . . . . . . . 10 (𝑗 = (𝑦 + 1) → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
416415oveq2d 6860 . . . . . . . . 9 (𝑗 = (𝑦 + 1) → ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
417397, 416csbie 3719 . . . . . . . 8 (𝑦 + 1) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0})))
418410, 417syl6eq 2815 . . . . . . 7 𝑦 < (2nd𝑇) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
419418adantl 473 . . . . . 6 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ¬ 𝑦 < (2nd𝑇)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑦 + 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (((𝑦 + 1) + 1)...𝑁)) × {0}))))
420394, 409, 4193eqtr4d 2809 . . . . 5 (((𝜑𝑦 ∈ (0...(𝑁 − 1))) ∧ ¬ 𝑦 < (2nd𝑇)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
421274, 420pm2.61dan 847 . . . 4 ((𝜑𝑦 ∈ (0...(𝑁 − 1))) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
422421mpteq2dva 4905 . . 3 (𝜑 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
423108, 422eqtr4d 2802 . 2 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0})))))
424 opex 5090 . . . . . . 7 ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ ∈ V
425424, 22op1std 7378 . . . . . 6 (𝑡 = ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ → (1st𝑡) = ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩)
426424, 22op2ndd 7379 . . . . . 6 (𝑡 = ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ → (2nd𝑡) = (2nd𝑇))
427 breq2 4815 . . . . . . . . 9 ((2nd𝑡) = (2nd𝑇) → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
428427ifbid 4267 . . . . . . . 8 ((2nd𝑡) = (2nd𝑇) → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
429428csbeq1d 3700 . . . . . . 7 ((2nd𝑡) = (2nd𝑇) → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
430 fvex 6390 . . . . . . . . . 10 (1st ‘(1st𝑇)) ∈ V
431430, 79op1std 7378 . . . . . . . . 9 ((1st𝑡) = ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
432430, 79op2ndd 7379 . . . . . . . . 9 ((1st𝑡) = ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ → (2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))))
433 id 22 . . . . . . . . . 10 ((1st ‘(1st𝑡)) = (1st ‘(1st𝑇)) → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
434 imaeq1 5645 . . . . . . . . . . . 12 ((2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)))
435434xpeq1d 5308 . . . . . . . . . . 11 ((2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}))
436 imaeq1 5645 . . . . . . . . . . . 12 ((2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = (((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)))
437436xpeq1d 5308 . . . . . . . . . . 11 ((2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))
438435, 437uneq12d 3932 . . . . . . . . . 10 ((2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0})))
439433, 438oveqan12d 6863 . . . . . . . . 9 (((1st ‘(1st𝑡)) = (1st ‘(1st𝑇)) ∧ (2nd ‘(1st𝑡)) = ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))) → ((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))
440431, 432, 439syl2anc 579 . . . . . . . 8 ((1st𝑡) = ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ → ((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))
441440csbeq2dv 4155 . . . . . . 7 ((1st𝑡) = ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))
442429, 441sylan9eqr 2821 . . . . . 6 (((1st𝑡) = ⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩ ∧ (2nd𝑡) = (2nd𝑇)) → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))
443425, 426, 442syl2anc 579 . . . . 5 (𝑡 = ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))
444443mpteq2dv 4906 . . . 4 (𝑡 = ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0})))))
445444eqeq2d 2775 . . 3 (𝑡 = ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))))
446445, 3elrab2 3525 . 2 (⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ ∈ 𝑆 ↔ (⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + (((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ (1...𝑗)) × {1}) ∪ ((((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)})))) “ ((𝑗 + 1)...𝑁)) × {0}))))))
44789, 423, 446sylanbrc 578 1 (𝜑 → ⟨⟨(1st ‘(1st𝑇)), ((2nd ‘(1st𝑇)) ∘ ({⟨(2nd𝑇), ((2nd𝑇) + 1)⟩, ⟨((2nd𝑇) + 1), (2nd𝑇)⟩} ∪ ( I ↾ ((1...𝑁) ∖ {(2nd𝑇), ((2nd𝑇) + 1)}))))⟩, (2nd𝑇)⟩ ∈ 𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384   = wceq 1652  wcel 2155  {cab 2751  wne 2937  {crab 3059  Vcvv 3350  csb 3693  cdif 3731  cun 3732  cin 3733  wss 3734  c0 4081  ifcif 4245  {csn 4336  {cpr 4338  cop 4342   class class class wbr 4811  cmpt 4890   I cid 5186   × cxp 5277  ran crn 5280  cres 5281  cima 5282  ccom 5283   Fn wfn 6065  wf 6066  ontowfo 6068  1-1-ontowf1o 6069  cfv 6070  (class class class)co 6844  𝑓 cof 7095  1st c1st 7366  2nd c2nd 7367  𝑚 cmap 8062  cc 10189  cr 10190  0cc0 10191  1c1 10192   + caddc 10194   < clt 10330  cle 10331  cmin 10522  cn 11276  0cn0 11540  cz 11626  cuz 11889  ...cfz 12536  ..^cfzo 12676
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-sep 4943  ax-nul 4951  ax-pow 5003  ax-pr 5064  ax-un 7149  ax-cnex 10247  ax-resscn 10248  ax-1cn 10249  ax-icn 10250  ax-addcl 10251  ax-addrcl 10252  ax-mulcl 10253  ax-mulrcl 10254  ax-mulcom 10255  ax-addass 10256  ax-mulass 10257  ax-distr 10258  ax-i2m1 10259  ax-1ne0 10260  ax-1rid 10261  ax-rnegex 10262  ax-rrecex 10263  ax-cnre 10264  ax-pre-lttri 10265  ax-pre-lttrn 10266  ax-pre-ltadd 10267  ax-pre-mulgt0 10268
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rab 3064  df-v 3352  df-sbc 3599  df-csb 3694  df-dif 3737  df-un 3739  df-in 3741  df-ss 3748  df-pss 3750  df-nul 4082  df-if 4246  df-pw 4319  df-sn 4337  df-pr 4339  df-tp 4341  df-op 4343  df-uni 4597  df-iun 4680  df-br 4812  df-opab 4874  df-mpt 4891  df-tr 4914  df-id 5187  df-eprel 5192  df-po 5200  df-so 5201  df-fr 5238  df-we 5240  df-xp 5285  df-rel 5286  df-cnv 5287  df-co 5288  df-dm 5289  df-rn 5290  df-res 5291  df-ima 5292  df-pred 5867  df-ord 5913  df-on 5914  df-lim 5915  df-suc 5916  df-iota 6033  df-fun 6072  df-fn 6073  df-f 6074  df-f1 6075  df-fo 6076  df-f1o 6077  df-fv 6078  df-riota 6805  df-ov 6847  df-oprab 6848  df-mpt2 6849  df-om 7266  df-1st 7368  df-2nd 7369  df-wrecs 7612  df-recs 7674  df-rdg 7712  df-er 7949  df-en 8163  df-dom 8164  df-sdom 8165  df-pnf 10332  df-mnf 10333  df-xr 10334  df-ltxr 10335  df-le 10336  df-sub 10524  df-neg 10525  df-nn 11277  df-n0 11541  df-z 11627  df-uz 11890  df-fz 12537
This theorem is referenced by:  poimirlem22  33858
  Copyright terms: Public domain W3C validator