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 34025

Description: Lemma for poimir 34052 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..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((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 3566	. . . . . . . . 9 ⊢ (𝑇 ∈ {𝑡 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
3		poimirlem22.s	. . . . . . . . 9 ⊢ 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
4	2, 3	eleq2s 2876	. . . . . . . 8 ⊢ (𝑇 ∈ 𝑆 → 𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
5	1, 4	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
6		xp1st 7477	. . . . . . 7 ⊢ (𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
7	5, 6	syl 17	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
8		xp2nd 7478	. . . . . 6 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (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 6459	. . . . . 6 ⊢ (2^nd ‘(1^st ‘𝑇)) ∈ V
11		f1oeq1 6380	. . . . . 6 ⊢ (𝑓 = (2^nd ‘(1^st ‘𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
12	10, 11	elab 3557	. . . . 5 ⊢ ((2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
13	9, 12	sylib 210	. . . 4 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
14		f1of 6391	. . . 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 12687	. . . . . . . . 9 ⊢ ((2^nd ‘𝑇) ∈ (1...(𝑁 − 1)) → (2^nd ‘𝑇) ∈ ℕ)
18	16, 17	syl 17	. . . . . . . 8 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℕ)
19	18	nnzd 11833	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℤ)
20		peano2zm 11772	. . . . . . 7 ⊢ ((2^nd ‘𝑇) ∈ ℤ → ((2^nd ‘𝑇) − 1) ∈ ℤ)
21	19, 20	syl 17	. . . . . 6 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ∈ ℤ)
22		poimir.0	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℕ)
23	22	nnzd 11833	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℤ)
24	21	zred 11834	. . . . . . 7 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ∈ ℝ)
25	18	nnred 11391	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℝ)
26	22	nnred 11391	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℝ)
27	25	lem1d 11311	. . . . . . 7 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ≤ (2^nd ‘𝑇))
28		nnm1nn0 11685	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ₀)
29	22, 28	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑁 − 1) ∈ ℕ₀)
30	29	nn0red 11703	. . . . . . . 8 ⊢ (𝜑 → (𝑁 − 1) ∈ ℝ)
31		elfzle2 12662	. . . . . . . . 9 ⊢ ((2^nd ‘𝑇) ∈ (1...(𝑁 − 1)) → (2^nd ‘𝑇) ≤ (𝑁 − 1))
32	16, 31	syl 17	. . . . . . . 8 ⊢ (𝜑 → (2^nd ‘𝑇) ≤ (𝑁 − 1))
33	26	lem1d 11311	. . . . . . . 8 ⊢ (𝜑 → (𝑁 − 1) ≤ 𝑁)
34	25, 30, 26, 32, 33	letrd 10533	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘𝑇) ≤ 𝑁)
35	24, 25, 26, 27, 34	letrd 10533	. . . . . 6 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ≤ 𝑁)
36		eluz2 11998	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) ↔ (((2^nd ‘𝑇) − 1) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ ((2^nd ‘𝑇) − 1) ≤ 𝑁))
37	21, 23, 35, 36	syl3anbrc 1400	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
38		fzss2 12698	. . . . 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 3821	. . 3 ⊢ (𝜑 → 𝑀 ∈ (1...𝑁))
42	15, 41	ffvelrnd 6624	. 2 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁))
43		xp1st 7477	. . . . . . . . . . . . 13 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)))
44	7, 43	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)))
45		elmapfn 8163	. . . . . . . . . . . 12 ⊢ ((1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)) → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
46	44, 45	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
47	46	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
48		1ex 10372	. . . . . . . . . . . . . . 15 ⊢ 1 ∈ V
49		fnconstg 6343	. . . . . . . . . . . . . . 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 10370	. . . . . . . . . . . . . . 15 ⊢ 0 ∈ V
52		fnconstg 6343	. . . . . . . . . . . . . . 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 464	. . . . . . . . . . . . 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 6397	. . . . . . . . . . . . . . . . 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 492	. . . . . . . . . . . . . . . 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 6219	. . . . . . . . . . . . . . 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 12687	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ (1...((2^nd ‘𝑇) − 1)) → 𝑀 ∈ ℕ)
61	40, 60	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ ℕ)
62	61	nnred 11391	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑀 ∈ ℝ)
63	62	ltm1d 11310	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑀 − 1) < 𝑀)
64		fzdisj 12685	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 − 1) < 𝑀 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
65	63, 64	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
66	65	imaeq2d 5720	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
67		ima0 5735	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ∅) = ∅
68	66, 67	syl6eq 2829	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ∅)
69	59, 68	eqtr3d 2815	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = ∅)
70		fnun 6243	. . . . . . . . . . . . 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 581	. . . . . . . . . . . 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 11392	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ ℂ)
73		npcan1 10800	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ ℂ → ((𝑀 − 1) + 1) = 𝑀)
74	72, 73	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑀 − 1) + 1) = 𝑀)
75		nnuz 12029	. . . . . . . . . . . . . . . . . . . 20 ⊢ ℕ = (ℤ_≥‘1)
76	61, 75	syl6eleq 2868	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘1))
77	74, 76	eqeltrd 2858	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘1))
78		nnm1nn0 11685	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 ∈ ℕ → (𝑀 − 1) ∈ ℕ₀)
79	61, 78	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝑀 − 1) ∈ ℕ₀)
80	79	nn0zd 11832	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝑀 − 1) ∈ ℤ)
81		uzid 12007	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑀 − 1) ∈ ℤ → (𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)))
82	80, 81	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)))
83		peano2uz 12047	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)) → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘(𝑀 − 1)))
84	82, 83	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘(𝑀 − 1)))
85	74, 84	eqeltrrd 2859	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘(𝑀 − 1)))
86		uzss 12013	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ (ℤ_≥‘(𝑀 − 1)) → (ℤ_≥‘𝑀) ⊆ (ℤ_≥‘(𝑀 − 1)))
87	85, 86	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (ℤ_≥‘𝑀) ⊆ (ℤ_≥‘(𝑀 − 1)))
88	61	nnzd 11833	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ ℤ)
89		elfzle2 12662	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑀 ∈ (1...((2^nd ‘𝑇) − 1)) → 𝑀 ≤ ((2^nd ‘𝑇) − 1))
90	40, 89	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑀 ≤ ((2^nd ‘𝑇) − 1))
91	62, 24, 26, 90, 35	letrd 10533	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ≤ 𝑁)
92		eluz2 11998	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ 𝑀 ≤ 𝑁))
93	88, 23, 91, 92	syl3anbrc 1400	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
94	87, 93	sseldd 3821	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘(𝑀 − 1)))
95		fzsplit2 12683	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑀 − 1) + 1) ∈ (ℤ_≥‘1) ∧ 𝑁 ∈ (ℤ_≥‘(𝑀 − 1))) → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
96	77, 94, 95	syl2anc 579	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
97	74	oveq1d 6937	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑁) = (𝑀...𝑁))
98	97	uneq2d 3989	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
99	96, 98	eqtrd 2813	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
100	99	imaeq2d 5720	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))))
101		imaundi 5799	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
102	100, 101	syl6eq 2829	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
103		f1ofo 6398	. . . . . . . . . . . . . . . 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 6371	. . . . . . . . . . . . . . 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 2815	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = (1...𝑁))
108	107	fneq2d 6227	. . . . . . . . . . . 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 224	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
110	109	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
111		ovexd 6956	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (1...𝑁) ∈ V)
112		inidm 4042	. . . . . . . . . 10 ⊢ ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
113		eqidd 2778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((1^st ‘(1^st ‘𝑇))‘𝑛) = ((1^st ‘(1^st ‘𝑇))‘𝑛))
114		imaundi 5799	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
115		fzpred 12706	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
116	93, 115	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
117	116	imaeq2d 5720	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))))
118		f1ofn 6392	. . . . . . . . . . . . . . . . . . . . 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 6518	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ 𝑀 ∈ (1...𝑁)) → {((2^nd ‘(1^st ‘𝑇))‘𝑀)} = ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
121	119, 41, 120	syl2anc 579	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → {((2^nd ‘(1^st ‘𝑇))‘𝑀)} = ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
122	121	uneq1d 3988	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
123	114, 117, 122	3eqtr4a 2839	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) = ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
124	123	xpeq1d 5384	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}))
125		xpundir 5418	. . . . . . . . . . . . . . . 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	syl6eq 2829	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
127	126	uneq2d 3989	. . . . . . . . . . . . . 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 3993	. . . . . . . . . . . . . 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	syl6eq 2829	. . . . . . . . . . . . 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 6448	. . . . . . . . . . . 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 716	. . . . . . . . . . 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 6343	. . . . . . . . . . . . . . . . 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 464	. . . . . . . . . . . . . . 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 6219	. . . . . . . . . . . . . . . . 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 11703	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 − 1) ∈ ℝ)
138		peano2re 10549	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
139	62, 138	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 + 1) ∈ ℝ)
140	62	ltp1d 11308	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 < (𝑀 + 1))
141	137, 62, 139, 63, 140	lttrd 10537	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 − 1) < (𝑀 + 1))
142		fzdisj 12685	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑀 − 1) < (𝑀 + 1) → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
143	141, 142	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
144	143	imaeq2d 5720	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
145	144, 67	syl6eq 2829	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ∅)
146	136, 145	eqtr3d 2815	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
147		fnun 6243	. . . . . . . . . . . . . . 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 581	. . . . . . . . . . . . . 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 5799	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
150		imadif 6218	. . . . . . . . . . . . . . . . . 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 12684	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ (1...𝑁) → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
153	41, 152	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
154	153	difeq1d 3949	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((1...𝑁) ∖ {𝑀}) = (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}))
155		difundir 4106	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀}))
156		fzsplit2 12683	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝑀 − 1) + 1) ∈ (ℤ_≥‘1) ∧ 𝑀 ∈ (ℤ_≥‘(𝑀 − 1))) → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
157	77, 85, 156	syl2anc 579	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
158	74	oveq1d 6937	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑀) = (𝑀...𝑀))
159		fzsn 12700	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀})
160	88, 159	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝑀...𝑀) = {𝑀})
161	158, 160	eqtrd 2813	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑀) = {𝑀})
162	161	uneq2d 3989	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)) = ((1...(𝑀 − 1)) ∪ {𝑀}))
163	157, 162	eqtrd 2813	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ {𝑀}))
164	163	difeq1d 3949	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑀}) = (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}))
165		difun2 4271	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∖ {𝑀})
166	137, 62	ltnled 10523	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝑀 − 1) < 𝑀 ↔ ¬ 𝑀 ≤ (𝑀 − 1)))
167	63, 166	mpbid 224	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ¬ 𝑀 ≤ (𝑀 − 1))
168		elfzle2 12662	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 ∈ (1...(𝑀 − 1)) → 𝑀 ≤ (𝑀 − 1))
169	167, 168	nsyl 138	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ¬ 𝑀 ∈ (1...(𝑀 − 1)))
170		difsn 4560	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (¬ 𝑀 ∈ (1...(𝑀 − 1)) → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
171	169, 170	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
172	165, 171	syl5eq 2825	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = (1...(𝑀 − 1)))
173	164, 172	eqtrd 2813	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑀}) = (1...(𝑀 − 1)))
174	62, 139	ltnled 10523	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
175	140, 174	mpbid 224	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
176		elfzle1 12661	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ((𝑀 + 1)...𝑁) → (𝑀 + 1) ≤ 𝑀)
177	175, 176	nsyl 138	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ¬ 𝑀 ∈ ((𝑀 + 1)...𝑁))
178		difsn 4560	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑀 ∈ ((𝑀 + 1)...𝑁) → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
179	177, 178	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
180	173, 179	uneq12d 3990	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀})) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
181	155, 180	syl5eq 2825	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
182	154, 181	eqtrd 2813	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...𝑁) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
183	182	imaeq2d 5720	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑁) ∖ {𝑀})) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))))
184	121	eqcomd 2783	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) = {((2^nd ‘(1^st ‘𝑇))‘𝑀)})
185	106, 184	difeq12d 3951	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) ∖ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
186	151, 183, 185	3eqtr3d 2821	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
187	149, 186	syl5eqr 2827	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
188	187	fneq2d 6227	. . . . . . . . . . . . . 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 224	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
190		eldifsn 4549	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ↔ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
191	190	biimpri 220	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
192	191	ancoms 452	. . . . . . . . . . . . 13 ⊢ ((𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
193		disjdif 4263	. . . . . . . . . . . . . 14 ⊢ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) = ∅
194		fnconstg 6343	. . . . . . . . . . . . . . . 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 6530	. . . . . . . . . . . . . . 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 1521	. . . . . . . . . . . . . 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 693	. . . . . . . . . . . . 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 589	. . . . . . . . . . . 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 461	. . . . . . . . . . 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 2813	. . . . . . . . . 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 7183	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 6343	. . . . . . . . . . . . . . 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 464	. . . . . . . . . . . . 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 6219	. . . . . . . . . . . . . . 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 12685	. . . . . . . . . . . . . . . . 17 ⊢ (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
209	140, 208	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
210	209	imaeq2d 5720	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
211	210, 67	syl6eq 2829	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ∅)
212	207, 211	eqtr3d 2815	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
213		fnun 6243	. . . . . . . . . . . . 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 581	. . . . . . . . . . . 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 5720	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))))
216		imaundi 5799	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
217	215, 216	syl6eq 2829	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
218	217, 106	eqtr3d 2815	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = (1...𝑁))
219	218	fneq2d 6227	. . . . . . . . . . . 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 224	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
221	220	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
222		imaundi 5799	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
223	163	imaeq2d 5720	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})))
224	121	uneq2d 3989	. . . . . . . . . . . . . . . . . 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 2839	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
226	225	xpeq1d 5384	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) × {1}))
227		xpundir 5418	. . . . . . . . . . . . . . . 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	syl6eq 2829	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1})))
229	228	uneq1d 3988	. . . . . . . . . . . . . 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 3994	. . . . . . . . . . . . . . 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 3981	. . . . . . . . . . . . . 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	syl6eq 2829	. . . . . . . . . . . . 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 6448	. . . . . . . . . . . 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 716	. . . . . . . . . . 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 6343	. . . . . . . . . . . . . . . 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 6530	. . . . . . . . . . . . . . 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 1521	. . . . . . . . . . . . . 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 693	. . . . . . . . . . . . 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 589	. . . . . . . . . . . 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 461	. . . . . . . . . . 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 2813	. . . . . . . . . 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 7183	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 2816	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
245	244	an32s 642	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ (1...𝑁)) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
246	245	anasss 460	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
247		fveq2 6446	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (2^nd ‘𝑡) = (2^nd ‘𝑇))
248	247	breq2d 4898	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → (𝑦 < (2^nd ‘𝑡) ↔ 𝑦 < (2^nd ‘𝑇)))
249	248	ifbid 4328	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑇 → if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)))
250	249	csbeq1d 3757	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
251		2fveq3 6451	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → (1^st ‘(1^st ‘𝑡)) = (1^st ‘(1^st ‘𝑇)))
252		2fveq3 6451	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑇 → (2^nd ‘(1^st ‘𝑡)) = (2^nd ‘(1^st ‘𝑇)))
253	252	imaeq1d 5719	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)))
254	253	xpeq1d 5384	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}))
255	252	imaeq1d 5719	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)))
256	255	xpeq1d 5384	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
257	254, 256	uneq12d 3990	. . . . . . . . . . . . . . . . 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 6940	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑇 → ((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
259	258	csbeq2dv 4216	. . . . . . . . . . . . . . 15 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
260	250, 259	eqtrd 2813	. . . . . . . . . . . . . 14 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
261	260	mpteq2dv 4980	. . . . . . . . . . . . 13 ⊢ (𝑡 = 𝑇 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
262	261	eqeq2d 2787	. . . . . . . . . . . 12 ⊢ (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑡)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
263	262, 3	elrab2 3575	. . . . . . . . . . 11 ⊢ (𝑇 ∈ 𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
264	263	simprbi 492	. . . . . . . . . 10 ⊢ (𝑇 ∈ 𝑆 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
266		breq1 4889	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑀 − 1) → (𝑦 < (2^nd ‘𝑇) ↔ (𝑀 − 1) < (2^nd ‘𝑇)))
267		id 22	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑀 − 1) → 𝑦 = (𝑀 − 1))
268	266, 267	ifbieq1d 4329	. . . . . . . . . . . 12 ⊢ (𝑦 = (𝑀 − 1) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = if((𝑀 − 1) < (2^nd ‘𝑇), (𝑀 − 1), (𝑦 + 1)))
269	25	ltm1d 11310	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) < (2^nd ‘𝑇))
270	62, 24, 25, 90, 269	lelttrd 10534	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 < (2^nd ‘𝑇))
271	137, 62, 25, 63, 270	lttrd 10537	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑀 − 1) < (2^nd ‘𝑇))
272	271	iftrued 4314	. . . . . . . . . . . 12 ⊢ (𝜑 → if((𝑀 − 1) < (2^nd ‘𝑇), (𝑀 − 1), (𝑦 + 1)) = (𝑀 − 1))
273	268, 272	sylan9eqr 2835	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = (𝑀 − 1))
274	273	csbeq1d 3757	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋(𝑀 − 1) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
275		oveq2 6930	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = (𝑀 − 1) → (1...𝑗) = (1...(𝑀 − 1)))
276	275	imaeq2d 5720	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = (𝑀 − 1) → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))))
277	276	xpeq1d 5384	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = (𝑀 − 1) → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}))
278	277	adantl 475	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}))
279		oveq1 6929	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑗 = (𝑀 − 1) → (𝑗 + 1) = ((𝑀 − 1) + 1))
280	279, 74	sylan9eqr 2835	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (𝑗 + 1) = 𝑀)
281	280	oveq1d 6937	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((𝑗 + 1)...𝑁) = (𝑀...𝑁))
282	281	imaeq2d 5720	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
283	282	xpeq1d 5384	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))
284	278, 283	uneq12d 3990	. . . . . . . . . . . . 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 6938	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
286	79, 285	csbied 3777	. . . . . . . . . . 11 ⊢ (𝜑 → ⦋(𝑀 − 1) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
287	286	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → ⦋(𝑀 − 1) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
288	274, 287	eqtrd 2813	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
289		1red 10377	. . . . . . . . . . 11 ⊢ (𝜑 → 1 ∈ ℝ)
290	62, 26, 289, 91	lesub1dd 10991	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 − 1) ≤ (𝑁 − 1))
291		elfz2nn0 12749	. . . . . . . . . 10 ⊢ ((𝑀 − 1) ∈ (0...(𝑁 − 1)) ↔ ((𝑀 − 1) ∈ ℕ₀ ∧ (𝑁 − 1) ∈ ℕ₀ ∧ (𝑀 − 1) ≤ (𝑁 − 1)))
292	79, 29, 290, 291	syl3anbrc 1400	. . . . . . . . 9 ⊢ (𝜑 → (𝑀 − 1) ∈ (0...(𝑁 − 1)))
293		ovexd 6956	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))) ∈ V)
294	265, 288, 292, 293	fvmptd 6548	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘(𝑀 − 1)) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
295	294	fveq1d 6448	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
296	295	adantr 474	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
297		breq1 4889	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → (𝑦 < (2^nd ‘𝑇) ↔ 𝑀 < (2^nd ‘𝑇)))
298		id 22	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑀 → 𝑦 = 𝑀)
299	297, 298	ifbieq1d 4329	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = if(𝑀 < (2^nd ‘𝑇), 𝑀, (𝑦 + 1)))
300	270	iftrued 4314	. . . . . . . . . . . 12 ⊢ (𝜑 → if(𝑀 < (2^nd ‘𝑇), 𝑀, (𝑦 + 1)) = 𝑀)
301	299, 300	sylan9eqr 2835	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = 𝑀)
302	301	csbeq1d 3757	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋𝑀 / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
303		oveq2 6930	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑀 → (1...𝑗) = (1...𝑀))
304	303	imaeq2d 5720	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑀 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
305	304	xpeq1d 5384	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑀 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}))
306		oveq1 6929	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑗 = 𝑀 → (𝑗 + 1) = (𝑀 + 1))
307	306	oveq1d 6937	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑀 → ((𝑗 + 1)...𝑁) = ((𝑀 + 1)...𝑁))
308	307	imaeq2d 5720	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑀 → ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
309	308	xpeq1d 5384	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑀 → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
310	305, 309	uneq12d 3990	. . . . . . . . . . . . . 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 6938	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑀 → ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
312	311	adantl 475	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 = 𝑀) → ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
313	40, 312	csbied 3777	. . . . . . . . . . 11 ⊢ (𝜑 → ⦋𝑀 / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
314	313	adantr 474	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → ⦋𝑀 / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
315	302, 314	eqtrd 2813	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 = 𝑀) → ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
316	29	nn0zd 11832	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 − 1) ∈ ℤ)
317	25, 26, 289, 34	lesub1dd 10991	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ≤ (𝑁 − 1))
318		eluz2 11998	. . . . . . . . . . . . 13 ⊢ ((𝑁 − 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) ↔ (((2^nd ‘𝑇) − 1) ∈ ℤ ∧ (𝑁 − 1) ∈ ℤ ∧ ((2^nd ‘𝑇) − 1) ≤ (𝑁 − 1)))
319	21, 316, 317, 318	syl3anbrc 1400	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 − 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
320		fzss2 12698	. . . . . . . . . . . 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 12754	. . . . . . . . . . 11 ⊢ (1...(𝑁 − 1)) ⊆ (0...(𝑁 − 1))
323	321, 322	syl6ss 3832	. . . . . . . . . 10 ⊢ (𝜑 → (1...((2^nd ‘𝑇) − 1)) ⊆ (0...(𝑁 − 1)))
324	323, 40	sseldd 3821	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ (0...(𝑁 − 1)))
325		ovexd 6956	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))) ∈ V)
326	265, 315, 324, 325	fvmptd 6548	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘𝑀) = ((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
327	326	fveq1d 6448	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘𝑀)‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
328	327	adantr 474	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘𝑀)‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
329	246, 296, 328	3eqtr4d 2823	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘𝑀)‘𝑛))
330	329	expr 450	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘𝑀)‘𝑛)))
331	330	necon1d 2990	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛) → 𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
332		elmapi 8162	. . . . . . . . . . 11 ⊢ ((1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)) → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
333	44, 332	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
334	333, 42	ffvelrnd 6624	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ (0..^𝐾))
335		elfzonn0 12832	. . . . . . . . 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 11703	. . . . . . 7 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℝ)
338	337	ltp1d 11308	. . . . . . 7 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) < (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
339	337, 338	ltned 10512	. . . . . 6 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
340	294	fveq1d 6448	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
341		ovexd 6956	. . . . . . . . 9 ⊢ (𝜑 → (1...𝑁) ∈ V)
342		eqidd 2778	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
343		fzss1 12697	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ (ℤ_≥‘1) → (𝑀...𝑁) ⊆ (1...𝑁))
344	76, 343	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑀...𝑁) ⊆ (1...𝑁))
345		eluzfz1 12665	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ (𝑀...𝑁))
346	93, 345	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (𝑀...𝑁))
347		fnfvima 6769	. . . . . . . . . . . . 13 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ (𝑀...𝑁) ⊆ (1...𝑁) ∧ 𝑀 ∈ (𝑀...𝑁)) → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
348	119, 344, 346, 347	syl3anc 1439	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
349		fvun2 6530	. . . . . . . . . . . . 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 1524	. . . . . . . . . . . 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 579	. . . . . . . . . . 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 6741	. . . . . . . . . . . 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 2813	. . . . . . . . . 10 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
355	354	adantr 474	. . . . . . . . 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 7183	. . . . . . . 8 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 677	. . . . . . 7 ⊢ (𝜑 → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 11704	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℂ)
359	358	addid1d 10576	. . . . . . 7 ⊢ (𝜑 → (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 0) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
360	340, 357, 359	3eqtrd 2817	. . . . . 6 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
361	326	fveq1d 6448	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
362		fzss2 12698	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (1...𝑀) ⊆ (1...𝑁))
363	93, 362	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1...𝑀) ⊆ (1...𝑁))
364		elfz1end 12688	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ ↔ 𝑀 ∈ (1...𝑀))
365	61, 364	sylib 210	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (1...𝑀))
366		fnfvima 6769	. . . . . . . . . . . . 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 1439	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
368		fvun1 6529	. . . . . . . . . . . . 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 1524	. . . . . . . . . . . 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 579	. . . . . . . . . . 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 6741	. . . . . . . . . . . 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 2813	. . . . . . . . . 10 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
374	373	adantr 474	. . . . . . . . 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 7183	. . . . . . . 8 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 677	. . . . . . 7 ⊢ (𝜑 → (((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((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 2813	. . . . . 6 ⊢ (𝜑 → ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
378	339, 360, 377	3netr4d 3045	. . . . 5 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
379		fveq2 6446	. . . . . 6 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
380		fveq2 6446	. . . . . 6 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘𝑀)‘𝑛) = ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
381	379, 380	neeq12d 3029	. . . . 5 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛) ↔ ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ ((𝐹‘𝑀)‘((2^nd ‘(1^st ‘𝑇))‘𝑀))))
382	378, 381	syl5ibrcom 239	. . . 4 ⊢ (𝜑 → (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛)))
383	382	adantr 474	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛)))
384	331, 383	impbid 204	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛) ↔ 𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
385	42, 384	riota5 6909	1 ⊢ (𝜑 → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 1))‘𝑛) ≠ ((𝐹‘𝑀)‘𝑛)) = ((2^nd ‘(1^st ‘𝑇))‘𝑀))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 386 = wceq 1601 ∈ wcel 2106 {cab 2762 ≠ wne 2968 {crab 3093 Vcvv 3397 ⦋csb 3750 ∖ cdif 3788 ∪ cun 3789 ∩ cin 3790 ⊆ wss 3791 ∅c0 4140 ifcif 4306 {csn 4397 class class class wbr 4886 ↦ cmpt 4965 × cxp 5353 ^◡ccnv 5354 “ cima 5358 Fun wfun 6129 Fn wfn 6130 ⟶wf 6131 –onto→wfo 6133 –1-1-onto→wf1o 6134 ‘cfv 6135 ℩crio 6882 (class class class)co 6922 ∘_𝑓 cof 7172 1^st c1st 7443 2^nd c2nd 7444 ↑_𝑚 cmap 8140 ℂcc 10270 ℝcr 10271 0cc0 10272 1c1 10273 + caddc 10275 < clt 10411 ≤ cle 10412 − cmin 10606 ℕcn 11374 ℕ₀cn0 11642 ℤcz 11728 ℤ_≥cuz 11992 ...cfz 12643 ..^cfzo 12784

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1839 ax-4 1853 ax-5 1953 ax-6 2021 ax-7 2054 ax-8 2108 ax-9 2115 ax-10 2134 ax-11 2149 ax-12 2162 ax-13 2333 ax-ext 2753 ax-rep 5006 ax-sep 5017 ax-nul 5025 ax-pow 5077 ax-pr 5138 ax-un 7226 ax-cnex 10328 ax-resscn 10329 ax-1cn 10330 ax-icn 10331 ax-addcl 10332 ax-addrcl 10333 ax-mulcl 10334 ax-mulrcl 10335 ax-mulcom 10336 ax-addass 10337 ax-mulass 10338 ax-distr 10339 ax-i2m1 10340 ax-1ne0 10341 ax-1rid 10342 ax-rnegex 10343 ax-rrecex 10344 ax-cnre 10345 ax-pre-lttri 10346 ax-pre-lttrn 10347 ax-pre-ltadd 10348 ax-pre-mulgt0 10349

This theorem depends on definitions: df-bi 199 df-an 387 df-or 837 df-3or 1072 df-3an 1073 df-tru 1605 df-ex 1824 df-nf 1828 df-sb 2012 df-mo 2550 df-eu 2586 df-clab 2763 df-cleq 2769 df-clel 2773 df-nfc 2920 df-ne 2969 df-nel 3075 df-ral 3094 df-rex 3095 df-reu 3096 df-rab 3098 df-v 3399 df-sbc 3652 df-csb 3751 df-dif 3794 df-un 3796 df-in 3798 df-ss 3805 df-pss 3807 df-nul 4141 df-if 4307 df-pw 4380 df-sn 4398 df-pr 4400 df-tp 4402 df-op 4404 df-uni 4672 df-iun 4755 df-br 4887 df-opab 4949 df-mpt 4966 df-tr 4988 df-id 5261 df-eprel 5266 df-po 5274 df-so 5275 df-fr 5314 df-we 5316 df-xp 5361 df-rel 5362 df-cnv 5363 df-co 5364 df-dm 5365 df-rn 5366 df-res 5367 df-ima 5368 df-pred 5933 df-ord 5979 df-on 5980 df-lim 5981 df-suc 5982 df-iota 6099 df-fun 6137 df-fn 6138 df-f 6139 df-f1 6140 df-fo 6141 df-f1o 6142 df-fv 6143 df-riota 6883 df-ov 6925 df-oprab 6926 df-mpt2 6927 df-of 7174 df-om 7344 df-1st 7445 df-2nd 7446 df-wrecs 7689 df-recs 7751 df-rdg 7789 df-er 8026 df-map 8142 df-en 8242 df-dom 8243 df-sdom 8244 df-pnf 10413 df-mnf 10414 df-xr 10415 df-ltxr 10416 df-le 10417 df-sub 10608 df-neg 10609 df-nn 11375 df-n0 11643 df-z 11729 df-uz 11993 df-fz 12644 df-fzo 12785

This theorem is referenced by: poimirlem8 34027

W3C validator