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

Theorem poimirlem6 35770
Description: Lemma for poimir 35797 establishing, for a face of a simplex defined by a walk along the edges of an 𝑁-cube, the single dimension in which successive vertices before the opposite vertex differ. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0 (𝜑𝑁 ∈ ℕ)
poimirlem22.s 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
poimirlem9.1 (𝜑𝑇𝑆)
poimirlem9.2 (𝜑 → (2nd𝑇) ∈ (1...(𝑁 − 1)))
poimirlem6.3 (𝜑𝑀 ∈ (1...((2nd𝑇) − 1)))
Assertion
Ref Expression
poimirlem6 (𝜑 → (𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹𝑀)‘𝑛)) = ((2nd ‘(1st𝑇))‘𝑀))
Distinct variable groups:   𝑓,𝑗,𝑛,𝑡,𝑦   𝜑,𝑗,𝑛,𝑦   𝑗,𝐹,𝑛,𝑦   𝑗,𝑀,𝑛,𝑦   𝑗,𝑁,𝑛,𝑦   𝑇,𝑗,𝑛,𝑦   𝜑,𝑡   𝑓,𝐾,𝑗,𝑛,𝑡   𝑓,𝑀,𝑡   𝑓,𝑁,𝑡   𝑇,𝑓   𝑓,𝐹,𝑡   𝑡,𝑇   𝑆,𝑗,𝑛,𝑡,𝑦
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem6
StepHypRef Expression
1 poimirlem9.1 . . . . . . . 8 (𝜑𝑇𝑆)
2 elrabi 3619 . . . . . . . . 9 (𝑇 ∈ {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
3 poimirlem22.s . . . . . . . . 9 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
42, 3eleq2s 2857 . . . . . . . 8 (𝑇𝑆𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
51, 4syl 17 . . . . . . 7 (𝜑𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
6 xp1st 7854 . . . . . . 7 (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
75, 6syl 17 . . . . . 6 (𝜑 → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
8 xp2nd 7855 . . . . . 6 ((1st𝑇) ∈ (((0..^𝐾) ↑m (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 6781 . . . . . 6 (2nd ‘(1st𝑇)) ∈ V
11 f1oeq1 6698 . . . . . 6 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
1210, 11elab 3610 . . . . 5 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
139, 12sylib 217 . . . 4 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
14 f1of 6710 . . . 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 13274 . . . . . . . . 9 ((2nd𝑇) ∈ (1...(𝑁 − 1)) → (2nd𝑇) ∈ ℕ)
1816, 17syl 17 . . . . . . . 8 (𝜑 → (2nd𝑇) ∈ ℕ)
1918nnzd 12414 . . . . . . 7 (𝜑 → (2nd𝑇) ∈ ℤ)
20 peano2zm 12352 . . . . . . 7 ((2nd𝑇) ∈ ℤ → ((2nd𝑇) − 1) ∈ ℤ)
2119, 20syl 17 . . . . . 6 (𝜑 → ((2nd𝑇) − 1) ∈ ℤ)
22 poimir.0 . . . . . . 7 (𝜑𝑁 ∈ ℕ)
2322nnzd 12414 . . . . . 6 (𝜑𝑁 ∈ ℤ)
2421zred 12415 . . . . . . 7 (𝜑 → ((2nd𝑇) − 1) ∈ ℝ)
2518nnred 11977 . . . . . . 7 (𝜑 → (2nd𝑇) ∈ ℝ)
2622nnred 11977 . . . . . . 7 (𝜑𝑁 ∈ ℝ)
2725lem1d 11897 . . . . . . 7 (𝜑 → ((2nd𝑇) − 1) ≤ (2nd𝑇))
28 nnm1nn0 12263 . . . . . . . . . 10 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
2922, 28syl 17 . . . . . . . . 9 (𝜑 → (𝑁 − 1) ∈ ℕ0)
3029nn0red 12283 . . . . . . . 8 (𝜑 → (𝑁 − 1) ∈ ℝ)
31 elfzle2 13249 . . . . . . . . 9 ((2nd𝑇) ∈ (1...(𝑁 − 1)) → (2nd𝑇) ≤ (𝑁 − 1))
3216, 31syl 17 . . . . . . . 8 (𝜑 → (2nd𝑇) ≤ (𝑁 − 1))
3326lem1d 11897 . . . . . . . 8 (𝜑 → (𝑁 − 1) ≤ 𝑁)
3425, 30, 26, 32, 33letrd 11121 . . . . . . 7 (𝜑 → (2nd𝑇) ≤ 𝑁)
3524, 25, 26, 27, 34letrd 11121 . . . . . 6 (𝜑 → ((2nd𝑇) − 1) ≤ 𝑁)
36 eluz2 12577 . . . . . 6 (𝑁 ∈ (ℤ‘((2nd𝑇) − 1)) ↔ (((2nd𝑇) − 1) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ ((2nd𝑇) − 1) ≤ 𝑁))
3721, 23, 35, 36syl3anbrc 1342 . . . . 5 (𝜑𝑁 ∈ (ℤ‘((2nd𝑇) − 1)))
38 fzss2 13285 . . . . 5 (𝑁 ∈ (ℤ‘((2nd𝑇) − 1)) → (1...((2nd𝑇) − 1)) ⊆ (1...𝑁))
3937, 38syl 17 . . . 4 (𝜑 → (1...((2nd𝑇) − 1)) ⊆ (1...𝑁))
40 poimirlem6.3 . . . 4 (𝜑𝑀 ∈ (1...((2nd𝑇) − 1)))
4139, 40sseldd 3923 . . 3 (𝜑𝑀 ∈ (1...𝑁))
4215, 41ffvelrnd 6956 . 2 (𝜑 → ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁))
43 xp1st 7854 . . . . . . . . . . . . 13 ((1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
447, 43syl 17 . . . . . . . . . . . 12 (𝜑 → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
45 elmapfn 8642 . . . . . . . . . . . 12 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)) Fn (1...𝑁))
4644, 45syl 17 . . . . . . . . . . 11 (𝜑 → (1st ‘(1st𝑇)) Fn (1...𝑁))
4746adantr 481 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → (1st ‘(1st𝑇)) Fn (1...𝑁))
48 1ex 10960 . . . . . . . . . . . . . . 15 1 ∈ V
49 fnconstg 6656 . . . . . . . . . . . . . . 15 (1 ∈ V → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))))
5048, 49ax-mp 5 . . . . . . . . . . . . . 14 (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1)))
51 c0ex 10958 . . . . . . . . . . . . . . 15 0 ∈ V
52 fnconstg 6656 . . . . . . . . . . . . . . 15 (0 ∈ V → (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
5351, 52ax-mp 5 . . . . . . . . . . . . . 14 (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))
5450, 53pm3.2i 471 . . . . . . . . . . . . 13 ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∧ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
55 dff1o3 6716 . . . . . . . . . . . . . . . . 17 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) ∧ Fun (2nd ‘(1st𝑇))))
5655simprbi 497 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → Fun (2nd ‘(1st𝑇)))
5713, 56syl 17 . . . . . . . . . . . . . . 15 (𝜑 → Fun (2nd ‘(1st𝑇)))
58 imain 6513 . . . . . . . . . . . . . . 15 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
5957, 58syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
60 elfznn 13274 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ (1...((2nd𝑇) − 1)) → 𝑀 ∈ ℕ)
6140, 60syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑀 ∈ ℕ)
6261nnred 11977 . . . . . . . . . . . . . . . . . 18 (𝜑𝑀 ∈ ℝ)
6362ltm1d 11896 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑀 − 1) < 𝑀)
64 fzdisj 13272 . . . . . . . . . . . . . . . . 17 ((𝑀 − 1) < 𝑀 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
6563, 64syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
6665imaeq2d 5964 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ((2nd ‘(1st𝑇)) “ ∅))
67 ima0 5980 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)) “ ∅) = ∅
6866, 67eqtrdi 2794 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ∅)
6959, 68eqtr3d 2780 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) = ∅)
70 fnun 6539 . . . . . . . . . . . . 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𝑇)) “ (𝑀...𝑁))))
7154, 69, 70sylancr 587 . . . . . . . . . . . 12 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
7261nncnd 11978 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 ∈ ℂ)
73 npcan1 11389 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ ℂ → ((𝑀 − 1) + 1) = 𝑀)
7472, 73syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑀 − 1) + 1) = 𝑀)
75 nnuz 12610 . . . . . . . . . . . . . . . . . . . 20 ℕ = (ℤ‘1)
7661, 75eleqtrdi 2849 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑀 ∈ (ℤ‘1))
7774, 76eqeltrd 2839 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ‘1))
78 nnm1nn0 12263 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑀 ∈ ℕ → (𝑀 − 1) ∈ ℕ0)
7961, 78syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (𝑀 − 1) ∈ ℕ0)
8079nn0zd 12413 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (𝑀 − 1) ∈ ℤ)
81 uzid 12586 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑀 − 1) ∈ ℤ → (𝑀 − 1) ∈ (ℤ‘(𝑀 − 1)))
8280, 81syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝑀 − 1) ∈ (ℤ‘(𝑀 − 1)))
83 peano2uz 12630 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑀 − 1) ∈ (ℤ‘(𝑀 − 1)) → ((𝑀 − 1) + 1) ∈ (ℤ‘(𝑀 − 1)))
8482, 83syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ‘(𝑀 − 1)))
8574, 84eqeltrrd 2840 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 ∈ (ℤ‘(𝑀 − 1)))
86 uzss 12594 . . . . . . . . . . . . . . . . . . . 20 (𝑀 ∈ (ℤ‘(𝑀 − 1)) → (ℤ𝑀) ⊆ (ℤ‘(𝑀 − 1)))
8785, 86syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (ℤ𝑀) ⊆ (ℤ‘(𝑀 − 1)))
8861nnzd 12414 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 ∈ ℤ)
89 elfzle2 13249 . . . . . . . . . . . . . . . . . . . . . 22 (𝑀 ∈ (1...((2nd𝑇) − 1)) → 𝑀 ≤ ((2nd𝑇) − 1))
9040, 89syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑀 ≤ ((2nd𝑇) − 1))
9162, 24, 26, 90, 35letrd 11121 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀𝑁)
92 eluz2 12577 . . . . . . . . . . . . . . . . . . . 20 (𝑁 ∈ (ℤ𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀𝑁))
9388, 23, 91, 92syl3anbrc 1342 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑁 ∈ (ℤ𝑀))
9487, 93sseldd 3923 . . . . . . . . . . . . . . . . . 18 (𝜑𝑁 ∈ (ℤ‘(𝑀 − 1)))
95 fzsplit2 13270 . . . . . . . . . . . . . . . . . 18 ((((𝑀 − 1) + 1) ∈ (ℤ‘1) ∧ 𝑁 ∈ (ℤ‘(𝑀 − 1))) → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
9677, 94, 95syl2anc 584 . . . . . . . . . . . . . . . . 17 (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
9774oveq1d 7284 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑀 − 1) + 1)...𝑁) = (𝑀...𝑁))
9897uneq2d 4098 . . . . . . . . . . . . . . . . 17 (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
9996, 98eqtrd 2778 . . . . . . . . . . . . . . . 16 (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
10099imaeq2d 5964 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))))
101 imaundi 6048 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
102100, 101eqtrdi 2794 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))))
103 f1ofo 6717 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
10413, 103syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
105 foima 6687 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
106104, 105syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
107102, 106eqtr3d 2780 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁))) = (1...𝑁))
108107fneq2d 6521 . . . . . . . . . . . 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...𝑁)))
10971, 108mpbid 231 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
110109adantr 481 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
111 ovexd 7304 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → (1...𝑁) ∈ V)
112 inidm 4154 . . . . . . . . . 10 ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
113 eqidd 2739 . . . . . . . . . 10 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) = ((1st ‘(1st𝑇))‘𝑛))
114 imaundi 6048 . . . . . . . . . . . . . . . . . 18 ((2nd ‘(1st𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ {𝑀}) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
115 fzpred 13293 . . . . . . . . . . . . . . . . . . . 20 (𝑁 ∈ (ℤ𝑀) → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
11693, 115syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
117116imaeq2d 5964 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) = ((2nd ‘(1st𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))))
118 f1ofn 6711 . . . . . . . . . . . . . . . . . . . . 21 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)) Fn (1...𝑁))
11913, 118syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (2nd ‘(1st𝑇)) Fn (1...𝑁))
120 fnsnfv 6841 . . . . . . . . . . . . . . . . . . . 20 (((2nd ‘(1st𝑇)) Fn (1...𝑁) ∧ 𝑀 ∈ (1...𝑁)) → {((2nd ‘(1st𝑇))‘𝑀)} = ((2nd ‘(1st𝑇)) “ {𝑀}))
121119, 41, 120syl2anc 584 . . . . . . . . . . . . . . . . . . 19 (𝜑 → {((2nd ‘(1st𝑇))‘𝑀)} = ((2nd ‘(1st𝑇)) “ {𝑀}))
122121uneq1d 4097 . . . . . . . . . . . . . . . . . 18 (𝜑 → ({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ {𝑀}) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
123114, 117, 1223eqtr4a 2804 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) = ({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
124123xpeq1d 5615 . . . . . . . . . . . . . . . 16 (𝜑 → (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}))
125 xpundir 5653 . . . . . . . . . . . . . . . 16 (({((2nd ‘(1st𝑇))‘𝑀)} ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}) = (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
126124, 125eqtrdi 2794 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
127126uneq2d 4098 . . . . . . . . . . . . . 14 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
128 un12 4102 . . . . . . . . . . . . . 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})))
129127, 128eqtrdi 2794 . . . . . . . . . . . . 13 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})) = (({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
130129fveq1d 6770 . . . . . . . . . . . 12 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
131130ad2antrr 723 . . . . . . . . . . 11 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {0}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
132 fnconstg 6656 . . . . . . . . . . . . . . . . 17 (0 ∈ V → (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
13351, 132ax-mp 5 . . . . . . . . . . . . . . . 16 (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))
13450, 133pm3.2i 471 . . . . . . . . . . . . . . 15 ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∧ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
135 imain 6513 . . . . . . . . . . . . . . . . 17 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
13657, 135syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
13779nn0red 12283 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑀 − 1) ∈ ℝ)
138 peano2re 11137 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
13962, 138syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑀 + 1) ∈ ℝ)
14062ltp1d 11894 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑀 < (𝑀 + 1))
141137, 62, 139, 63, 140lttrd 11125 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑀 − 1) < (𝑀 + 1))
142 fzdisj 13272 . . . . . . . . . . . . . . . . . . 19 ((𝑀 − 1) < (𝑀 + 1) → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
143141, 142syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
144143imaeq2d 5964 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ((2nd ‘(1st𝑇)) “ ∅))
145144, 67eqtrdi 2794 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ∅)
146136, 145eqtr3d 2780 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
147 fnun 6539 . . . . . . . . . . . . . . 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)...𝑁))))
148134, 146, 147sylancr 587 . . . . . . . . . . . . . 14 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
149 imaundi 6048 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
150 imadif 6512 . . . . . . . . . . . . . . . . . 18 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) ∖ ((2nd ‘(1st𝑇)) “ {𝑀})))
15157, 150syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) ∖ ((2nd ‘(1st𝑇)) “ {𝑀})))
152 fzsplit 13271 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 ∈ (1...𝑁) → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
15341, 152syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
154153difeq1d 4057 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((1...𝑁) ∖ {𝑀}) = (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}))
155 difundir 4216 . . . . . . . . . . . . . . . . . . . 20 (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀}))
156 fzsplit2 13270 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((𝑀 − 1) + 1) ∈ (ℤ‘1) ∧ 𝑀 ∈ (ℤ‘(𝑀 − 1))) → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
15777, 85, 156syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
15874oveq1d 7284 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (((𝑀 − 1) + 1)...𝑀) = (𝑀...𝑀))
159 fzsn 13287 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀})
16088, 159syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → (𝑀...𝑀) = {𝑀})
161158, 160eqtrd 2778 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → (((𝑀 − 1) + 1)...𝑀) = {𝑀})
162161uneq2d 4098 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)) = ((1...(𝑀 − 1)) ∪ {𝑀}))
163157, 162eqtrd 2778 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ {𝑀}))
164163difeq1d 4057 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ((1...𝑀) ∖ {𝑀}) = (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}))
165 difun2 4416 . . . . . . . . . . . . . . . . . . . . . . 23 (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∖ {𝑀})
166137, 62ltnled 11111 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝜑 → ((𝑀 − 1) < 𝑀 ↔ ¬ 𝑀 ≤ (𝑀 − 1)))
16763, 166mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝜑 → ¬ 𝑀 ≤ (𝑀 − 1))
168 elfzle2 13249 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑀 ∈ (1...(𝑀 − 1)) → 𝑀 ≤ (𝑀 − 1))
169167, 168nsyl 140 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → ¬ 𝑀 ∈ (1...(𝑀 − 1)))
170 difsn 4733 . . . . . . . . . . . . . . . . . . . . . . . 24 𝑀 ∈ (1...(𝑀 − 1)) → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
171169, 170syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
172165, 171eqtrid 2790 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = (1...(𝑀 − 1)))
173164, 172eqtrd 2778 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((1...𝑀) ∖ {𝑀}) = (1...(𝑀 − 1)))
17462, 139ltnled 11111 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝜑 → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
175140, 174mpbid 231 . . . . . . . . . . . . . . . . . . . . . . 23 (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
176 elfzle1 13248 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑀 ∈ ((𝑀 + 1)...𝑁) → (𝑀 + 1) ≤ 𝑀)
177175, 176nsyl 140 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → ¬ 𝑀 ∈ ((𝑀 + 1)...𝑁))
178 difsn 4733 . . . . . . . . . . . . . . . . . . . . . 22 𝑀 ∈ ((𝑀 + 1)...𝑁) → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
179177, 178syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
180173, 179uneq12d 4099 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀})) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
181155, 180eqtrid 2790 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
182154, 181eqtrd 2778 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((1...𝑁) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
183182imaeq2d 5964 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑁) ∖ {𝑀})) = ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))))
184121eqcomd 2744 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2nd ‘(1st𝑇)) “ {𝑀}) = {((2nd ‘(1st𝑇))‘𝑀)})
185106, 184difeq12d 4059 . . . . . . . . . . . . . . . . 17 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑁)) ∖ ((2nd ‘(1st𝑇)) “ {𝑀})) = ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
186151, 183, 1853eqtr3d 2786 . . . . . . . . . . . . . . . 16 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
187149, 186eqtr3id 2792 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
188187fneq2d 6521 . . . . . . . . . . . . . 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𝑇))‘𝑀)})))
189148, 188mpbid 231 . . . . . . . . . . . . 13 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
190 eldifsn 4722 . . . . . . . . . . . . . . 15 (𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}) ↔ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)))
191190biimpri 227 . . . . . . . . . . . . . 14 ((𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
192191ancoms 459 . . . . . . . . . . . . 13 ((𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)}))
193 disjdif 4407 . . . . . . . . . . . . . 14 ({((2nd ‘(1st𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2nd ‘(1st𝑇))‘𝑀)})) = ∅
194 fnconstg 6656 . . . . . . . . . . . . . . . 16 (0 ∈ V → ({((2nd ‘(1st𝑇))‘𝑀)} × {0}) Fn {((2nd ‘(1st𝑇))‘𝑀)})
19551, 194ax-mp 5 . . . . . . . . . . . . . . 15 ({((2nd ‘(1st𝑇))‘𝑀)} × {0}) Fn {((2nd ‘(1st𝑇))‘𝑀)}
196 fvun2 6854 . . . . . . . . . . . . . . 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}))‘𝑛))
197195, 196mp3an1 1447 . . . . . . . . . . . . . 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}))‘𝑛))
198193, 197mpanr1 700 . . . . . . . . . . . . 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}))‘𝑛))
199189, 192, 198syl2an 596 . . . . . . . . . . . 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}))‘𝑛))
200199anassrs 468 . . . . . . . . . . 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}))‘𝑛))
201131, 200eqtrd 2778 . . . . . . . . . 10 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
20247, 110, 111, 111, 112, 113, 201ofval 7536 . . . . . . . . 9 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇))‘𝑛) + (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛)))
203 fnconstg 6656 . . . . . . . . . . . . . . 15 (1 ∈ V → (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑀)))
20448, 203ax-mp 5 . . . . . . . . . . . . . 14 (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑀))
205204, 133pm3.2i 471 . . . . . . . . . . . . 13 ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) Fn ((2nd ‘(1st𝑇)) “ (1...𝑀)) ∧ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
206 imain 6513 . . . . . . . . . . . . . . 15 (Fun (2nd ‘(1st𝑇)) → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
20757, 206syl 17 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
208 fzdisj 13272 . . . . . . . . . . . . . . . . 17 (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
209140, 208syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
210209imaeq2d 5964 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ((2nd ‘(1st𝑇)) “ ∅))
211210, 67eqtrdi 2794 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ∅)
212207, 211eqtr3d 2780 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∩ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
213 fnun 6539 . . . . . . . . . . . . 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)...𝑁))))
214205, 212, 213sylancr 587 . . . . . . . . . . . 12 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
215153imaeq2d 5964 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))))
216 imaundi 6048 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
217215, 216eqtrdi 2794 . . . . . . . . . . . . . 14 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))))
218217, 106eqtr3d 2780 . . . . . . . . . . . . 13 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) ∪ ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁))) = (1...𝑁))
219218fneq2d 6521 . . . . . . . . . . . 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...𝑁)))
220214, 219mpbid 231 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
221220adantr 481 . . . . . . . . . 10 ((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
222 imaundi 6048 . . . . . . . . . . . . . . . . . 18 ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ {𝑀}))
223163imaeq2d 5964 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑀)) = ((2nd ‘(1st𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})))
224121uneq2d 4098 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ ((2nd ‘(1st𝑇)) “ {𝑀})))
225222, 223, 2243eqtr4a 2804 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑀)) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}))
226225xpeq1d 5615 . . . . . . . . . . . . . . . 16 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}) × {1}))
227 xpundir 5653 . . . . . . . . . . . . . . . 16 ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) ∪ {((2nd ‘(1st𝑇))‘𝑀)}) × {1}) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1}))
228226, 227eqtrdi 2794 . . . . . . . . . . . . . . 15 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1})))
229228uneq1d 4097 . . . . . . . . . . . . . 14 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2nd ‘(1st𝑇))‘𝑀)} × {1})) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
230 un23 4103 . . . . . . . . . . . . . . 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}))
231230equncomi 4090 . . . . . . . . . . . . . 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})))
232229, 231eqtrdi 2794 . . . . . . . . . . . . 13 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
233232fveq1d 6770 . . . . . . . . . . . 12 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
234233ad2antrr 723 . . . . . . . . . . 11 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = ((({((2nd ‘(1st𝑇))‘𝑀)} × {1}) ∪ ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
235 fnconstg 6656 . . . . . . . . . . . . . . . 16 (1 ∈ V → ({((2nd ‘(1st𝑇))‘𝑀)} × {1}) Fn {((2nd ‘(1st𝑇))‘𝑀)})
23648, 235ax-mp 5 . . . . . . . . . . . . . . 15 ({((2nd ‘(1st𝑇))‘𝑀)} × {1}) Fn {((2nd ‘(1st𝑇))‘𝑀)}
237 fvun2 6854 . . . . . . . . . . . . . . 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}))‘𝑛))
238236, 237mp3an1 1447 . . . . . . . . . . . . . 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}))‘𝑛))
239193, 238mpanr1 700 . . . . . . . . . . . . 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}))‘𝑛))
240189, 192, 239syl2an 596 . . . . . . . . . . . 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}))‘𝑛))
241240anassrs 468 . . . . . . . . . . 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}))‘𝑛))
242234, 241eqtrd 2778 . . . . . . . . . 10 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
24347, 221, 111, 111, 112, 113, 242ofval 7536 . . . . . . . . 9 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇))‘𝑛) + (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛)))
244202, 243eqtr4d 2781 . . . . . . . 8 (((𝜑𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
245244an32s 649 . . . . . . 7 (((𝜑𝑛 ∈ (1...𝑁)) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀)) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
246245anasss 467 . . . . . 6 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
247 fveq2 6768 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
248247breq2d 5087 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
249248ifbid 4484 . . . . . . . . . . . . . . . 16 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
250249csbeq1d 3837 . . . . . . . . . . . . . . 15 (𝑡 = 𝑇if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
251 2fveq3 6773 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
252 2fveq3 6773 . . . . . . . . . . . . . . . . . . . 20 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
253252imaeq1d 5963 . . . . . . . . . . . . . . . . . . 19 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
254253xpeq1d 5615 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
255252imaeq1d 5963 . . . . . . . . . . . . . . . . . . 19 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
256255xpeq1d 5615 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
257254, 256uneq12d 4099 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
258251, 257oveq12d 7287 . . . . . . . . . . . . . . . 16 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
259258csbeq2dv 3840 . . . . . . . . . . . . . . 15 (𝑡 = 𝑇if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
260250, 259eqtrd 2778 . . . . . . . . . . . . . 14 (𝑡 = 𝑇if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
261260mpteq2dv 5177 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
262261eqeq2d 2749 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
263262, 3elrab2 3628 . . . . . . . . . . 11 (𝑇𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
264263simprbi 497 . . . . . . . . . 10 (𝑇𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
2651, 264syl 17 . . . . . . . . 9 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
266 breq1 5078 . . . . . . . . . . . . 13 (𝑦 = (𝑀 − 1) → (𝑦 < (2nd𝑇) ↔ (𝑀 − 1) < (2nd𝑇)))
267 id 22 . . . . . . . . . . . . 13 (𝑦 = (𝑀 − 1) → 𝑦 = (𝑀 − 1))
268266, 267ifbieq1d 4485 . . . . . . . . . . . 12 (𝑦 = (𝑀 − 1) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = if((𝑀 − 1) < (2nd𝑇), (𝑀 − 1), (𝑦 + 1)))
26925ltm1d 11896 . . . . . . . . . . . . . . 15 (𝜑 → ((2nd𝑇) − 1) < (2nd𝑇))
27062, 24, 25, 90, 269lelttrd 11122 . . . . . . . . . . . . . 14 (𝜑𝑀 < (2nd𝑇))
271137, 62, 25, 63, 270lttrd 11125 . . . . . . . . . . . . 13 (𝜑 → (𝑀 − 1) < (2nd𝑇))
272271iftrued 4469 . . . . . . . . . . . 12 (𝜑 → if((𝑀 − 1) < (2nd𝑇), (𝑀 − 1), (𝑦 + 1)) = (𝑀 − 1))
273268, 272sylan9eqr 2800 . . . . . . . . . . 11 ((𝜑𝑦 = (𝑀 − 1)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = (𝑀 − 1))
274273csbeq1d 3837 . . . . . . . . . 10 ((𝜑𝑦 = (𝑀 − 1)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = (𝑀 − 1) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
275 oveq2 7277 . . . . . . . . . . . . . . . . 17 (𝑗 = (𝑀 − 1) → (1...𝑗) = (1...(𝑀 − 1)))
276275imaeq2d 5964 . . . . . . . . . . . . . . . 16 (𝑗 = (𝑀 − 1) → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))))
277276xpeq1d 5615 . . . . . . . . . . . . . . 15 (𝑗 = (𝑀 − 1) → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}))
278277adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑗 = (𝑀 − 1)) → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}))
279 oveq1 7276 . . . . . . . . . . . . . . . . . 18 (𝑗 = (𝑀 − 1) → (𝑗 + 1) = ((𝑀 − 1) + 1))
280279, 74sylan9eqr 2800 . . . . . . . . . . . . . . . . 17 ((𝜑𝑗 = (𝑀 − 1)) → (𝑗 + 1) = 𝑀)
281280oveq1d 7284 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 = (𝑀 − 1)) → ((𝑗 + 1)...𝑁) = (𝑀...𝑁))
282281imaeq2d 5964 . . . . . . . . . . . . . . 15 ((𝜑𝑗 = (𝑀 − 1)) → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
283282xpeq1d 5615 . . . . . . . . . . . . . 14 ((𝜑𝑗 = (𝑀 − 1)) → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))
284278, 283uneq12d 4099 . . . . . . . . . . . . 13 ((𝜑𝑗 = (𝑀 − 1)) → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))
285284oveq2d 7285 . . . . . . . . . . . 12 ((𝜑𝑗 = (𝑀 − 1)) → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
28679, 285csbied 3871 . . . . . . . . . . 11 (𝜑(𝑀 − 1) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
287286adantr 481 . . . . . . . . . 10 ((𝜑𝑦 = (𝑀 − 1)) → (𝑀 − 1) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
288274, 287eqtrd 2778 . . . . . . . . 9 ((𝜑𝑦 = (𝑀 − 1)) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
289 1red 10965 . . . . . . . . . . 11 (𝜑 → 1 ∈ ℝ)
29062, 26, 289, 91lesub1dd 11580 . . . . . . . . . 10 (𝜑 → (𝑀 − 1) ≤ (𝑁 − 1))
291 elfz2nn0 13336 . . . . . . . . . 10 ((𝑀 − 1) ∈ (0...(𝑁 − 1)) ↔ ((𝑀 − 1) ∈ ℕ0 ∧ (𝑁 − 1) ∈ ℕ0 ∧ (𝑀 − 1) ≤ (𝑁 − 1)))
29279, 29, 290, 291syl3anbrc 1342 . . . . . . . . 9 (𝜑 → (𝑀 − 1) ∈ (0...(𝑁 − 1)))
293 ovexd 7304 . . . . . . . . 9 (𝜑 → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))) ∈ V)
294265, 288, 292, 293fvmptd 6876 . . . . . . . 8 (𝜑 → (𝐹‘(𝑀 − 1)) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))))
295294fveq1d 6770 . . . . . . 7 (𝜑 → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
296295adantr 481 . . . . . 6 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
297 breq1 5078 . . . . . . . . . . . . 13 (𝑦 = 𝑀 → (𝑦 < (2nd𝑇) ↔ 𝑀 < (2nd𝑇)))
298 id 22 . . . . . . . . . . . . 13 (𝑦 = 𝑀𝑦 = 𝑀)
299297, 298ifbieq1d 4485 . . . . . . . . . . . 12 (𝑦 = 𝑀 → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = if(𝑀 < (2nd𝑇), 𝑀, (𝑦 + 1)))
300270iftrued 4469 . . . . . . . . . . . 12 (𝜑 → if(𝑀 < (2nd𝑇), 𝑀, (𝑦 + 1)) = 𝑀)
301299, 300sylan9eqr 2800 . . . . . . . . . . 11 ((𝜑𝑦 = 𝑀) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = 𝑀)
302301csbeq1d 3837 . . . . . . . . . 10 ((𝜑𝑦 = 𝑀) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = 𝑀 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
303 oveq2 7277 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑀 → (1...𝑗) = (1...𝑀))
304303imaeq2d 5964 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑀 → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑀)))
305304xpeq1d 5615 . . . . . . . . . . . . . . 15 (𝑗 = 𝑀 → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}))
306 oveq1 7276 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝑀 → (𝑗 + 1) = (𝑀 + 1))
307306oveq1d 7284 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑀 → ((𝑗 + 1)...𝑁) = ((𝑀 + 1)...𝑁))
308307imaeq2d 5964 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑀 → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)))
309308xpeq1d 5615 . . . . . . . . . . . . . . 15 (𝑗 = 𝑀 → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
310305, 309uneq12d 4099 . . . . . . . . . . . . . 14 (𝑗 = 𝑀 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
311310oveq2d 7285 . . . . . . . . . . . . 13 (𝑗 = 𝑀 → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
312311adantl 482 . . . . . . . . . . . 12 ((𝜑𝑗 = 𝑀) → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
31340, 312csbied 3871 . . . . . . . . . . 11 (𝜑𝑀 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
314313adantr 481 . . . . . . . . . 10 ((𝜑𝑦 = 𝑀) → 𝑀 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
315302, 314eqtrd 2778 . . . . . . . . 9 ((𝜑𝑦 = 𝑀) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
31629nn0zd 12413 . . . . . . . . . . . . 13 (𝜑 → (𝑁 − 1) ∈ ℤ)
31725, 26, 289, 34lesub1dd 11580 . . . . . . . . . . . . 13 (𝜑 → ((2nd𝑇) − 1) ≤ (𝑁 − 1))
318 eluz2 12577 . . . . . . . . . . . . 13 ((𝑁 − 1) ∈ (ℤ‘((2nd𝑇) − 1)) ↔ (((2nd𝑇) − 1) ∈ ℤ ∧ (𝑁 − 1) ∈ ℤ ∧ ((2nd𝑇) − 1) ≤ (𝑁 − 1)))
31921, 316, 317, 318syl3anbrc 1342 . . . . . . . . . . . 12 (𝜑 → (𝑁 − 1) ∈ (ℤ‘((2nd𝑇) − 1)))
320 fzss2 13285 . . . . . . . . . . . 12 ((𝑁 − 1) ∈ (ℤ‘((2nd𝑇) − 1)) → (1...((2nd𝑇) − 1)) ⊆ (1...(𝑁 − 1)))
321319, 320syl 17 . . . . . . . . . . 11 (𝜑 → (1...((2nd𝑇) − 1)) ⊆ (1...(𝑁 − 1)))
322 fz1ssfz0 13341 . . . . . . . . . . 11 (1...(𝑁 − 1)) ⊆ (0...(𝑁 − 1))
323321, 322sstrdi 3934 . . . . . . . . . 10 (𝜑 → (1...((2nd𝑇) − 1)) ⊆ (0...(𝑁 − 1)))
324323, 40sseldd 3923 . . . . . . . . 9 (𝜑𝑀 ∈ (0...(𝑁 − 1)))
325 ovexd 7304 . . . . . . . . 9 (𝜑 → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))) ∈ V)
326265, 315, 324, 325fvmptd 6876 . . . . . . . 8 (𝜑 → (𝐹𝑀) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
327326fveq1d 6770 . . . . . . 7 (𝜑 → ((𝐹𝑀)‘𝑛) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
328327adantr 481 . . . . . 6 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → ((𝐹𝑀)‘𝑛) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
329246, 296, 3283eqtr4d 2788 . . . . 5 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹𝑀)‘𝑛))
330329expr 457 . . . 4 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 ≠ ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹𝑀)‘𝑛)))
331330necon1d 2965 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹𝑀)‘𝑛) → 𝑛 = ((2nd ‘(1st𝑇))‘𝑀)))
332 elmapi 8626 . . . . . . . . . . 11 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
33344, 332syl 17 . . . . . . . . . 10 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
334333, 42ffvelrnd 6956 . . . . . . . . 9 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ (0..^𝐾))
335 elfzonn0 13421 . . . . . . . . 9 (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ (0..^𝐾) → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℕ0)
336334, 335syl 17 . . . . . . . 8 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℕ0)
337336nn0red 12283 . . . . . . 7 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℝ)
338337ltp1d 11894 . . . . . . 7 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) < (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
339337, 338ltned 11100 . . . . . 6 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ≠ (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
340294fveq1d 6770 . . . . . . 7 (𝜑 → ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)))
341 ovexd 7304 . . . . . . . . 9 (𝜑 → (1...𝑁) ∈ V)
342 eqidd 2739 . . . . . . . . 9 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)))
343 fzss1 13284 . . . . . . . . . . . . . 14 (𝑀 ∈ (ℤ‘1) → (𝑀...𝑁) ⊆ (1...𝑁))
34476, 343syl 17 . . . . . . . . . . . . 13 (𝜑 → (𝑀...𝑁) ⊆ (1...𝑁))
345 eluzfz1 13252 . . . . . . . . . . . . . 14 (𝑁 ∈ (ℤ𝑀) → 𝑀 ∈ (𝑀...𝑁))
34693, 345syl 17 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ (𝑀...𝑁))
347 fnfvima 7103 . . . . . . . . . . . . 13 (((2nd ‘(1st𝑇)) Fn (1...𝑁) ∧ (𝑀...𝑁) ⊆ (1...𝑁) ∧ 𝑀 ∈ (𝑀...𝑁)) → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
348119, 344, 346, 347syl3anc 1370 . . . . . . . . . . . 12 (𝜑 → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)))
349 fvun2 6854 . . . . . . . . . . . . 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𝑇))‘𝑀)))
35050, 53, 349mp3an12 1450 . . . . . . . . . . . 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𝑇))‘𝑀)))
35169, 348, 350syl2anc 584 . . . . . . . . . . 11 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)))
35251fvconst2 7073 . . . . . . . . . . . 12 (((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) → ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
353348, 352syl 17 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
354351, 353eqtrd 2778 . . . . . . . . . 10 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
355354adantr 481 . . . . . . . . 9 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 0)
35646, 109, 341, 341, 112, 342, 355ofval 7536 . . . . . . . 8 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 0))
35742, 356mpdan 684 . . . . . . 7 (𝜑 → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (𝑀...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 0))
358336nn0cnd 12284 . . . . . . . 8 (𝜑 → ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) ∈ ℂ)
359358addid1d 11164 . . . . . . 7 (𝜑 → (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 0) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)))
360340, 357, 3593eqtrd 2782 . . . . . 6 (𝜑 → ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)) = ((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)))
361326fveq1d 6770 . . . . . . 7 (𝜑 → ((𝐹𝑀)‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)))
362 fzss2 13285 . . . . . . . . . . . . . 14 (𝑁 ∈ (ℤ𝑀) → (1...𝑀) ⊆ (1...𝑁))
36393, 362syl 17 . . . . . . . . . . . . 13 (𝜑 → (1...𝑀) ⊆ (1...𝑁))
364 elfz1end 13275 . . . . . . . . . . . . . 14 (𝑀 ∈ ℕ ↔ 𝑀 ∈ (1...𝑀))
36561, 364sylib 217 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ (1...𝑀))
366 fnfvima 7103 . . . . . . . . . . . . 13 (((2nd ‘(1st𝑇)) Fn (1...𝑁) ∧ (1...𝑀) ⊆ (1...𝑁) ∧ 𝑀 ∈ (1...𝑀)) → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (1...𝑀)))
367119, 363, 365, 366syl3anc 1370 . . . . . . . . . . . 12 (𝜑 → ((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (1...𝑀)))
368 fvun1 6853 . . . . . . . . . . . . 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𝑇))‘𝑀)))
369204, 133, 368mp3an12 1450 . . . . . . . . . . . 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𝑇))‘𝑀)))
370212, 367, 369syl2anc 584 . . . . . . . . . . 11 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)))
37148fvconst2 7073 . . . . . . . . . . . 12 (((2nd ‘(1st𝑇))‘𝑀) ∈ ((2nd ‘(1st𝑇)) “ (1...𝑀)) → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
372367, 371syl 17 . . . . . . . . . . 11 (𝜑 → ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1})‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
373370, 372eqtrd 2778 . . . . . . . . . 10 (𝜑 → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
374373adantr 481 . . . . . . . . 9 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2nd ‘(1st𝑇))‘𝑀)) = 1)
37546, 220, 341, 341, 112, 342, 374ofval 7536 . . . . . . . 8 ((𝜑 ∧ ((2nd ‘(1st𝑇))‘𝑀) ∈ (1...𝑁)) → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
37642, 375mpdan 684 . . . . . . 7 (𝜑 → (((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑀)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
377361, 376eqtrd 2778 . . . . . 6 (𝜑 → ((𝐹𝑀)‘((2nd ‘(1st𝑇))‘𝑀)) = (((1st ‘(1st𝑇))‘((2nd ‘(1st𝑇))‘𝑀)) + 1))
378339, 360, 3773netr4d 3021 . . . . 5 (𝜑 → ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)) ≠ ((𝐹𝑀)‘((2nd ‘(1st𝑇))‘𝑀)))
379 fveq2 6768 . . . . . 6 (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)))
380 fveq2 6768 . . . . . 6 (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹𝑀)‘𝑛) = ((𝐹𝑀)‘((2nd ‘(1st𝑇))‘𝑀)))
381379, 380neeq12d 3005 . . . . 5 (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹𝑀)‘𝑛) ↔ ((𝐹‘(𝑀 − 1))‘((2nd ‘(1st𝑇))‘𝑀)) ≠ ((𝐹𝑀)‘((2nd ‘(1st𝑇))‘𝑀))))
382378, 381syl5ibrcom 246 . . . 4 (𝜑 → (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹𝑀)‘𝑛)))
383382adantr 481 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 = ((2nd ‘(1st𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹𝑀)‘𝑛)))
384331, 383impbid 211 . 2 ((𝜑𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹𝑀)‘𝑛) ↔ 𝑛 = ((2nd ‘(1st𝑇))‘𝑀)))
38542, 384riota5 7256 1 (𝜑 → (𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹𝑀)‘𝑛)) = ((2nd ‘(1st𝑇))‘𝑀))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396   = wceq 1539  wcel 2106  {cab 2715  wne 2943  {crab 3068  Vcvv 3431  csb 3833  cdif 3885  cun 3886  cin 3887  wss 3888  c0 4258  ifcif 4461  {csn 4563   class class class wbr 5075  cmpt 5158   × cxp 5584  ccnv 5585  cima 5589  Fun wfun 6422   Fn wfn 6423  wf 6424  ontowfo 6426  1-1-ontowf1o 6427  cfv 6428  crio 7225  (class class class)co 7269  f cof 7523  1st c1st 7820  2nd c2nd 7821  m cmap 8604  cc 10858  cr 10859  0cc0 10860  1c1 10861   + caddc 10863   < clt 10998  cle 10999  cmin 11194  cn 11962  0cn0 12222  cz 12308  cuz 12571  ...cfz 13228  ..^cfzo 13371
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-rep 5210  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7580  ax-cnex 10916  ax-resscn 10917  ax-1cn 10918  ax-icn 10919  ax-addcl 10920  ax-addrcl 10921  ax-mulcl 10922  ax-mulrcl 10923  ax-mulcom 10924  ax-addass 10925  ax-mulass 10926  ax-distr 10927  ax-i2m1 10928  ax-1ne0 10929  ax-1rid 10930  ax-rnegex 10931  ax-rrecex 10932  ax-cnre 10933  ax-pre-lttri 10934  ax-pre-lttrn 10935  ax-pre-ltadd 10936  ax-pre-mulgt0 10937
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-reu 3072  df-rab 3073  df-v 3433  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-pss 3907  df-nul 4259  df-if 4462  df-pw 4537  df-sn 4564  df-pr 4566  df-op 4570  df-uni 4842  df-iun 4928  df-br 5076  df-opab 5138  df-mpt 5159  df-tr 5193  df-id 5486  df-eprel 5492  df-po 5500  df-so 5501  df-fr 5541  df-we 5543  df-xp 5592  df-rel 5593  df-cnv 5594  df-co 5595  df-dm 5596  df-rn 5597  df-res 5598  df-ima 5599  df-pred 6197  df-ord 6264  df-on 6265  df-lim 6266  df-suc 6267  df-iota 6386  df-fun 6430  df-fn 6431  df-f 6432  df-f1 6433  df-fo 6434  df-f1o 6435  df-fv 6436  df-riota 7226  df-ov 7272  df-oprab 7273  df-mpo 7274  df-of 7525  df-om 7705  df-1st 7822  df-2nd 7823  df-frecs 8086  df-wrecs 8117  df-recs 8191  df-rdg 8230  df-er 8487  df-map 8606  df-en 8723  df-dom 8724  df-sdom 8725  df-pnf 11000  df-mnf 11001  df-xr 11002  df-ltxr 11003  df-le 11004  df-sub 11196  df-neg 11197  df-nn 11963  df-n0 12223  df-z 12309  df-uz 12572  df-fz 13229  df-fzo 13372
This theorem is referenced by:  poimirlem8  35772
  Copyright terms: Public domain W3C validator