poimirlem6 - Mathbox for Brendan Leahy

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

Theorem poimirlem6 37155

Description: Lemma for poimir 37182 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(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
poimirlem9.1	⊢ (𝜑 → 𝑇 ∈ 𝑆)
poimirlem9.2	⊢ (𝜑 → (2^nd ‘𝑇) ∈ (1...(𝑁 − 1)))
poimirlem6.3	⊢ (𝜑 → 𝑀 ∈ (1...((2^nd ‘𝑇) − 1)))

**Assertion**
Ref	Expression
poimirlem6	⊢ (𝜑 → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛)) = ((2^nd ‘(1^st ‘𝑇))‘𝑀))

Distinct variable groups: 𝑓,𝑗,𝑛,𝑡,𝑦 𝜑,𝑗,𝑛,𝑦 𝑗,𝐹,𝑛,𝑦 𝑗,𝑀,𝑛,𝑦 𝑗,𝑁,𝑛,𝑦 𝑇,𝑗,𝑛,𝑦 𝜑,𝑡 𝑓,𝐾,𝑗,𝑛,𝑡 𝑓,𝑀,𝑡 𝑓,𝑁,𝑡 𝑇,𝑓 𝑓,𝐹,𝑡 𝑡,𝑇 𝑆,𝑗,𝑛,𝑡,𝑦 Allowed substitution hints: 𝜑(𝑓) 𝑆(𝑓) 𝐾(𝑦)

