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

Theorem poimirlem7 33843
Description: Lemma for poimir 33869, similar to poimirlem6 33842, but for vertices after the opposite vertex. (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}))))}
poimirlem9.1 (𝜑𝑇𝑆)
poimirlem9.2 (𝜑 → (2nd𝑇) ∈ (1...(𝑁 − 1)))
poimirlem7.3 (𝜑𝑀 ∈ ((((2nd𝑇) + 1) + 1)...𝑁))
Assertion
Ref Expression
poimirlem7 (𝜑 → (𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛)) = ((2nd ‘(1st𝑇))‘𝑀))
Distinct variable groups:   𝑓,𝑗,𝑛,𝑡,𝑦   𝜑,𝑗,𝑛,𝑦   𝑗,𝐹,𝑛,𝑦   𝑗,𝑀,𝑛,𝑦   𝑗,𝑁,𝑛,𝑦   𝑇,𝑗,𝑛,𝑦   𝜑,𝑡   𝑓,𝐾,𝑗,𝑛,𝑡   𝑓,𝑀,𝑡   𝑓,𝑁,𝑡   𝑇,𝑓   𝑓,𝐹,𝑡   𝑡,𝑇   𝑆,𝑗,𝑛,𝑡,𝑦
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem7
StepHypRef Expression
1 poimirlem9.1 . . . . . . . 8 (𝜑𝑇𝑆)
2 elrabi 3516 . . . . . . . . 9 (𝑇 ∈ {𝑡 ∈ ((((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 . . . . . . . . 9 𝑆 = {𝑡 ∈ ((((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 . . . . . . . 8 (𝑇𝑆𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
51, 4syl 17 . . . . . . 7 (𝜑𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
6 xp1st 7400 . . . . . . 7 (𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
75, 6syl 17 . . . . . 6 (𝜑 → (1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
8 xp2nd 7401 . . . . . 6 ((1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
97, 8syl 17 . . . . 5 (𝜑 → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
10 fvex 6390 . . . . . 6 (2nd ‘(1st𝑇)) ∈ V
11 f1oeq1 6312 . . . . . 6 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
1210, 11elab 3507 . . . . 5 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
139, 12sylib 209 . . . 4 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
14 f1of 6322 . . . 4 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)):(1...𝑁)⟶(1...𝑁))
1513, 14syl 17 . . 3 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)⟶(1...𝑁))
16 poimirlem9.2 . . . . . . . . 9 (𝜑 → (2nd𝑇) ∈ (1...(𝑁 − 1)))
17 elfznn 12580 . . . . . . . . 9 ((2nd𝑇) ∈ (1...(𝑁 − 1)) → (2nd𝑇) ∈ ℕ)
1816, 17syl 17 . . . . . . . 8 (𝜑 → (2nd𝑇) ∈ ℕ)
1918peano2nnd 11295 . . . . . . 7 (𝜑 → ((2nd𝑇) + 1) ∈ ℕ)
2019peano2nnd 11295 . . . . . 6 (𝜑 → (((2nd𝑇) + 1) + 1) ∈ ℕ)
21 nnuz 11926 . . . . . 6 ℕ = (ℤ‘1)
2220, 21syl6eleq 2854 . . . . 5 (𝜑 → (((2nd𝑇) + 1) + 1) ∈ (ℤ‘1))
23 fzss1 12590 . . . . 5 ((((2nd𝑇) + 1) + 1) ∈ (ℤ‘1) → ((((2nd𝑇) + 1) + 1)...𝑁) ⊆ (1...𝑁))
2422, 23syl 17 . . . 4 (𝜑 → ((((2nd𝑇) + 1) + 1)...𝑁) ⊆ (1...𝑁))
25 poimirlem7.3 . . . 4 (𝜑𝑀 ∈ ((((2nd𝑇) + 1) + 1)...𝑁))
2624, 25sseldd 3764 . . 3 (𝜑𝑀 ∈ (1...𝑁))
2715, 26ffvelrnd 6552 . 2 (𝜑 → ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁))
28 xp1st 7400 . . . . . . . . . . . . 13 ((1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
297, 28syl 17 . . . . . . . . . . . 12 (𝜑 → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
30 elmapfn 8085 . . . . . . . . . . . 12 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)) → (1st ‘(1st𝑇)) Fn (1...𝑁))
3129, 30syl 17 . . . . . . . . . . 11 (𝜑 → (1st ‘(1st𝑇)) Fn (1...𝑁))
3231adantr 472 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → (1st ‘(1st𝑇)) Fn (1...𝑁))
33 1ex 10291 . . . . . . . . . . . . . . 15 1 ∈ V
34 fnconstg 6277 . . . . . . . . . . . . . . 15 (1 ∈ V → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))))
3533, 34ax-mp 5 . . . . . . . . . . . . . 14 (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1)))
36 c0ex 10289 . . . . . . . . . . . . . . 15 0 ∈ V
37 fnconstg 6277 . . . . . . . . . . . . . . 15 (0 ∈ V → (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
3836, 37ax-mp 5 . . . . . . . . . . . . . 14 (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))
3935, 38pm3.2i 462 . . . . . . . . . . . . 13 ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∧ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
40 dff1o3 6328 . . . . . . . . . . . . . . . . 17 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) ∧ Fun (2nd ‘(1st𝑇))))
4140simprbi 490 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → Fun (2nd ‘(1st𝑇)))
4213, 41syl 17 . . . . . . . . . . . . . . 15 (𝜑 → Fun (2nd ‘(1st𝑇)))
43 imain 6154 . . . . . . . . . . . . . . 15 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
4442, 43syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
45 elfzelz 12552 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ ((((2nd𝑇) + 1) + 1)...𝑁) → 𝑀 ∈ ℤ)
4625, 45syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑀 ∈ ℤ)
4746zred 11732 . . . . . . . . . . . . . . . . . 18 (𝜑𝑀 ∈ ℝ)
4847ltm1d 11212 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑀 − 1) < 𝑀)
49 fzdisj 12578 . . . . . . . . . . . . . . . . 17 ((𝑀 − 1) < 𝑀 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
5048, 49syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
5150imaeq2d 5650 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ((2nd ‘(1st𝑇)) “ ∅))
52 ima0 5665 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)) “ ∅) = ∅
5351, 52syl6eq 2815 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ∅)
5444, 53eqtr3d 2801 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) = ∅)
55 fnun 6177 . . . . . . . . . . . . 13 ((((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∧ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) ∧ (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) = ∅) → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
5639, 54, 55sylancr 581 . . . . . . . . . . . 12 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
5746zcnd 11733 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 ∈ ℂ)
58 npcan1 10711 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ ℂ → ((𝑀 − 1) + 1) = 𝑀)
5957, 58syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑀 − 1) + 1) = 𝑀)
60 1red 10296 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 1 ∈ ℝ)
6120nnred 11293 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (((2nd𝑇) + 1) + 1) ∈ ℝ)
6219nnred 11293 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((2nd𝑇) + 1) ∈ ℝ)
6319nnge1d 11322 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → 1 ≤ ((2nd𝑇) + 1))
6462ltp1d 11210 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((2nd𝑇) + 1) < (((2nd𝑇) + 1) + 1))
6560, 62, 61, 63, 64lelttrd 10451 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → 1 < (((2nd𝑇) + 1) + 1))
66 elfzle1 12554 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑀 ∈ ((((2nd𝑇) + 1) + 1)...𝑁) → (((2nd𝑇) + 1) + 1) ≤ 𝑀)
6725, 66syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (((2nd𝑇) + 1) + 1) ≤ 𝑀)
6860, 61, 47, 65, 67ltletrd 10453 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → 1 < 𝑀)
6960, 47, 68ltled 10441 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ≤ 𝑀)
70 elnnz1 11653 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ ℕ ↔ (𝑀 ∈ ℤ ∧ 1 ≤ 𝑀))
7146, 69, 70sylanbrc 578 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 ∈ ℕ)
7271, 21syl6eleq 2854 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑀 ∈ (ℤ‘1))
7359, 72eqeltrd 2844 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ‘1))
74 peano2zm 11670 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑀 ∈ ℤ → (𝑀 − 1) ∈ ℤ)
7546, 74syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝑀 − 1) ∈ ℤ)
76 uzid 11904 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀 − 1) ∈ ℤ → (𝑀 − 1) ∈ (ℤ‘(𝑀 − 1)))
77 peano2uz 11944 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀 − 1) ∈ (ℤ‘(𝑀 − 1)) → ((𝑀 − 1) + 1) ∈ (ℤ‘(𝑀 − 1)))
7875, 76, 773syl 18 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ‘(𝑀 − 1)))
7959, 78eqeltrrd 2845 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 ∈ (ℤ‘(𝑀 − 1)))
80 uzss 11910 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ (ℤ‘(𝑀 − 1)) → (ℤ𝑀) ⊆ (ℤ‘(𝑀 − 1)))
8179, 80syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (ℤ𝑀) ⊆ (ℤ‘(𝑀 − 1)))
82 elfzuz3 12549 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ ((((2nd𝑇) + 1) + 1)...𝑁) → 𝑁 ∈ (ℤ𝑀))
8325, 82syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑁 ∈ (ℤ𝑀))
8481, 83sseldd 3764 . . . . . . . . . . . . . . . . . 18 (𝜑𝑁 ∈ (ℤ‘(𝑀 − 1)))
85 fzsplit2 12576 . . . . . . . . . . . . . . . . . 18 ((((𝑀 − 1) + 1) ∈ (ℤ‘1) ∧ 𝑁 ∈ (ℤ‘(𝑀 − 1))) → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
8673, 84, 85syl2anc 579 . . . . . . . . . . . . . . . . 17 (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
8759oveq1d 6859 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑀 − 1) + 1)...𝑁) = (𝑀...𝑁))
8887uneq2d 3931 . . . . . . . . . . . . . . . . 17 (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
8986, 88eqtrd 2799 . . . . . . . . . . . . . . . 16 (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
9089imaeq2d 5650 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))))
91 imaundi 5730 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
9290, 91syl6eq 2815 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
93 f1ofo 6329 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
9413, 93syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
95 foima 6305 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
9694, 95syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
9792, 96eqtr3d 2801 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) = (1...𝑁))
9897fneq2d 6162 . . . . . . . . . . . 12 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) ↔ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁)))
9956, 98mpbid 223 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
10099adantr 472 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
101 ovexd 6878 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → (1...𝑁) ∈ V)
102 inidm 3984 . . . . . . . . . 10 ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
103 eqidd 2766 . . . . . . . . . 10 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) = ((1st ‘(1st𝑇))‘𝑛))
104 imaundi 5730 . . . . . . . . . . . . . . . . . 18 ((2nd ‘(1st𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ {𝑀}) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
105 fzpred 12599 . . . . . . . . . . . . . . . . . . . 20 (𝑁 ∈ (ℤ𝑀) → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
10683, 105syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
107106imaeq2d 5650 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) = ((2nd ‘(1st𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))))
108 f1ofn 6323 . . . . . . . . . . . . . . . . . . . . 21 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)) Fn (1...𝑁))
10913, 108syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (2nd ‘(1st𝑇)) Fn (1...𝑁))
110 fnsnfv 6449 . . . . . . . . . . . . . . . . . . . 20 (((2nd ‘(1st𝑇)) Fn (1...𝑁) ∧ 𝑀 ∈ (1...𝑁)) → {((2nd ‘(1st𝑇))‘𝑀)} = ((2nd ‘(1st𝑇)) “ {𝑀}))
111109, 26, 110syl2anc 579 . . . . . . . . . . . . . . . . . . 19 (𝜑 → {((2nd ‘(1st𝑇))‘𝑀)} = ((2nd ‘(1st𝑇)) “ {𝑀}))
112111uneq1d 3930 . . . . . . . . . . . . . . . . . 18 (𝜑 → ({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ {𝑀}) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
113104, 107, 1123eqtr4a 2825 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) = ({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
114113xpeq1d 5308 . . . . . . . . . . . . . . . 16 (𝜑 → (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}))
115 xpundir 5342 . . . . . . . . . . . . . . . 16 (({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}) = (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
116114, 115syl6eq 2815 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
117116uneq2d 3931 . . . . . . . . . . . . . 14 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
118 un12 3935 . . . . . . . . . . . . . 14 ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))) = (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
119117, 118syl6eq 2815 . . . . . . . . . . . . 13 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) = (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
120119fveq1d 6379 . . . . . . . . . . . 12 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
121120ad2antrr 717 . . . . . . . . . . 11 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
122 fnconstg 6277 . . . . . . . . . . . . . . . . 17 (0 ∈ V → (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
12336, 122ax-mp 5 . . . . . . . . . . . . . . . 16 (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))
12435, 123pm3.2i 462 . . . . . . . . . . . . . . 15 ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∧ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
125 imain 6154 . . . . . . . . . . . . . . . . 17 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
12642, 125syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
12775zred 11732 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑀 − 1) ∈ ℝ)
128 peano2re 10465 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
12947, 128syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑀 + 1) ∈ ℝ)
13047ltp1d 11210 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 < (𝑀 + 1))
131127, 47, 129, 48, 130lttrd 10454 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑀 − 1) < (𝑀 + 1))
132 fzdisj 12578 . . . . . . . . . . . . . . . . . . 19 ((𝑀 − 1) < (𝑀 + 1) → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
133131, 132syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
134133imaeq2d 5650 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ((2nd ‘(1st𝑇)) “ ∅))
135134, 52syl6eq 2815 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ∅)
136126, 135eqtr3d 2801 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
137 fnun 6177 . . . . . . . . . . . . . . 15 ((((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∧ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) ∧ (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅) → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
138124, 136, 137sylancr 581 . . . . . . . . . . . . . 14 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
139 imaundi 5730 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
140 imadif 6153 . . . . . . . . . . . . . . . . . 18 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) ∖ ((2nd ‘(1st𝑇)) “ {𝑀})))
14142, 140syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) ∖ ((2nd ‘(1st𝑇)) “ {𝑀})))
142 fzsplit 12577 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ (1...𝑁) → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
14326, 142syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
144143difeq1d 3891 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((1...𝑁) ∖ {𝑀}) = (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}))
145 difundir 4047 . . . . . . . . . . . . . . . . . . . 20 (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀}))
146 fzsplit2 12576 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝑀 − 1) + 1) ∈ (ℤ‘1) ∧ 𝑀 ∈ (ℤ‘(𝑀 − 1))) → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
14773, 79, 146syl2anc 579 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
14859oveq1d 6859 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (((𝑀 − 1) + 1)...𝑀) = (𝑀...𝑀))
149 fzsn 12593 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀})
15046, 149syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (𝑀...𝑀) = {𝑀})
151148, 150eqtrd 2799 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (((𝑀 − 1) + 1)...𝑀) = {𝑀})
152151uneq2d 3931 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)) = ((1...(𝑀 − 1)) ∪ {𝑀}))
153147, 152eqtrd 2799 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ {𝑀}))
154153difeq1d 3891 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((1...𝑀) ∖ {𝑀}) = (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}))
155 difun2 4210 . . . . . . . . . . . . . . . . . . . . . . 23 (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∖ {𝑀})
156127, 47ltnled 10440 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → ((𝑀 − 1) < 𝑀 ↔ ¬ 𝑀 ≤ (𝑀 − 1)))
15748, 156mpbid 223 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → ¬ 𝑀 ≤ (𝑀 − 1))
158 elfzle2 12555 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑀 ∈ (1...(𝑀 − 1)) → 𝑀 ≤ (𝑀 − 1))
159157, 158nsyl 137 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ¬ 𝑀 ∈ (1...(𝑀 − 1)))
160 difsn 4485 . . . . . . . . . . . . . . . . . . . . . . . 24 𝑀 ∈ (1...(𝑀 − 1)) → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
161159, 160syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
162155, 161syl5eq 2811 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = (1...(𝑀 − 1)))
163154, 162eqtrd 2799 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((1...𝑀) ∖ {𝑀}) = (1...(𝑀 − 1)))
16447, 129ltnled 10440 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
165130, 164mpbid 223 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
166 elfzle1 12554 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑀 ∈ ((𝑀 + 1)...𝑁) → (𝑀 + 1) ≤ 𝑀)
167165, 166nsyl 137 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ¬ 𝑀 ∈ ((𝑀 + 1)...𝑁))
168 difsn 4485 . . . . . . . . . . . . . . . . . . . . . 22 𝑀 ∈ ((𝑀 + 1)...𝑁) → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
169167, 168syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
170163, 169uneq12d 3932 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀})) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
171145, 170syl5eq 2811 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
172144, 171eqtrd 2799 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((1...𝑁) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
173172imaeq2d 5650 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑁) ∖ {𝑀})) = ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))))
174111eqcomd 2771 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2nd ‘(1st𝑇)) “ {𝑀}) = {((2nd ‘(1st𝑇))‘𝑀)})
17596, 174difeq12d 3893 . . . . . . . . . . . . . . . . 17 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑁)) ∖ ((2nd ‘(1st𝑇)) “ {𝑀})) = ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
176141, 173, 1753eqtr3d 2807 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
177139, 176syl5eqr 2813 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
178177fneq2d 6162 . . . . . . . . . . . . . 14 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) ↔ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})))
179138, 178mpbid 223 . . . . . . . . . . . . 13 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
180 eldifsn 4474 . . . . . . . . . . . . . . 15 (𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ↔ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)))
181180biimpri 219 . . . . . . . . . . . . . 14 ((𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
182181ancoms 450 . . . . . . . . . . . . 13 ((𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
183 disjdif 4202 . . . . . . . . . . . . . 14 ({((2nd ‘(1st𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) = ∅
184 fnconstg 6277 . . . . . . . . . . . . . . . 16 (0 ∈ V → ({((2nd ‘(1st𝑇))‘𝑀)} × {0}) Fn {((2nd ‘(1st𝑇))‘𝑀)})
18536, 184ax-mp 5 . . . . . . . . . . . . . . 15 ({((2nd ‘(1st𝑇))‘𝑀)} × {0}) Fn {((2nd ‘(1st𝑇))‘𝑀)}
186 fvun2 6461 . . . . . . . . . . . . . . 15 ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) Fn {((2nd ‘(1st𝑇))‘𝑀)} ∧ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ∧ (({((2nd ‘(1st𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
187185, 186mp3an1 1572 . . . . . . . . . . . . . 14 ((((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ∧ (({((2nd ‘(1st𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
188183, 187mpanr1 694 . . . . . . . . . . . . 13 ((((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
189179, 182, 188syl2an 589 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁))) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
190189anassrs 459 . . . . . . . . . . 11 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
191121, 190eqtrd 2799 . . . . . . . . . 10 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
19232, 100, 101, 101, 102, 103, 191ofval 7106 . . . . . . . . 9 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇))‘𝑛) + (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛)))
193 fnconstg 6277 . . . . . . . . . . . . . . 15 (1 ∈ V → (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑀)))
19433, 193ax-mp 5 . . . . . . . . . . . . . 14 (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑀))
195194, 123pm3.2i 462 . . . . . . . . . . . . 13 ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑀)) ∧ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
196 imain 6154 . . . . . . . . . . . . . . 15 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
19742, 196syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
198 fzdisj 12578 . . . . . . . . . . . . . . . . 17 (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
199130, 198syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
200199imaeq2d 5650 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ((2nd ‘(1st𝑇)) “ ∅))
201200, 52syl6eq 2815 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ∅)
202197, 201eqtr3d 2801 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
203 fnun 6177 . . . . . . . . . . . . 13 ((((((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)...𝑁))))
204195, 202, 203sylancr 581 . . . . . . . . . . . 12 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
205143imaeq2d 5650 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))))
206 imaundi 5730 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
207205, 206syl6eq 2815 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
208207, 96eqtr3d 2801 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = (1...𝑁))
209208fneq2d 6162 . . . . . . . . . . . 12 (𝜑 → (((((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...𝑁)))
210204, 209mpbid 223 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
211210adantr 472 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
212 imaundi 5730 . . . . . . . . . . . . . . . . . 18 ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ {𝑀}))
213153imaeq2d 5650 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑀)) = ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})))
214111uneq2d 3931 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ {𝑀})))
215212, 213, 2143eqtr4a 2825 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑀)) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}))
216215xpeq1d 5308 . . . . . . . . . . . . . . . 16 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}) × {1}))
217 xpundir 5342 . . . . . . . . . . . . . . . 16 ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}) × {1}) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1}))
218216, 217syl6eq 2815 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1})))
219218uneq1d 3930 . . . . . . . . . . . . . 14 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1})) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
220 un23 3936 . . . . . . . . . . . . . . 15 (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1})) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1}))
221220equncomi 3923 . . . . . . . . . . . . . 14 (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1})) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
222219, 221syl6eq 2815 . . . . . . . . . . . . 13 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
223222fveq1d 6379 . . . . . . . . . . . 12 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
224223ad2antrr 717 . . . . . . . . . . 11 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
225 fnconstg 6277 . . . . . . . . . . . . . . . 16 (1 ∈ V → ({((2nd ‘(1st𝑇))‘𝑀)} × {1}) Fn {((2nd ‘(1st𝑇))‘𝑀)})
22633, 225ax-mp 5 . . . . . . . . . . . . . . 15 ({((2nd ‘(1st𝑇))‘𝑀)} × {1}) Fn {((2nd ‘(1st𝑇))‘𝑀)}
227 fvun2 6461 . . . . . . . . . . . . . . 15 ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) Fn {((2nd ‘(1st𝑇))‘𝑀)} ∧ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ∧ (({((2nd ‘(1st𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
228226, 227mp3an1 1572 . . . . . . . . . . . . . 14 ((((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ∧ (({((2nd ‘(1st𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
229183, 228mpanr1 694 . . . . . . . . . . . . 13 ((((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
230179, 182, 229syl2an 589 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁))) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
231230anassrs 459 . . . . . . . . . . 11 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
232224, 231eqtrd 2799 . . . . . . . . . 10 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
23332, 211, 101, 101, 102, 103, 232ofval 7106 . . . . . . . . 9 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇))‘𝑛) + (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛)))
234192, 233eqtr4d 2802 . . . . . . . 8 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
235234an32s 642 . . . . . . 7 (((𝜑𝑛 ∈ (1...𝑁)) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
236235anasss 458 . . . . . 6 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
237 fveq2 6377 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
238237breq2d 4823 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
239238ifbid 4267 . . . . . . . . . . . . . . . 16 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
240239csbeq1d 3700 . . . . . . . . . . . . . . 15 (𝑡 = 𝑇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}))))
241 2fveq3 6382 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
242 2fveq3 6382 . . . . . . . . . . . . . . . . . . . 20 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
243242imaeq1d 5649 . . . . . . . . . . . . . . . . . . 19 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
244243xpeq1d 5308 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
245242imaeq1d 5649 . . . . . . . . . . . . . . . . . . 19 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
246245xpeq1d 5308 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
247244, 246uneq12d 3932 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
248241, 247oveq12d 6862 . . . . . . . . . . . . . . . 16 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
249248csbeq2dv 4155 . . . . . . . . . . . . . . 15 (𝑡 = 𝑇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}))))
250240, 249eqtrd 2799 . . . . . . . . . . . . . 14 (𝑡 = 𝑇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}))))
251250mpteq2dv 4906 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → (𝑦 ∈ (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})))))
252251eqeq2d 2775 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (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}))))))
253252, 3elrab2 3525 . . . . . . . . . . 11 (𝑇𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
254253simprbi 490 . . . . . . . . . 10 (𝑇𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
2551, 254syl 17 . . . . . . . . 9 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
256 breq1 4814 . . . . . . . . . . . . . 14 (𝑦 = (𝑀 − 2) → (𝑦 < (2nd𝑇) ↔ (𝑀 − 2) < (2nd𝑇)))
257256adantl 473 . . . . . . . . . . . . 13 ((𝜑𝑦 = (𝑀 − 2)) → (𝑦 < (2nd𝑇) ↔ (𝑀 − 2) < (2nd𝑇)))
258 oveq1 6851 . . . . . . . . . . . . . 14 (𝑦 = (𝑀 − 2) → (𝑦 + 1) = ((𝑀 − 2) + 1))
259 sub1m1 11532 . . . . . . . . . . . . . . . . 17 (𝑀 ∈ ℂ → ((𝑀 − 1) − 1) = (𝑀 − 2))
26057, 259syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑀 − 1) − 1) = (𝑀 − 2))
261260oveq1d 6859 . . . . . . . . . . . . . . 15 (𝜑 → (((𝑀 − 1) − 1) + 1) = ((𝑀 − 2) + 1))
26275zcnd 11733 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑀 − 1) ∈ ℂ)
263 npcan1 10711 . . . . . . . . . . . . . . . 16 ((𝑀 − 1) ∈ ℂ → (((𝑀 − 1) − 1) + 1) = (𝑀 − 1))
264262, 263syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (((𝑀 − 1) − 1) + 1) = (𝑀 − 1))
265261, 264eqtr3d 2801 . . . . . . . . . . . . . 14 (𝜑 → ((𝑀 − 2) + 1) = (𝑀 − 1))
266258, 265sylan9eqr 2821 . . . . . . . . . . . . 13 ((𝜑𝑦 = (𝑀 − 2)) → (𝑦 + 1) = (𝑀 − 1))
267257, 266ifbieq2d 4270 . . . . . . . . . . . 12 ((𝜑𝑦 = (𝑀 − 2)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = if((𝑀 − 2) < (2nd𝑇), 𝑦, (𝑀 − 1)))
26818nncnd 11294 . . . . . . . . . . . . . . . . 17 (𝜑 → (2nd𝑇) ∈ ℂ)
269 add1p1 11531 . . . . . . . . . . . . . . . . 17 ((2nd𝑇) ∈ ℂ → (((2nd𝑇) + 1) + 1) = ((2nd𝑇) + 2))
270268, 269syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (((2nd𝑇) + 1) + 1) = ((2nd𝑇) + 2))
271270, 67eqbrtrrd 4835 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd𝑇) + 2) ≤ 𝑀)
27218nnred 11293 . . . . . . . . . . . . . . . . 17 (𝜑 → (2nd𝑇) ∈ ℝ)
273 2re 11348 . . . . . . . . . . . . . . . . . 18 2 ∈ ℝ
274 leaddsub 10760 . . . . . . . . . . . . . . . . . 18 (((2nd𝑇) ∈ ℝ ∧ 2 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2nd𝑇) + 2) ≤ 𝑀 ↔ (2nd𝑇) ≤ (𝑀 − 2)))
275273, 274mp3an2 1573 . . . . . . . . . . . . . . . . 17 (((2nd𝑇) ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2nd𝑇) + 2) ≤ 𝑀 ↔ (2nd𝑇) ≤ (𝑀 − 2)))
276272, 47, 275syl2anc 579 . . . . . . . . . . . . . . . 16 (𝜑 → (((2nd𝑇) + 2) ≤ 𝑀 ↔ (2nd𝑇) ≤ (𝑀 − 2)))
27760, 47posdifd 10870 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (1 < 𝑀 ↔ 0 < (𝑀 − 1)))
27868, 277mpbid 223 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 0 < (𝑀 − 1))
279 elnnz 11636 . . . . . . . . . . . . . . . . . . . . 21 ((𝑀 − 1) ∈ ℕ ↔ ((𝑀 − 1) ∈ ℤ ∧ 0 < (𝑀 − 1)))
28075, 278, 279sylanbrc 578 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑀 − 1) ∈ ℕ)
281 nnm1nn0 11583 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 − 1) ∈ ℕ → ((𝑀 − 1) − 1) ∈ ℕ0)
282280, 281syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑀 − 1) − 1) ∈ ℕ0)
283260, 282eqeltrrd 2845 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑀 − 2) ∈ ℕ0)
284283nn0red 11601 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑀 − 2) ∈ ℝ)
285272, 284lenltd 10439 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd𝑇) ≤ (𝑀 − 2) ↔ ¬ (𝑀 − 2) < (2nd𝑇)))
286276, 285bitrd 270 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd𝑇) + 2) ≤ 𝑀 ↔ ¬ (𝑀 − 2) < (2nd𝑇)))
287271, 286mpbid 223 . . . . . . . . . . . . . 14 (𝜑 → ¬ (𝑀 − 2) < (2nd𝑇))
288287iffalsed 4256 . . . . . . . . . . . . 13 (𝜑 → if((𝑀 − 2) < (2nd𝑇), 𝑦, (𝑀 − 1)) = (𝑀 − 1))
289288adantr 472 . . . . . . . . . . . 12 ((𝜑𝑦 = (𝑀 − 2)) → if((𝑀 − 2) < (2nd𝑇), 𝑦, (𝑀 − 1)) = (𝑀 − 1))
290267, 289eqtrd 2799 . . . . . . . . . . 11 ((𝜑𝑦 = (𝑀 − 2)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = (𝑀 − 1))
291290csbeq1d 3700 . . . . . . . . . 10 ((𝜑𝑦 = (𝑀 − 2)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = (𝑀 − 1) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
292 oveq2 6852 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 − 1) → (1...𝑗) = (1...(𝑀 − 1)))
293292imaeq2d 5650 . . . . . . . . . . . . . . . 16 (𝑗 = (𝑀 − 1) → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))))
294293xpeq1d 5308 . . . . . . . . . . . . . . 15 (𝑗 = (𝑀 − 1) → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}))
295294adantl 473 . . . . . . . . . . . . . 14 ((𝜑𝑗 = (𝑀 − 1)) → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}))
296 oveq1 6851 . . . . . . . . . . . . . . . . . 18 (𝑗 = (𝑀 − 1) → (𝑗 + 1) = ((𝑀 − 1) + 1))
297296, 59sylan9eqr 2821 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 = (𝑀 − 1)) → (𝑗 + 1) = 𝑀)
298297oveq1d 6859 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 = (𝑀 − 1)) → ((𝑗 + 1)...𝑁) = (𝑀...𝑁))
299298imaeq2d 5650 . . . . . . . . . . . . . . 15 ((𝜑𝑗 = (𝑀 − 1)) → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
300299xpeq1d 5308 . . . . . . . . . . . . . 14 ((𝜑𝑗 = (𝑀 − 1)) → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))
301295, 300uneq12d 3932 . . . . . . . . . . . . 13 ((𝜑𝑗 = (𝑀 − 1)) → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))
302301oveq2d 6860 . . . . . . . . . . . 12 ((𝜑𝑗 = (𝑀 − 1)) → ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
30375, 302csbied 3720 . . . . . . . . . . 11 (𝜑(𝑀 − 1) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
304303adantr 472 . . . . . . . . . 10 ((𝜑𝑦 = (𝑀 − 2)) → (𝑀 − 1) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
305291, 304eqtrd 2799 . . . . . . . . 9 ((𝜑𝑦 = (𝑀 − 2)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
306 poimir.0 . . . . . . . . . . 11 (𝜑𝑁 ∈ ℕ)
307 nnm1nn0 11583 . . . . . . . . . . 11 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
308306, 307syl 17 . . . . . . . . . 10 (𝜑 → (𝑁 − 1) ∈ ℕ0)
309306nnred 11293 . . . . . . . . . . . 12 (𝜑𝑁 ∈ ℝ)
31047lem1d 11213 . . . . . . . . . . . . 13 (𝜑 → (𝑀 − 1) ≤ 𝑀)
311 elfzle2 12555 . . . . . . . . . . . . . 14 (𝑀 ∈ ((((2nd𝑇) + 1) + 1)...𝑁) → 𝑀𝑁)
31225, 311syl 17 . . . . . . . . . . . . 13 (𝜑𝑀𝑁)
313127, 47, 309, 310, 312letrd 10450 . . . . . . . . . . . 12 (𝜑 → (𝑀 − 1) ≤ 𝑁)
314127, 309, 60, 313lesub1dd 10899 . . . . . . . . . . 11 (𝜑 → ((𝑀 − 1) − 1) ≤ (𝑁 − 1))
315260, 314eqbrtrrd 4835 . . . . . . . . . 10 (𝜑 → (𝑀 − 2) ≤ (𝑁 − 1))
316 elfz2nn0 12641 . . . . . . . . . 10 ((𝑀 − 2) ∈ (0...(𝑁 − 1)) ↔ ((𝑀 − 2) ∈ ℕ0 ∧ (𝑁 − 1) ∈ ℕ0 ∧ (𝑀 − 2) ≤ (𝑁 − 1)))
317283, 308, 315, 316syl3anbrc 1443 . . . . . . . . 9 (𝜑 → (𝑀 − 2) ∈ (0...(𝑁 − 1)))
318 ovexd 6878 . . . . . . . . 9 (𝜑 → ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))) ∈ V)
319255, 305, 317, 318fvmptd 6479 . . . . . . . 8 (𝜑 → (𝐹‘(𝑀 − 2)) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
320319fveq1d 6379 . . . . . . 7 (𝜑 → ((𝐹‘(𝑀 − 2))‘𝑛) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
321320adantr 472 . . . . . 6 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 2))‘𝑛) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
322 breq1 4814 . . . . . . . . . . . . . 14 (𝑦 = (𝑀 − 1) → (𝑦 < (2nd𝑇) ↔ (𝑀 − 1) < (2nd𝑇)))
323322adantl 473 . . . . . . . . . . . . 13 ((𝜑𝑦 = (𝑀 − 1)) → (𝑦 < (2nd𝑇) ↔ (𝑀 − 1) < (2nd𝑇)))
324 oveq1 6851 . . . . . . . . . . . . . 14 (𝑦 = (𝑀 − 1) → (𝑦 + 1) = ((𝑀 − 1) + 1))
325324, 59sylan9eqr 2821 . . . . . . . . . . . . 13 ((𝜑𝑦 = (𝑀 − 1)) → (𝑦 + 1) = 𝑀)
326323, 325ifbieq2d 4270 . . . . . . . . . . . 12 ((𝜑𝑦 = (𝑀 − 1)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = if((𝑀 − 1) < (2nd𝑇), 𝑦, 𝑀))
32762lep1d 11211 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd𝑇) + 1) ≤ (((2nd𝑇) + 1) + 1))
32862, 61, 47, 327, 67letrd 10450 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd𝑇) + 1) ≤ 𝑀)
329 1re 10295 . . . . . . . . . . . . . . . . . 18 1 ∈ ℝ
330 leaddsub 10760 . . . . . . . . . . . . . . . . . 18 (((2nd𝑇) ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2nd𝑇) + 1) ≤ 𝑀 ↔ (2nd𝑇) ≤ (𝑀 − 1)))
331329, 330mp3an2 1573 . . . . . . . . . . . . . . . . 17 (((2nd𝑇) ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2nd𝑇) + 1) ≤ 𝑀 ↔ (2nd𝑇) ≤ (𝑀 − 1)))
332272, 47, 331syl2anc 579 . . . . . . . . . . . . . . . 16 (𝜑 → (((2nd𝑇) + 1) ≤ 𝑀 ↔ (2nd𝑇) ≤ (𝑀 − 1)))
333272, 127lenltd 10439 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd𝑇) ≤ (𝑀 − 1) ↔ ¬ (𝑀 − 1) < (2nd𝑇)))
334332, 333bitrd 270 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd𝑇) + 1) ≤ 𝑀 ↔ ¬ (𝑀 − 1) < (2nd𝑇)))
335328, 334mpbid 223 . . . . . . . . . . . . . 14 (𝜑 → ¬ (𝑀 − 1) < (2nd𝑇))
336335iffalsed 4256 . . . . . . . . . . . . 13 (𝜑 → if((𝑀 − 1) < (2nd𝑇), 𝑦, 𝑀) = 𝑀)
337336adantr 472 . . . . . . . . . . . 12 ((𝜑𝑦 = (𝑀 − 1)) → if((𝑀 − 1) < (2nd𝑇), 𝑦, 𝑀) = 𝑀)
338326, 337eqtrd 2799 . . . . . . . . . . 11 ((𝜑𝑦 = (𝑀 − 1)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = 𝑀)
339338csbeq1d 3700 . . . . . . . . . 10 ((𝜑𝑦 = (𝑀 − 1)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = 𝑀 / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
340 oveq2 6852 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑀 → (1...𝑗) = (1...𝑀))
341340imaeq2d 5650 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑀 → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑀)))
342341xpeq1d 5308 . . . . . . . . . . . . . . 15 (𝑗 = 𝑀 → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}))
343 oveq1 6851 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝑀 → (𝑗 + 1) = (𝑀 + 1))
344343oveq1d 6859 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑀 → ((𝑗 + 1)...𝑁) = ((𝑀 + 1)...𝑁))
345344imaeq2d 5650 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑀 → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
346345xpeq1d 5308 . . . . . . . . . . . . . . 15 (𝑗 = 𝑀 → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
347342, 346uneq12d 3932 . . . . . . . . . . . . . 14 (𝑗 = 𝑀 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
348347oveq2d 6860 . . . . . . . . . . . . 13 (𝑗 = 𝑀 → ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
349348adantl 473 . . . . . . . . . . . 12 ((𝜑𝑗 = 𝑀) → ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
35025, 349csbied 3720 . . . . . . . . . . 11 (𝜑𝑀 / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
351350adantr 472 . . . . . . . . . 10 ((𝜑𝑦 = (𝑀 − 1)) → 𝑀 / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
352339, 351eqtrd 2799 . . . . . . . . 9 ((𝜑𝑦 = (𝑀 − 1)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
353280nnnn0d 11600 . . . . . . . . . 10 (𝜑 → (𝑀 − 1) ∈ ℕ0)
35447, 309, 60, 312lesub1dd 10899 . . . . . . . . . 10 (𝜑 → (𝑀 − 1) ≤ (𝑁 − 1))
355 elfz2nn0 12641 . . . . . . . . . 10 ((𝑀 − 1) ∈ (0...(𝑁 − 1)) ↔ ((𝑀 − 1) ∈ ℕ0 ∧ (𝑁 − 1) ∈ ℕ0 ∧ (𝑀 − 1) ≤ (𝑁 − 1)))
356353, 308, 354, 355syl3anbrc 1443 . . . . . . . . 9 (𝜑 → (𝑀 − 1) ∈ (0...(𝑁 − 1)))
357 ovexd 6878 . . . . . . . . 9 (𝜑 → ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))) ∈ V)
358255, 352, 356, 357fvmptd 6479 . . . . . . . 8 (𝜑 → (𝐹‘(𝑀 − 1)) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
359358fveq1d 6379 . . . . . . 7 (𝜑 → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
360359adantr 472 . . . . . 6 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
361236, 321, 3603eqtr4d 2809 . . . . 5 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 2))‘𝑛) = ((𝐹‘(𝑀 − 1))‘𝑛))
362361expr 448 . . . 4 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) = ((𝐹‘(𝑀 − 1))‘𝑛)))
363362necon1d 2959 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛) → 𝑛 = ((2nd ‘(1st𝑇))‘𝑀)))
364 elmapi 8084 . . . . . . . . . . 11 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)) → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
36529, 364syl 17 . . . . . . . . . 10 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
366365, 27ffvelrnd 6552 . . . . . . . . 9 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ (0..^𝐾))
367 elfzonn0 12724 . . . . . . . . 9 (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ (0..^𝐾) → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℕ0)
368366, 367syl 17 . . . . . . . 8 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℕ0)
369368nn0red 11601 . . . . . . 7 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℝ)
370369ltp1d 11210 . . . . . . 7 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) < (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
371369, 370ltned 10429 . . . . . 6 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ≠ (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
372319fveq1d 6379 . . . . . . 7 (𝜑 → ((𝐹‘(𝑀 − 2))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)))
373 ovexd 6878 . . . . . . . . 9 (𝜑 → (1...𝑁) ∈ V)
374 eqidd 2766 . . . . . . . . 9 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)))
375 fzss1 12590 . . . . . . . . . . . . . 14 (𝑀 ∈ (ℤ‘1) → (𝑀...𝑁) ⊆ (1...𝑁))
37672, 375syl 17 . . . . . . . . . . . . 13 (𝜑 → (𝑀...𝑁) ⊆ (1...𝑁))
377 eluzfz1 12558 . . . . . . . . . . . . . 14 (𝑁 ∈ (ℤ𝑀) → 𝑀 ∈ (𝑀...𝑁))
37883, 377syl 17 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ (𝑀...𝑁))
379 fnfvima 6691 . . . . . . . . . . . . 13 (((2nd ‘(1st𝑇)) Fn (1...𝑁) ∧ (𝑀...𝑁) ⊆ (1...𝑁) ∧ 𝑀 ∈ (𝑀...𝑁)) → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
380109, 376, 378, 379syl3anc 1490 . . . . . . . . . . . 12 (𝜑 → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
381 fvun2 6461 . . . . . . . . . . . . 13 (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∧ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) ∧ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) = ∅ ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)))
38235, 38, 381mp3an12 1575 . . . . . . . . . . . 12 (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) = ∅ ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)))
38354, 380, 382syl2anc 579 . . . . . . . . . . 11 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)))
38436fvconst2 6664 . . . . . . . . . . . 12 (((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) → ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
385380, 384syl 17 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
386383, 385eqtrd 2799 . . . . . . . . . 10 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
387386adantr 472 . . . . . . . . 9 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
38831, 99, 373, 373, 102, 374, 387ofval 7106 . . . . . . . 8 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 0))
38927, 388mpdan 678 . . . . . . 7 (𝜑 → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 0))
390368nn0cnd 11602 . . . . . . . 8 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℂ)
391390addid1d 10492 . . . . . . 7 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 0) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)))
392372, 389, 3913eqtrd 2803 . . . . . 6 (𝜑 → ((𝐹‘(𝑀 − 2))‘((2nd ‘(1st𝑇))‘𝑀)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)))
393358fveq1d 6379 . . . . . . 7 (𝜑 → ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)))
394 fzss2 12591 . . . . . . . . . . . . . 14 (𝑁 ∈ (ℤ𝑀) → (1...𝑀) ⊆ (1...𝑁))
39583, 394syl 17 . . . . . . . . . . . . 13 (𝜑 → (1...𝑀) ⊆ (1...𝑁))
396 elfz1end 12581 . . . . . . . . . . . . . 14 (𝑀 ∈ ℕ ↔ 𝑀 ∈ (1...𝑀))
39771, 396sylib 209 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ (1...𝑀))
398 fnfvima 6691 . . . . . . . . . . . . 13 (((2nd ‘(1st𝑇)) Fn (1...𝑁) ∧ (1...𝑀) ⊆ (1...𝑁) ∧ 𝑀 ∈ (1...𝑀)) → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (1...𝑀)))
399109, 395, 397, 398syl3anc 1490 . . . . . . . . . . . 12 (𝜑 → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (1...𝑀)))
400 fvun1 6460 . . . . . . . . . . . . 13 (((((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...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)))
401194, 123, 400mp3an12 1575 . . . . . . . . . . . 12 (((((2nd ‘(1st𝑇)) “ (1...𝑀)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅ ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (1...𝑀))) → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)))
402202, 399, 401syl2anc 579 . . . . . . . . . . 11 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)))
40333fvconst2 6664 . . . . . . . . . . . 12 (((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (1...𝑀)) → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
404399, 403syl 17 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
405402, 404eqtrd 2799 . . . . . . . . . 10 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
406405adantr 472 . . . . . . . . 9 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
40731, 210, 373, 373, 102, 374, 406ofval 7106 . . . . . . . 8 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
40827, 407mpdan 678 . . . . . . 7 (𝜑 → (((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
409393, 408eqtrd 2799 . . . . . 6 (𝜑 → ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
410371, 392, 4093netr4d 3014 . . . . 5 (𝜑 → ((𝐹‘(𝑀 − 2))‘((2nd ‘(1st𝑇))‘𝑀)) ≠ ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)))
411 fveq2 6377 . . . . . 6 (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) = ((𝐹‘(𝑀 − 2))‘((2nd ‘(1st𝑇))‘𝑀)))
412 fveq2 6377 . . . . . 6 (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)))
413411, 412neeq12d 2998 . . . . 5 (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → (((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛) ↔ ((𝐹‘(𝑀 − 2))‘((2nd ‘(1st𝑇))‘𝑀)) ≠ ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀))))
414410, 413syl5ibrcom 238 . . . 4 (𝜑 → (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛)))
415414adantr 472 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛)))
416363, 415impbid 203 . 2 ((𝜑𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛) ↔ 𝑛 = ((2nd ‘(1st𝑇))‘𝑀)))
41727, 416riota5 6831 1 (𝜑 → (𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛)) = ((2nd ‘(1st𝑇))‘𝑀))
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   class class class wbr 4811  cmpt 4890   × cxp 5277  ccnv 5278  cima 5282  Fun wfun 6064   Fn wfn 6065  wf 6066  ontowfo 6068  1-1-ontowf1o 6069  cfv 6070  crio 6804  (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  2c2 11329  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-rep 4932  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-of 7097  df-om 7266  df-1st 7368  df-2nd 7369  df-wrecs 7612  df-recs 7674  df-rdg 7712  df-er 7949  df-map 8064  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-2 11337  df-n0 11541  df-z 11627  df-uz 11890  df-fz 12537  df-fzo 12677
This theorem is referenced by:  poimirlem8  33844
  Copyright terms: Public domain W3C validator