**Proof of Theorem poimirlem6**
Step	Hyp	Ref	Expression
1		poimirlem9.1	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ 𝑆)
2		elrabi 3669	. . . . . . . . 9 ⊢ (𝑇 ∈ {𝑡 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 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(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
4	2, 3	eleq2s 2843	. . . . . . . 8 ⊢ (𝑇 ∈ 𝑆 → 𝑇 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
5	1, 4	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
6		xp1st 8021	. . . . . . 7 ⊢ (𝑇 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
7	5, 6	syl 17	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
8		xp2nd 8022	. . . . . 6 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
9	7, 8	syl 17	. . . . 5 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
10		fvex 6904	. . . . . 6 ⊢ (2^nd ‘(1^st ‘𝑇)) ∈ V
11		f1oeq1 6821	. . . . . 6 ⊢ (𝑓 = (2^nd ‘(1^st ‘𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
12	10, 11	elab 3660	. . . . 5 ⊢ ((2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
13	9, 12	sylib 217	. . . 4 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
14		f1of 6833	. . . 4 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)⟶(1...𝑁))
15	13, 14	syl 17	. . 3 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)⟶(1...𝑁))
16		poimirlem9.2	. . . . . . . . 9 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ (1...(𝑁 − 1)))
17		elfznn 13560	. . . . . . . . 9 ⊢ ((2^nd ‘𝑇) ∈ (1...(𝑁 − 1)) → (2^nd ‘𝑇) ∈ ℕ)
18	16, 17	syl 17	. . . . . . . 8 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℕ)
19	18	nnzd 12613	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℤ)
20		peano2zm 12633	. . . . . . 7 ⊢ ((2^nd ‘𝑇) ∈ ℤ → ((2^nd ‘𝑇) − 1) ∈ ℤ)
21	19, 20	syl 17	. . . . . 6 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ∈ ℤ)
22		poimir.0	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℕ)
23	22	nnzd 12613	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℤ)
24	21	zred 12694	. . . . . . 7 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ∈ ℝ)
25	18	nnred 12255	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℝ)
26	22	nnred 12255	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℝ)
27	25	lem1d 12175	. . . . . . 7 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ≤ (2^nd ‘𝑇))
28		nnm1nn0 12541	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ₀)
29	22, 28	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑁 − 1) ∈ ℕ₀)
30	29	nn0red 12561	. . . . . . . 8 ⊢ (𝜑 → (𝑁 − 1) ∈ ℝ)
31		elfzle2 13535	. . . . . . . . 9 ⊢ ((2^nd ‘𝑇) ∈ (1...(𝑁 − 1)) → (2^nd ‘𝑇) ≤ (𝑁 − 1))
32	16, 31	syl 17	. . . . . . . 8 ⊢ (𝜑 → (2^nd ‘𝑇) ≤ (𝑁 − 1))
33	26	lem1d 12175	. . . . . . . 8 ⊢ (𝜑 → (𝑁 − 1) ≤ 𝑁)
34	25, 30, 26, 32, 33	letrd 11399	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘𝑇) ≤ 𝑁)
35	24, 25, 26, 27, 34	letrd 11399	. . . . . 6 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ≤ 𝑁)
36		eluz2 12856	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) ↔ (((2^nd ‘𝑇) − 1) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ ((2^nd ‘𝑇) − 1) ≤ 𝑁))
37	21, 23, 35, 36	syl3anbrc 1340	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
38		fzss2 13571	. . . . 5 ⊢ (𝑁 ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) → (1...((2^nd ‘𝑇) − 1)) ⊆ (1...𝑁))
39	37, 38	syl 17	. . . 4 ⊢ (𝜑 → (1...((2^nd ‘𝑇) − 1)) ⊆ (1...𝑁))
40		poimirlem6.3	. . . 4 ⊢ (𝜑 → 𝑀 ∈ (1...((2^nd ‘𝑇) − 1)))
41	39, 40	sseldd 3973	. . 3 ⊢ (𝜑 → 𝑀 ∈ (1...𝑁))
42	15, 41	ffvelcdmd 7089	. 2 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁))
43		xp1st 8021	. . . . . . . . . . . . 13 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)))
44	7, 43	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)))
45		elmapfn 8880	. . . . . . . . . . . 12 ⊢ ((1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)) → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
46	44, 45	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
47	46	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
48		1ex 11238	. . . . . . . . . . . . . . 15 ⊢ 1 ∈ V
49		fnconstg 6779	. . . . . . . . . . . . . . 15 ⊢ (1 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))))
50	48, 49	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1)))
51		c0ex 11236	. . . . . . . . . . . . . . 15 ⊢ 0 ∈ V
52		fnconstg 6779	. . . . . . . . . . . . . . 15 ⊢ (0 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
53	51, 52	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))
54	50, 53	pm3.2i 469	. . . . . . . . . . . . 13 ⊢ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
55		dff1o3 6839	. . . . . . . . . . . . . . . . 17 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁) ∧ Fun ^◡(2^nd ‘(1^st ‘𝑇))))
56	55	simprbi 495	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → Fun ^◡(2^nd ‘(1^st ‘𝑇)))
57	13, 56	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → Fun ^◡(2^nd ‘(1^st ‘𝑇)))
58		imain 6632	. . . . . . . . . . . . . . 15 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
59	57, 58	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
60		elfznn 13560	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ (1...((2^nd ‘𝑇) − 1)) → 𝑀 ∈ ℕ)
61	40, 60	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ ℕ)
62	61	nnred 12255	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑀 ∈ ℝ)
63	62	ltm1d 12174	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑀 − 1) < 𝑀)
64		fzdisj 13558	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 − 1) < 𝑀 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
65	63, 64	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
66	65	imaeq2d 6058	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
67		ima0 6075	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ∅) = ∅
68	66, 67	eqtrdi 2781	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ∅)
69	59, 68	eqtr3d 2767	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = ∅)
70		fnun 6662	. . . . . . . . . . . . 13 ⊢ ((((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = ∅) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
71	54, 69, 70	sylancr 585	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
72	61	nncnd 12256	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ ℂ)
73		npcan1 11667	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ ℂ → ((𝑀 − 1) + 1) = 𝑀)
74	72, 73	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑀 − 1) + 1) = 𝑀)
75		nnuz 12893	. . . . . . . . . . . . . . . . . . . 20 ⊢ ℕ = (ℤ_≥‘1)
76	61, 75	eleqtrdi 2835	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘1))
77	74, 76	eqeltrd 2825	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘1))
78		nnm1nn0 12541	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 ∈ ℕ → (𝑀 − 1) ∈ ℕ₀)
79	61, 78	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝑀 − 1) ∈ ℕ₀)
80	79	nn0zd 12612	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑀 − 1) ∈ ℤ)
81		uzid 12865	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑀 − 1) ∈ ℤ → (𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)))
82	80, 81	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)))
83		peano2uz 12913	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)) → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘(𝑀 − 1)))
84	82, 83	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘(𝑀 − 1)))
85	74, 84	eqeltrrd 2826	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘(𝑀 − 1)))
86		uzss 12873	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ (ℤ_≥‘(𝑀 − 1)) → (ℤ_≥‘𝑀) ⊆ (ℤ_≥‘(𝑀 − 1)))
87	85, 86	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (ℤ_≥‘𝑀) ⊆ (ℤ_≥‘(𝑀 − 1)))
88	61	nnzd 12613	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ ℤ)
89		elfzle2 13535	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ (1...((2^nd ‘𝑇) − 1)) → 𝑀 ≤ ((2^nd ‘𝑇) − 1))
90	40, 89	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ≤ ((2^nd ‘𝑇) − 1))
91	62, 24, 26, 90, 35	letrd 11399	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ≤ 𝑁)
92		eluz2 12856	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ≤ 𝑁))
93	88, 23, 91, 92	syl3anbrc 1340	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
94	87, 93	sseldd 3973	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘(𝑀 − 1)))
95		fzsplit2 13556	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑀 − 1) + 1) ∈ (ℤ_≥‘1) ∧ 𝑁 ∈ (ℤ_≥‘(𝑀 − 1))) → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
96	77, 94, 95	syl2anc 582	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
97	74	oveq1d 7430	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑁) = (𝑀...𝑁))
98	97	uneq2d 4156	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
99	96, 98	eqtrd 2765	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
100	99	imaeq2d 6058	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))))
101		imaundi 6149	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
102	100, 101	eqtrdi 2781	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
103		f1ofo 6840	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁))
104	13, 103	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁))
105		foima 6810	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁) → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (1...𝑁))
106	104, 105	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (1...𝑁))
107	102, 106	eqtr3d 2767	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = (1...𝑁))
108	107	fneq2d 6642	. . . . . . . . . . . 12 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) ↔ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁)))
109	71, 108	mpbid 231	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
110	109	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
111		ovexd 7450	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (1...𝑁) ∈ V)
112		inidm 4213	. . . . . . . . . 10 ⊢ ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
113		eqidd 2726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((1^st ‘(1^st ‘𝑇))‘𝑛) = ((1^st ‘(1^st ‘𝑇))‘𝑛))
114		imaundi 6149	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
115		fzpred 13579	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
116	93, 115	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
117	116	imaeq2d 6058	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))))
118		f1ofn 6834	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁))
119	13, 118	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁))
120		fnsnfv 6971	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ 𝑀 ∈ (1...𝑁)) → {((2^nd ‘(1^st ‘𝑇))‘𝑀)} = ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
121	119, 41, 120	syl2anc 582	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → {((2^nd ‘(1^st ‘𝑇))‘𝑀)} = ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
122	121	uneq1d 4155	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
123	114, 117, 122	3eqtr4a 2791	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) = ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
124	123	xpeq1d 5701	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}))
125		xpundir 5741	. . . . . . . . . . . . . . . 16 ⊢ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
126	124, 125	eqtrdi 2781	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
127	126	uneq2d 4156	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
128		un12 4161	. . . . . . . . . . . . . 14 ⊢ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
129	127, 128	eqtrdi 2781	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
130	129	fveq1d 6893	. . . . . . . . . . . 12 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
131	130	ad2antrr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
132		fnconstg 6779	. . . . . . . . . . . . . . . . 17 ⊢ (0 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
133	51, 132	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))
134	50, 133	pm3.2i 469	. . . . . . . . . . . . . . 15 ⊢ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
135		imain 6632	. . . . . . . . . . . . . . . . 17 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
136	57, 135	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
137	79	nn0red 12561	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 − 1) ∈ ℝ)
138		peano2re 11415	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
139	62, 138	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 + 1) ∈ ℝ)
140	62	ltp1d 12172	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 < (𝑀 + 1))
141	137, 62, 139, 63, 140	lttrd 11403	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 − 1) < (𝑀 + 1))
142		fzdisj 13558	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑀 − 1) < (𝑀 + 1) → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
143	141, 142	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
144	143	imaeq2d 6058	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
145	144, 67	eqtrdi 2781	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ∅)
146	136, 145	eqtr3d 2767	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
147		fnun 6662	. . . . . . . . . . . . . . 15 ⊢ ((((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
148	134, 146, 147	sylancr 585	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
149		imaundi 6149	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
150		imadif 6631	. . . . . . . . . . . . . . . . . 18 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) ∖ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})))
151	57, 150	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) ∖ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})))
152		fzsplit 13557	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ (1...𝑁) → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
153	41, 152	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
154	153	difeq1d 4113	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((1...𝑁) ∖ {𝑀}) = (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}))
155		difundir 4275	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀}))
156		fzsplit2 13556	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝑀 − 1) + 1) ∈ (ℤ_≥‘1) ∧ 𝑀 ∈ (ℤ_≥‘(𝑀 − 1))) → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
157	77, 85, 156	syl2anc 582	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
158	74	oveq1d 7430	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑀) = (𝑀...𝑀))
159		fzsn 13573	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀})
160	88, 159	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝑀...𝑀) = {𝑀})
161	158, 160	eqtrd 2765	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑀) = {𝑀})
162	161	uneq2d 4156	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)) = ((1...(𝑀 − 1)) ∪ {𝑀}))
163	157, 162	eqtrd 2765	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ {𝑀}))
164	163	difeq1d 4113	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑀}) = (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}))
165		difun2 4476	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∖ {𝑀})
166	137, 62	ltnled 11389	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝑀 − 1) < 𝑀 ↔ ¬ 𝑀 ≤ (𝑀 − 1)))
167	63, 166	mpbid 231	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ¬ 𝑀 ≤ (𝑀 − 1))
168		elfzle2 13535	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 ∈ (1...(𝑀 − 1)) → 𝑀 ≤ (𝑀 − 1))
169	167, 168	nsyl 140	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ¬ 𝑀 ∈ (1...(𝑀 − 1)))
170		difsn 4797	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (¬ 𝑀 ∈ (1...(𝑀 − 1)) → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
171	169, 170	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
172	165, 171	eqtrid 2777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = (1...(𝑀 − 1)))
173	164, 172	eqtrd 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑀}) = (1...(𝑀 − 1)))
174	62, 139	ltnled 11389	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
175	140, 174	mpbid 231	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
176		elfzle1 13534	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ((𝑀 + 1)...𝑁) → (𝑀 + 1) ≤ 𝑀)
177	175, 176	nsyl 140	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ¬ 𝑀 ∈ ((𝑀 + 1)...𝑁))
178		difsn 4797	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑀 ∈ ((𝑀 + 1)...𝑁) → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
179	177, 178	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
180	173, 179	uneq12d 4157	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀})) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
181	155, 180	eqtrid 2777	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
182	154, 181	eqtrd 2765	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...𝑁) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
183	182	imaeq2d 6058	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑁) ∖ {𝑀})) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))))
184	121	eqcomd 2731	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) = {((2^nd ‘(1^st ‘𝑇))‘𝑀)})
185	106, 184	difeq12d 4115	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) ∖ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
186	151, 183, 185	3eqtr3d 2773	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
187	149, 186	eqtr3id 2779	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
188	187	fneq2d 6642	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) ↔ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})))
189	148, 188	mpbid 231	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
190		eldifsn 4786	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ↔ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
191	190	biimpri 227	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
192	191	ancoms 457	. . . . . . . . . . . . 13 ⊢ ((𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
193		disjdif 4467	. . . . . . . . . . . . . 14 ⊢ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) = ∅
194		fnconstg 6779	. . . . . . . . . . . . . . . 16 ⊢ (0 ∈ V → ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)})
195	51, 194	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)}
196		fvun2 6984	. . . . . . . . . . . . . . 15 ⊢ ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∧ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ∧ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
197	195, 196	mp3an1 1444	. . . . . . . . . . . . . 14 ⊢ ((((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ∧ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
198	193, 197	mpanr1 701	. . . . . . . . . . . . 13 ⊢ ((((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
199	189, 192, 198	syl2an 594	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁))) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
200	199	anassrs 466	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
201	131, 200	eqtrd 2765	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
202	47, 110, 111, 111, 112, 113, 201	ofval 7692	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇))‘𝑛) + (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛)))
203		fnconstg 6779	. . . . . . . . . . . . . . 15 ⊢ (1 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
204	48, 203	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀))
205	204, 133	pm3.2i 469	. . . . . . . . . . . . 13 ⊢ ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∧ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
206		imain 6632	. . . . . . . . . . . . . . 15 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
207	57, 206	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
208		fzdisj 13558	. . . . . . . . . . . . . . . . 17 ⊢ (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
209	140, 208	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
210	209	imaeq2d 6058	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
211	210, 67	eqtrdi 2781	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ∅)
212	207, 211	eqtr3d 2767	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
213		fnun 6662	. . . . . . . . . . . . 13 ⊢ ((((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∧ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
214	205, 212, 213	sylancr 585	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
215	153	imaeq2d 6058	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))))
216		imaundi 6149	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
217	215, 216	eqtrdi 2781	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
218	217, 106	eqtr3d 2767	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = (1...𝑁))
219	218	fneq2d 6642	. . . . . . . . . . . 12 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) ↔ ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁)))
220	214, 219	mpbid 231	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
221	220	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
222		imaundi 6149	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
223	163	imaeq2d 6058	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})))
224	121	uneq2d 4156	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})))
225	222, 223, 224	3eqtr4a 2791	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
226	225	xpeq1d 5701	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) × {1}))
227		xpundir 5741	. . . . . . . . . . . . . . . 16 ⊢ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}))
228	226, 227	eqtrdi 2781	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1})))
229	228	uneq1d 4155	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1})) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
230		un23 4162	. . . . . . . . . . . . . . 15 ⊢ (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1})) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}))
231	230	equncomi 4148	. . . . . . . . . . . . . 14 ⊢ (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1})) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
232	229, 231	eqtrdi 2781	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
233	232	fveq1d 6893	. . . . . . . . . . . 12 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
234	233	ad2antrr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
235		fnconstg 6779	. . . . . . . . . . . . . . . 16 ⊢ (1 ∈ V → ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)})
236	48, 235	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)}
237		fvun2 6984	. . . . . . . . . . . . . . 15 ⊢ ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∧ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ∧ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
238	236, 237	mp3an1 1444	. . . . . . . . . . . . . 14 ⊢ ((((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ∧ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) = ∅ ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
239	193, 238	mpanr1 701	. . . . . . . . . . . . 13 ⊢ ((((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ∧ 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
240	189, 192, 239	syl2an 594	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁))) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
241	240	anassrs 466	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) ∪ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
242	234, 241	eqtrd 2765	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛) = (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛))
243	47, 221, 111, 111, 112, 113, 242	ofval 7692	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇))‘𝑛) + (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘𝑛)))
244	202, 243	eqtr4d 2768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
245	244	an32s 650	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ (1...𝑁)) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
246	245	anasss 465	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
247		fveq2 6891	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (2^nd ‘𝑡) = (2^nd ‘𝑇))
248	247	breq2d 5155	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → (𝑦 < (2^nd ‘𝑡) ↔ 𝑦 < (2^nd ‘𝑇)))
249	248	ifbid 4547	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑇 → if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)))
250	249	csbeq1d 3889	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
251		2fveq3 6896	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → (1^st ‘(1^st ‘𝑡)) = (1^st ‘(1^st ‘𝑇)))
252		2fveq3 6896	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑇 → (2^nd ‘(1^st ‘𝑡)) = (2^nd ‘(1^st ‘𝑇)))
253	252	imaeq1d 6057	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)))
254	253	xpeq1d 5701	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}))
255	252	imaeq1d 6057	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)))
256	255	xpeq1d 5701	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
257	254, 256	uneq12d 4157	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
258	251, 257	oveq12d 7433	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑇 → ((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
259	258	csbeq2dv 3892	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
260	250, 259	eqtrd 2765	. . . . . . . . . . . . . 14 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
261	260	mpteq2dv 5245	. . . . . . . . . . . . 13 ⊢ (𝑡 = 𝑇 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
262	261	eqeq2d 2736	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_f + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
263	262, 3	elrab2 3678	. . . . . . . . . . 11 ⊢ (𝑇 ∈ 𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
264	263	simprbi 495	. . . . . . . . . 10 ⊢ (𝑇 ∈ 𝑆 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
265	1, 264	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
266		breq1 5146	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑀 − 1) → (𝑦 < (2^nd ‘𝑇) ↔ (𝑀 − 1) < (2^nd ‘𝑇)))
267		id 22	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑀 − 1) → 𝑦 = (𝑀 − 1))
268	266, 267	ifbieq1d 4548	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑀 − 1) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = if((𝑀 − 1) < (2^nd ‘𝑇), (𝑀 − 1), (𝑦 + 1)))
269	25	ltm1d 12174	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) < (2^nd ‘𝑇))
270	62, 24, 25, 90, 269	lelttrd 11400	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 < (2^nd ‘𝑇))
271	137, 62, 25, 63, 270	lttrd 11403	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑀 − 1) < (2^nd ‘𝑇))
272	271	iftrued 4532	. . . . . . . . . . . 12 ⊢ (𝜑 → if((𝑀 − 1) < (2^nd ‘𝑇), (𝑀 − 1), (𝑦 + 1)) = (𝑀 − 1))
273	268, 272	sylan9eqr 2787	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = (𝑀 − 1))
274	273	csbeq1d 3889	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋(𝑀 − 1) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
275		oveq2 7423	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = (𝑀 − 1) → (1...𝑗) = (1...(𝑀 − 1)))
276	275	imaeq2d 6058	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = (𝑀 − 1) → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))))
277	276	xpeq1d 5701	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = (𝑀 − 1) → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}))
278	277	adantl 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}))
279		oveq1 7422	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑗 = (𝑀 − 1) → (𝑗 + 1) = ((𝑀 − 1) + 1))
280	279, 74	sylan9eqr 2787	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (𝑗 + 1) = 𝑀)
281	280	oveq1d 7430	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((𝑗 + 1)...𝑁) = (𝑀...𝑁))
282	281	imaeq2d 6058	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
283	282	xpeq1d 5701	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))
284	278, 283	uneq12d 4157	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))
285	284	oveq2d 7431	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
286	79, 285	csbied 3923	. . . . . . . . . . 11 ⊢ (𝜑 → ⦋(𝑀 − 1) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
287	286	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → ⦋(𝑀 − 1) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
288	274, 287	eqtrd 2765	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
289		1red 11243	. . . . . . . . . . 11 ⊢ (𝜑 → 1 ∈ ℝ)
290	62, 26, 289, 91	lesub1dd 11858	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 − 1) ≤ (𝑁 − 1))
291		elfz2nn0 13622	. . . . . . . . . 10 ⊢ ((𝑀 − 1) ∈ (0...(𝑁 − 1)) ↔ ((𝑀 − 1) ∈ ℕ₀ ∧ (𝑁 − 1) ∈ ℕ₀ ∧ (𝑀 − 1) ≤ (𝑁 − 1)))
292	79, 29, 290, 291	syl3anbrc 1340	. . . . . . . . 9 ⊢ (𝜑 → (𝑀 − 1) ∈ (0...(𝑁 − 1)))
293		ovexd 7450	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))) ∈ V)
294	265, 288, 292, 293	fvmptd 7006	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘(𝑀 − 1)) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
295	294	fveq1d 6893	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
296	295	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
297		breq1 5146	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (𝑦 < (2^nd ‘𝑇) ↔ 𝑀 < (2^nd ‘𝑇)))
298		id 22	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → 𝑦 = 𝑀)
299	297, 298	ifbieq1d 4548	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = if(𝑀 < (2^nd ‘𝑇), 𝑀, (𝑦 + 1)))
300	270	iftrued 4532	. . . . . . . . . . . 12 ⊢ (𝜑 → if(𝑀 < (2^nd ‘𝑇), 𝑀, (𝑦 + 1)) = 𝑀)
301	299, 300	sylan9eqr 2787	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = 𝑀)
302	301	csbeq1d 3889	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋𝑀 / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
303		oveq2 7423	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑀 → (1...𝑗) = (1...𝑀))
304	303	imaeq2d 6058	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑀 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
305	304	xpeq1d 5701	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑀 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}))
306		oveq1 7422	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑗 = 𝑀 → (𝑗 + 1) = (𝑀 + 1))
307	306	oveq1d 7430	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑀 → ((𝑗 + 1)...𝑁) = ((𝑀 + 1)...𝑁))
308	307	imaeq2d 6058	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑀 → ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
309	308	xpeq1d 5701	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑀 → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
310	305, 309	uneq12d 4157	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑀 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
311	310	oveq2d 7431	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑀 → ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
312	311	adantl 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 = 𝑀) → ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
313	40, 312	csbied 3923	. . . . . . . . . . 11 ⊢ (𝜑 → ⦋𝑀 / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
314	313	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → ⦋𝑀 / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
315	302, 314	eqtrd 2765	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
316	29	nn0zd 12612	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 − 1) ∈ ℤ)
317	25, 26, 289, 34	lesub1dd 11858	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ≤ (𝑁 − 1))
318		eluz2 12856	. . . . . . . . . . . . 13 ⊢ ((𝑁 − 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) ↔ (((2^nd ‘𝑇) − 1) ∈ ℤ ∧ (𝑁 − 1) ∈ ℤ ∧ ((2^nd ‘𝑇) − 1) ≤ (𝑁 − 1)))
319	21, 316, 317, 318	syl3anbrc 1340	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 − 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
320		fzss2 13571	. . . . . . . . . . . 12 ⊢ ((𝑁 − 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) → (1...((2^nd ‘𝑇) − 1)) ⊆ (1...(𝑁 − 1)))
321	319, 320	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (1...((2^nd ‘𝑇) − 1)) ⊆ (1...(𝑁 − 1)))
322		fz1ssfz0 13627	. . . . . . . . . . 11 ⊢ (1...(𝑁 − 1)) ⊆ (0...(𝑁 − 1))
323	321, 322	sstrdi 3985	. . . . . . . . . 10 ⊢ (𝜑 → (1...((2^nd ‘𝑇) − 1)) ⊆ (0...(𝑁 − 1)))
324	323, 40	sseldd 3973	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ (0...(𝑁 − 1)))
325		ovexd 7450	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))) ∈ V)
326	265, 315, 324, 325	fvmptd 7006	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘𝑀) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
327	326	fveq1d 6893	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘𝑀)‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
328	327	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘𝑀)‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
329	246, 296, 328	3eqtr4d 2775	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘𝑀)‘𝑛))
330	329	expr 455	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘𝑀)‘𝑛)))
331	330	necon1d 2952	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛) → 𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
332		elmapi 8864	. . . . . . . . . . 11 ⊢ ((1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)) → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
333	44, 332	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
334	333, 42	ffvelcdmd 7089	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ (0..^𝐾))
335		elfzonn0 13707	. . . . . . . . 9 ⊢ (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ (0..^𝐾) → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℕ₀)
336	334, 335	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℕ₀)
337	336	nn0red 12561	. . . . . . 7 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℝ)
338	337	ltp1d 12172	. . . . . . 7 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) < (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
339	337, 338	ltned 11378	. . . . . 6 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
340	294	fveq1d 6893	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
341		ovexd 7450	. . . . . . . . 9 ⊢ (𝜑 → (1...𝑁) ∈ V)
342		eqidd 2726	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
343		fzss1 13570	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ (ℤ_≥‘1) → (𝑀...𝑁) ⊆ (1...𝑁))
344	76, 343	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑀...𝑁) ⊆ (1...𝑁))
345		eluzfz1 13538	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ (𝑀...𝑁))
346	93, 345	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (𝑀...𝑁))
347		fnfvima 7240	. . . . . . . . . . . . 13 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ (𝑀...𝑁) ⊆ (1...𝑁) ∧ 𝑀 ∈ (𝑀...𝑁)) → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
348	119, 344, 346, 347	syl3anc 1368	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
349		fvun2 6984	. . . . . . . . . . . . 13 ⊢ (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∧ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) ∧ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = ∅ ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
350	50, 53, 349	mp3an12 1447	. . . . . . . . . . . 12 ⊢ (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = ∅ ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
351	69, 348, 350	syl2anc 582	. . . . . . . . . . 11 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
352	51	fvconst2 7211	. . . . . . . . . . . 12 ⊢ (((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) → ((((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
353	348, 352	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
354	351, 353	eqtrd 2765	. . . . . . . . . 10 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
355	354	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
356	46, 109, 341, 341, 112, 342, 355	ofval 7692	. . . . . . . 8 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 0))
357	42, 356	mpdan 685	. . . . . . 7 ⊢ (𝜑 → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 0))
358	336	nn0cnd 12562	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℂ)
359	358	addridd 11442	. . . . . . 7 ⊢ (𝜑 → (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 0) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
360	340, 357, 359	3eqtrd 2769	. . . . . 6 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
361	326	fveq1d 6893	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
362		fzss2 13571	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (1...𝑀) ⊆ (1...𝑁))
363	93, 362	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1...𝑀) ⊆ (1...𝑁))
364		elfz1end 13561	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ ↔ 𝑀 ∈ (1...𝑀))
365	61, 364	sylib 217	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (1...𝑀))
366		fnfvima 7240	. . . . . . . . . . . . 13 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ (1...𝑀) ⊆ (1...𝑁) ∧ 𝑀 ∈ (1...𝑀)) → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
367	119, 363, 365, 366	syl3anc 1368	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
368		fvun1 6983	. . . . . . . . . . . . 13 ⊢ (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∧ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) ∧ ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅ ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
369	204, 133, 368	mp3an12 1447	. . . . . . . . . . . 12 ⊢ (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅ ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀))) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
370	212, 367, 369	syl2anc 582	. . . . . . . . . . 11 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
371	48	fvconst2 7211	. . . . . . . . . . . 12 ⊢ (((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
372	367, 371	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
373	370, 372	eqtrd 2765	. . . . . . . . . 10 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
374	373	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
375	46, 220, 341, 341, 112, 342, 374	ofval 7692	. . . . . . . 8 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
376	42, 375	mpdan 685	. . . . . . 7 ⊢ (𝜑 → (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
377	361, 376	eqtrd 2765	. . . . . 6 ⊢ (𝜑 → ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
378	339, 360, 377	3netr4d 3008	. . . . 5 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
379		fveq2 6891	. . . . . 6 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
380		fveq2 6891	. . . . . 6 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘𝑀)‘𝑛) = ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
381	379, 380	neeq12d 2992	. . . . 5 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛) ↔ ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀))))
382	378, 381	syl5ibrcom 246	. . . 4 ⊢ (𝜑 → (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛)))
383	382	adantr 479	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛)))
384	331, 383	impbid 211	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛) ↔ 𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
385	42, 384	riota5 7401	1 ⊢ (𝜑 → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛)) = ((2^nd ‘(1^st ‘𝑇))‘𝑀))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 394 = wceq 1533 ∈ wcel 2098 {cab 2702 ≠ wne 2930 {crab 3419 Vcvv 3463 ⦋csb 3885 ∖ cdif 3937 ∪ cun 3938 ∩ cin 3939 ⊆ wss 3940 ∅c0 4318 ifcif 4524 {csn 4624 class class class wbr 5143 ↦ cmpt 5226 × cxp 5670 ^◡ccnv 5671 “ cima 5675 Fun wfun 6536 Fn wfn 6537 ⟶wf 6538 –onto→wfo 6540 –1-1-onto→wf1o 6541 ‘cfv 6542 ℩crio 7370 (class class class)co 7415 ∘_f cof 7679 1^st c1st 7987 2^nd c2nd 7988 ↑_m cmap 8841 ℂcc 11134 ℝcr 11135 0cc0 11136 1c1 11137 + caddc 11139 < clt 11276 ≤ cle 11277 − cmin 11472 ℕcn 12240 ℕ₀cn0 12500 ℤcz 12586 ℤ_≥cuz 12850 ...cfz 13514 ..^cfzo 13657

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2696 ax-rep 5280 ax-sep 5294 ax-nul 5301 ax-pow 5359 ax-pr 5423 ax-un 7737 ax-cnex 11192 ax-resscn 11193 ax-1cn 11194 ax-icn 11195 ax-addcl 11196 ax-addrcl 11197 ax-mulcl 11198 ax-mulrcl 11199 ax-mulcom 11200 ax-addass 11201 ax-mulass 11202 ax-distr 11203 ax-i2m1 11204 ax-1ne0 11205 ax-1rid 11206 ax-rnegex 11207 ax-rrecex 11208 ax-cnre 11209 ax-pre-lttri 11210 ax-pre-lttrn 11211 ax-pre-ltadd 11212 ax-pre-mulgt0 11213

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2703 df-cleq 2717 df-clel 2802 df-nfc 2877 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-reu 3365 df-rab 3420 df-v 3465 df-sbc 3770 df-csb 3886 df-dif 3943 df-un 3945 df-in 3947 df-ss 3957 df-pss 3960 df-nul 4319 df-if 4525 df-pw 4600 df-sn 4625 df-pr 4627 df-op 4631 df-uni 4904 df-iun 4993 df-br 5144 df-opab 5206 df-mpt 5227 df-tr 5261 df-id 5570 df-eprel 5576 df-po 5584 df-so 5585 df-fr 5627 df-we 5629 df-xp 5678 df-rel 5679 df-cnv 5680 df-co 5681 df-dm 5682 df-rn 5683 df-res 5684 df-ima 5685 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-riota 7371 df-ov 7418 df-oprab 7419 df-mpo 7420 df-of 7681 df-om 7868 df-1st 7989 df-2nd 7990 df-frecs 8283 df-wrecs 8314 df-recs 8388 df-rdg 8427 df-er 8721 df-map 8843 df-en 8961 df-dom 8962 df-sdom 8963 df-pnf 11278 df-mnf 11279 df-xr 11280 df-ltxr 11281 df-le 11282 df-sub 11474 df-neg 11475 df-nn 12241 df-n0 12501 df-z 12587 df-uz 12851 df-fz 13515 df-fzo 13658

This theorem is referenced by: poimirlem8 37157

W3C validator