poimirlem7 - Mathbox for Brendan Leahy

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

Theorem poimirlem7 38546

Description: Lemma for poimir 38572, similar to poimirlem6 38545, but for vertices after the opposite vertex. (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)))
poimirlem7.3	⊢ (𝜑 → 𝑀 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))

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

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

**Proof of Theorem poimirlem7**
Step	Hyp	Ref	Expression
1		poimirlem9.1	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ 𝑆)
2		elrabi 3640	. . . . . . . . 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 2878	. . . . . . . 8 ⊢ (𝑇 ∈ 𝑆 → 𝑇 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
5	1, 4	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
6		xp1st 8033	. . . . . . 7 ⊢ (𝑇 ∈ ((((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
7	5, 6	syl 18	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
8		xp2nd 8034	. . . . . 6 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
9	7, 8	syl 18	. . . . 5 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
10		fvex 6898	. . . . . 6 ⊢ (2^nd ‘(1^st ‘𝑇)) ∈ V
11		f1oeq1 6812	. . . . . 6 ⊢ (𝑓 = (2^nd ‘(1^st ‘𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
12	10, 11	elab 3632	. . . . 5 ⊢ ((2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
13	9, 12	sylib 221	. . . 4 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
14		f1of 6824	. . . 4 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)⟶(1...𝑁))
15	13, 14	syl 18	. . 3 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)⟶(1...𝑁))
16		poimirlem9.2	. . . . . . . . 9 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ (1...(𝑁 − 1)))
17		elfznn 13687	. . . . . . . . 9 ⊢ ((2^nd ‘𝑇) ∈ (1...(𝑁 − 1)) → (2^nd ‘𝑇) ∈ ℕ)
18	16, 17	syl 18	. . . . . . . 8 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℕ)
19	18	peano2nnd 12352	. . . . . . 7 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ∈ ℕ)
20	19	peano2nnd 12352	. . . . . 6 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) + 1) ∈ ℕ)
21		nnuz 13004	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
22	20, 21	eleqtrdi 2870	. . . . 5 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) + 1) ∈ (ℤ_≥‘1))
23		fzss1 13697	. . . . 5 ⊢ ((((2^nd ‘𝑇) + 1) + 1) ∈ (ℤ_≥‘1) → ((((2^nd ‘𝑇) + 1) + 1)...𝑁) ⊆ (1...𝑁))
24	22, 23	syl 18	. . . 4 ⊢ (𝜑 → ((((2^nd ‘𝑇) + 1) + 1)...𝑁) ⊆ (1...𝑁))
25		poimirlem7.3	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
26	24, 25	sseldd 3909	. . 3 ⊢ (𝜑 → 𝑀 ∈ (1...𝑁))
27	15, 26	ffvelcdmd 7085	. 2 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁))
28		xp1st 8033	. . . . . . . . . . . . 13 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)))
29	7, 28	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)))
30		elmapfn 8887	. . . . . . . . . . . 12 ⊢ ((1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)) → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
31	29, 30	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
32	31	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (1^st ‘(1^st ‘𝑇)) Fn (1...𝑁))
33		1ex 11303	. . . . . . . . . . . . . . 15 ⊢ 1 ∈ V
34		fnconstg 6770	. . . . . . . . . . . . . . 15 ⊢ (1 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))))
35	33, 34	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1)))
36		c0ex 11300	. . . . . . . . . . . . . . 15 ⊢ 0 ∈ V
37		fnconstg 6770	. . . . . . . . . . . . . . 15 ⊢ (0 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
38	36, 37	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))
39	35, 38	pm3.2i 476	. . . . . . . . . . . . 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 ‘𝑇)) “ (𝑀...𝑁)))
40		dff1o3 6831	. . . . . . . . . . . . . . . . 17 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁) ∧ Fun ^◡(2^nd ‘(1^st ‘𝑇))))
41	40	simprbi 503	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → Fun ^◡(2^nd ‘(1^st ‘𝑇)))
42	13, 41	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → Fun ^◡(2^nd ‘(1^st ‘𝑇)))
43		imain 6625	. . . . . . . . . . . . . . 15 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
44	42, 43	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
45	25	elfzelzd 13657	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ ℤ)
46	45	zred 12803	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑀 ∈ ℝ)
47	46	ltm1d 12249	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑀 − 1) < 𝑀)
48		fzdisj 13685	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑀 − 1) < 𝑀 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
49	47, 48	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∩ (𝑀...𝑁)) = ∅)
50	49	imaeq2d 6051	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
51		ima0 6074	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ∅) = ∅
52	50, 51	eqtrdi 2811	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ (𝑀...𝑁))) = ∅)
53	44, 52	eqtr3d 2797	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = ∅)
54		fnun 6653	. . . . . . . . . . . . 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 ‘𝑇)) “ (𝑀...𝑁))))
55	39, 53, 54	sylancr 599	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
56	45	zcnd 12804	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ ℂ)
57		npcan1 11741	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ ℂ → ((𝑀 − 1) + 1) = 𝑀)
58	56, 57	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑀 − 1) + 1) = 𝑀)
59		1red 11309	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 1 ∈ ℝ)
60	20	nnred 12350	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) + 1) ∈ ℝ)
61	19	nnred 12350	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ∈ ℝ)
62	19	nnge1d 12386	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 1 ≤ ((2^nd ‘𝑇) + 1))
63	61	ltp1d 12247	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) < (((2^nd ‘𝑇) + 1) + 1))
64	59, 61, 60, 62, 63	lelttrd 11468	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 1 < (((2^nd ‘𝑇) + 1) + 1))
65		elfzle1 13660	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑀 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁) → (((2^nd ‘𝑇) + 1) + 1) ≤ 𝑀)
66	25, 65	syl 18	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) + 1) ≤ 𝑀)
67	59, 60, 46, 64, 66	ltletrd 11470	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 1 < 𝑀)
68	59, 46, 67	ltled 11458	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 1 ≤ 𝑀)
69		elnnz1 12722	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℕ ↔ (𝑀 ∈ ℤ ∧ 1 ≤ 𝑀))
70	45, 68, 69	sylanbrc 595	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ ℕ)
71	70, 21	eleqtrdi 2870	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘1))
72	58, 71	eqeltrd 2860	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘1))
73		peano2zm 12739	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ℤ → (𝑀 − 1) ∈ ℤ)
74	45, 73	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑀 − 1) ∈ ℤ)
75		uzid 12980	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀 − 1) ∈ ℤ → (𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)))
76		peano2uz 13028	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑀 − 1) ∈ (ℤ_≥‘(𝑀 − 1)) → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘(𝑀 − 1)))
77	74, 75, 76	3syl 19	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((𝑀 − 1) + 1) ∈ (ℤ_≥‘(𝑀 − 1)))
78	58, 77	eqeltrrd 2861	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘(𝑀 − 1)))
79		uzss 12988	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ (ℤ_≥‘(𝑀 − 1)) → (ℤ_≥‘𝑀) ⊆ (ℤ_≥‘(𝑀 − 1)))
80	78, 79	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (ℤ_≥‘𝑀) ⊆ (ℤ_≥‘(𝑀 − 1)))
81		elfzuz3 13653	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑀 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁) → 𝑁 ∈ (ℤ_≥‘𝑀))
82	25, 81	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
83	80, 82	sseldd 3909	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘(𝑀 − 1)))
84		fzsplit2 13683	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑀 − 1) + 1) ∈ (ℤ_≥‘1) ∧ 𝑁 ∈ (ℤ_≥‘(𝑀 − 1))) → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
85	72, 83, 84	syl2anc 596	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)))
86	58	oveq1d 7435	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑁) = (𝑀...𝑁))
87	86	uneq2d 4167	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑁)) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
88	85, 87	eqtrd 2795	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑁)))
89	88	imaeq2d 6051	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))))
90		imaundi 6140	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ (𝑀...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
91	89, 90	eqtrdi 2811	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))))
92		f1ofo 6832	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁))
93	13, 92	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁))
94		foima 6801	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–onto→(1...𝑁) → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (1...𝑁))
95	93, 94	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (1...𝑁))
96	91, 95	eqtr3d 2797	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁))) = (1...𝑁))
97	96	fneq2d 6633	. . . . . . . . . . . 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...𝑁)))
98	55, 97	mpbid 235	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
99	98	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})) Fn (1...𝑁))
100		ovexd 7455	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → (1...𝑁) ∈ V)
101		inidm 4123	. . . . . . . . . 10 ⊢ ((1...𝑁) ∩ (1...𝑁)) = (1...𝑁)
102		eqidd 2761	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∧ 𝑛 ∈ (1...𝑁)) → ((1^st ‘(1^st ‘𝑇))‘𝑛) = ((1^st ‘(1^st ‘𝑇))‘𝑛))
103		imaundi 6140	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
104		fzpred 13706	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
105	82, 104	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀...𝑁) = ({𝑀} ∪ ((𝑀 + 1)...𝑁)))
106	105	imaeq2d 6051	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ({𝑀} ∪ ((𝑀 + 1)...𝑁))))
107		f1ofn 6825	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁))
108	13, 107	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁))
109		fnsnfv 6964	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ 𝑀 ∈ (1...𝑁)) → {((2^nd ‘(1^st ‘𝑇))‘𝑀)} = ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
110	108, 26, 109	syl2anc 596	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → {((2^nd ‘(1^st ‘𝑇))‘𝑀)} = ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
111	110	uneq1d 4166	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
112	103, 106, 111	3eqtr4a 2821	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) = ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
113	112	xpeq1d 5679	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}))
114		xpundir 5720	. . . . . . . . . . . . . . . 16 ⊢ (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
115	113, 114	eqtrdi 2811	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}) = (({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))
116	115	uneq2d 4167	. . . . . . . . . . . . . 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}))))
117		un12 4171	. . . . . . . . . . . . . 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})))
118	116, 117	eqtrdi 2811	. . . . . . . . . . . . 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}))))
119	118	fveq1d 6887	. . . . . . . . . . . 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})))‘𝑛))
120	119	ad2antrr 739	. . . . . . . . . . 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})))‘𝑛))
121		fnconstg 6770	. . . . . . . . . . . . . . . . 17 ⊢ (0 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
122	36, 121	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}) Fn ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))
123	35, 122	pm3.2i 476	. . . . . . . . . . . . . . 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)...𝑁)))
124		imain 6625	. . . . . . . . . . . . . . . . 17 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
125	42, 124	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
126	74	zred 12803	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 − 1) ∈ ℝ)
127		peano2re 11483	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
128	46, 127	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 + 1) ∈ ℝ)
129	46	ltp1d 12247	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑀 < (𝑀 + 1))
130	126, 46, 128, 47, 129	lttrd 11471	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑀 − 1) < (𝑀 + 1))
131		fzdisj 13685	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑀 − 1) < (𝑀 + 1) → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
132	130, 131	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁)) = ∅)
133	132	imaeq2d 6051	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
134	133, 51	eqtrdi 2811	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∩ ((𝑀 + 1)...𝑁))) = ∅)
135	125, 134	eqtr3d 2797	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
136		fnun 6653	. . . . . . . . . . . . . . 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)...𝑁))))
137	123, 135, 136	sylancr 599	. . . . . . . . . . . . . 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)...𝑁))))
138		imaundi 6140	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
139		imadif 6624	. . . . . . . . . . . . . . . . . 18 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) ∖ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})))
140	42, 139	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑁) ∖ {𝑀})) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) ∖ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})))
141		fzsplit 13684	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑀 ∈ (1...𝑁) → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
142	26, 141	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1...𝑁) = ((1...𝑀) ∪ ((𝑀 + 1)...𝑁)))
143	142	difeq1d 4062	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((1...𝑁) ∖ {𝑀}) = (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}))
144		difundir 4236	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀}))
145		fzsplit2 13683	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝑀 − 1) + 1) ∈ (ℤ_≥‘1) ∧ 𝑀 ∈ (ℤ_≥‘(𝑀 − 1))) → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
146	72, 78, 145	syl2anc 596	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)))
147	58	oveq1d 7435	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑀) = (𝑀...𝑀))
148		fzsn 13700	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀})
149	45, 148	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (𝑀...𝑀) = {𝑀})
150	147, 149	eqtrd 2795	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (((𝑀 − 1) + 1)...𝑀) = {𝑀})
151	150	uneq2d 4167	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (((𝑀 − 1) + 1)...𝑀)) = ((1...(𝑀 − 1)) ∪ {𝑀}))
152	146, 151	eqtrd 2795	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ {𝑀}))
153	152	difeq1d 4062	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑀}) = (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}))
154		difun2 4436	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∖ {𝑀})
155	126, 46	ltnled 11457	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → ((𝑀 − 1) < 𝑀 ↔ ¬ 𝑀 ≤ (𝑀 − 1)))
156	47, 155	mpbid 235	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ¬ 𝑀 ≤ (𝑀 − 1))
157		elfzle2 13661	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑀 ∈ (1...(𝑀 − 1)) → 𝑀 ≤ (𝑀 − 1))
158	156, 157	nsyl 141	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ¬ 𝑀 ∈ (1...(𝑀 − 1)))
159		difsn 4760	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (¬ 𝑀 ∈ (1...(𝑀 − 1)) → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
160	158, 159	syl 18	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((1...(𝑀 − 1)) ∖ {𝑀}) = (1...(𝑀 − 1)))
161	154, 160	eqtrid 2807	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((1...(𝑀 − 1)) ∪ {𝑀}) ∖ {𝑀}) = (1...(𝑀 − 1)))
162	153, 161	eqtrd 2795	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑀}) = (1...(𝑀 − 1)))
163	46, 128	ltnled 11457	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (𝑀 < (𝑀 + 1) ↔ ¬ (𝑀 + 1) ≤ 𝑀))
164	129, 163	mpbid 235	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ¬ (𝑀 + 1) ≤ 𝑀)
165		elfzle1 13660	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑀 ∈ ((𝑀 + 1)...𝑁) → (𝑀 + 1) ≤ 𝑀)
166	164, 165	nsyl 141	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ¬ 𝑀 ∈ ((𝑀 + 1)...𝑁))
167		difsn 4760	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (¬ 𝑀 ∈ ((𝑀 + 1)...𝑁) → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
168	166, 167	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((𝑀 + 1)...𝑁) ∖ {𝑀}) = ((𝑀 + 1)...𝑁))
169	162, 168	uneq12d 4168	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((1...𝑀) ∖ {𝑀}) ∪ (((𝑀 + 1)...𝑁) ∖ {𝑀})) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
170	144, 169	eqtrid 2807	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((1...𝑀) ∪ ((𝑀 + 1)...𝑁)) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
171	143, 170	eqtrd 2795	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((1...𝑁) ∖ {𝑀}) = ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁)))
172	171	imaeq2d 6051	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑁) ∖ {𝑀})) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))))
173	110	eqcomd 2766	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}) = {((2^nd ‘(1^st ‘𝑇))‘𝑀)})
174	95, 173	difeq12d 4064	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) ∖ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
175	140, 172, 174	3eqtr3d 2803	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
176	138, 175	eqtr3id 2809	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
177	176	fneq2d 6633	. . . . . . . . . . . . . 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 ‘𝑇))‘𝑀)})))
178	137, 177	mpbid 235	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
179		eldifsn 4747	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) ↔ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
180	179	biimpri 231	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
181	180	ancoms 464	. . . . . . . . . . . . 13 ⊢ ((𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
182		disjdif 4425	. . . . . . . . . . . . . 14 ⊢ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} ∩ ((1...𝑁) ∖ {((2^nd ‘(1^st ‘𝑇))‘𝑀)})) = ∅
183		fnconstg 6770	. . . . . . . . . . . . . . . 16 ⊢ (0 ∈ V → ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)})
184	36, 183	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {0}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)}
185		fvun2 6977	. . . . . . . . . . . . . . 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}))‘𝑛))
186	184, 185	mp3an1 1477	. . . . . . . . . . . . . 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}))‘𝑛))
187	182, 186	mpanr1 716	. . . . . . . . . . . . 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}))‘𝑛))
188	178, 181, 187	syl2an 608	. . . . . . . . . . . 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}))‘𝑛))
189	188	anassrs 473	. . . . . . . . . . 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}))‘𝑛))
190	120, 189	eqtrd 2795	. . . . . . . . . 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}))‘𝑛))
191	32, 99, 100, 100, 101, 102, 190	ofval 7704	. . . . . . . . 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}))‘𝑛)))
192		fnconstg 6770	. . . . . . . . . . . . . . 15 ⊢ (1 ∈ V → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
193	33, 192	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) Fn ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀))
194	193, 122	pm3.2i 476	. . . . . . . . . . . . 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)...𝑁)))
195		imain 6625	. . . . . . . . . . . . . . 15 ⊢ (Fun ^◡(2^nd ‘(1^st ‘𝑇)) → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
196	42, 195	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
197		fzdisj 13685	. . . . . . . . . . . . . . . . 17 ⊢ (𝑀 < (𝑀 + 1) → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
198	129, 197	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1...𝑀) ∩ ((𝑀 + 1)...𝑁)) = ∅)
199	198	imaeq2d 6051	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ((2^nd ‘(1^st ‘𝑇)) “ ∅))
200	199, 51	eqtrdi 2811	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∩ ((𝑀 + 1)...𝑁))) = ∅)
201	196, 200	eqtr3d 2797	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∩ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = ∅)
202		fnun 6653	. . . . . . . . . . . . 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)...𝑁))))
203	194, 201, 202	sylancr 599	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
204	142	imaeq2d 6051	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))))
205		imaundi 6140	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...𝑀) ∪ ((𝑀 + 1)...𝑁))) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
206	204, 205	eqtrdi 2811	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑁)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))))
207	206, 95	eqtr3d 2797	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) ∪ ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁))) = (1...𝑁))
208	207	fneq2d 6633	. . . . . . . . . . . 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...𝑁)))
209	203, 208	mpbid 235	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
210	209	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})) Fn (1...𝑁))
211		imaundi 6140	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀}))
212	152	imaeq2d 6051	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) = ((2^nd ‘(1^st ‘𝑇)) “ ((1...(𝑀 − 1)) ∪ {𝑀})))
213	110	uneq2d 4167	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ ((2^nd ‘(1^st ‘𝑇)) “ {𝑀})))
214	211, 212, 213	3eqtr4a 2821	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}))
215	214	xpeq1d 5679	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) × {1}))
216		xpundir 5720	. . . . . . . . . . . . . . . 16 ⊢ ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) ∪ {((2^nd ‘(1^st ‘𝑇))‘𝑀)}) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}))
217	215, 216	eqtrdi 2811	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1})))
218	217	uneq1d 4166	. . . . . . . . . . . . . 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})))
219		un23 4172	. . . . . . . . . . . . . . 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}))
220	219	equncomi 4159	. . . . . . . . . . . . . 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})))
221	218, 220	eqtrdi 2811	. . . . . . . . . . . . 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}))))
222	221	fveq1d 6887	. . . . . . . . . . . 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})))‘𝑛))
223	222	ad2antrr 739	. . . . . . . . . . 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})))‘𝑛))
224		fnconstg 6770	. . . . . . . . . . . . . . . 16 ⊢ (1 ∈ V → ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)})
225	33, 224	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ ({((2^nd ‘(1^st ‘𝑇))‘𝑀)} × {1}) Fn {((2^nd ‘(1^st ‘𝑇))‘𝑀)}
226		fvun2 6977	. . . . . . . . . . . . . . 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}))‘𝑛))
227	225, 226	mp3an1 1477	. . . . . . . . . . . . . 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}))‘𝑛))
228	182, 227	mpanr1 716	. . . . . . . . . . . . 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}))‘𝑛))
229	178, 181, 228	syl2an 608	. . . . . . . . . . . 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}))‘𝑛))
230	229	anassrs 473	. . . . . . . . . . 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}))‘𝑛))
231	223, 230	eqtrd 2795	. . . . . . . . . 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}))‘𝑛))
232	32, 210, 100, 100, 101, 102, 231	ofval 7704	. . . . . . . . 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}))‘𝑛)))
233	191, 232	eqtr4d 2798	. . . . . . . 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})))‘𝑛))
234	233	an32s 665	. . . . . . 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})))‘𝑛))
235	234	anasss 472	. . . . . 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})))‘𝑛))
236		fveq2 6885	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (2^nd ‘𝑡) = (2^nd ‘𝑇))
237	236	breq2d 5114	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → (𝑦 < (2^nd ‘𝑡) ↔ 𝑦 < (2^nd ‘𝑇)))
238	237	ifbid 4505	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑇 → if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)))
239	238	csbeq1d 3850	. . . . . . . . . . . . . . 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}))))
240		2fveq3 6890	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → (1^st ‘(1^st ‘𝑡)) = (1^st ‘(1^st ‘𝑇)))
241		2fveq3 6890	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑇 → (2^nd ‘(1^st ‘𝑡)) = (2^nd ‘(1^st ‘𝑇)))
242	241	imaeq1d 6050	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)))
243	242	xpeq1d 5679	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}))
244	241	imaeq1d 6050	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)))
245	244	xpeq1d 5679	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
246	243, 245	uneq12d 4168	. . . . . . . . . . . . . . . . 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})))
247	240, 246	oveq12d 7438	. . . . . . . . . . . . . . . 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}))))
248	247	csbeq2dv 3853	. . . . . . . . . . . . . . 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}))))
249	239, 248	eqtrd 2795	. . . . . . . . . . . . . 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}))))
250	249	mpteq2dv 5198	. . . . . . . . . . . . 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})))))
251	250	eqeq2d 2771	. . . . . . . . . . . 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}))))))
252	251, 3	elrab2 3648	. . . . . . . . . . 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}))))))
253	252	simprbi 503	. . . . . . . . . 10 ⊢ (𝑇 ∈ 𝑆 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
254	1, 253	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
255		breq1 5105	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑀 − 2) → (𝑦 < (2^nd ‘𝑇) ↔ (𝑀 − 2) < (2^nd ‘𝑇)))
256	255	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → (𝑦 < (2^nd ‘𝑇) ↔ (𝑀 − 2) < (2^nd ‘𝑇)))
257		oveq1 7427	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑀 − 2) → (𝑦 + 1) = ((𝑀 − 2) + 1))
258		sub1m1 12598	. . . . . . . . . . . . . . . . 17 ⊢ (𝑀 ∈ ℂ → ((𝑀 − 1) − 1) = (𝑀 − 2))
259	56, 258	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑀 − 1) − 1) = (𝑀 − 2))
260	259	oveq1d 7435	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝑀 − 1) − 1) + 1) = ((𝑀 − 2) + 1))
261	74	zcnd 12804	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑀 − 1) ∈ ℂ)
262		npcan1 11741	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 − 1) ∈ ℂ → (((𝑀 − 1) − 1) + 1) = (𝑀 − 1))
263	261, 262	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝑀 − 1) − 1) + 1) = (𝑀 − 1))
264	260, 263	eqtr3d 2797	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑀 − 2) + 1) = (𝑀 − 1))
265	257, 264	sylan9eqr 2817	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → (𝑦 + 1) = (𝑀 − 1))
266	256, 265	ifbieq2d 4508	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = if((𝑀 − 2) < (2^nd ‘𝑇), 𝑦, (𝑀 − 1)))
267	18	nncnd 12351	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℂ)
268		add1p1 12597	. . . . . . . . . . . . . . . . 17 ⊢ ((2^nd ‘𝑇) ∈ ℂ → (((2^nd ‘𝑇) + 1) + 1) = ((2^nd ‘𝑇) + 2))
269	267, 268	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) + 1) = ((2^nd ‘𝑇) + 2))
270	269, 66	eqbrtrrd 5128	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘𝑇) + 2) ≤ 𝑀)
271	18	nnred 12350	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℝ)
272		2re 12417	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ ℝ
273		leaddsub 11792	. . . . . . . . . . . . . . . . . 18 ⊢ (((2^nd ‘𝑇) ∈ ℝ ∧ 2 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2^nd ‘𝑇) + 2) ≤ 𝑀 ↔ (2^nd ‘𝑇) ≤ (𝑀 − 2)))
274	272, 273	mp3an2 1478	. . . . . . . . . . . . . . . . 17 ⊢ (((2^nd ‘𝑇) ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2^nd ‘𝑇) + 2) ≤ 𝑀 ↔ (2^nd ‘𝑇) ≤ (𝑀 − 2)))
275	271, 46, 274	syl2anc 596	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘𝑇) + 2) ≤ 𝑀 ↔ (2^nd ‘𝑇) ≤ (𝑀 − 2)))
276	59, 46	posdifd 11903	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (1 < 𝑀 ↔ 0 < (𝑀 − 1)))
277	67, 276	mpbid 235	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 0 < (𝑀 − 1))
278		elnnz 12703	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑀 − 1) ∈ ℕ ↔ ((𝑀 − 1) ∈ ℤ ∧ 0 < (𝑀 − 1)))
279	74, 277, 278	sylanbrc 595	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑀 − 1) ∈ ℕ)
280		nnm1nn0 12647	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑀 − 1) ∈ ℕ → ((𝑀 − 1) − 1) ∈ ℕ₀)
281	279, 280	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑀 − 1) − 1) ∈ ℕ₀)
282	259, 281	eqeltrrd 2861	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑀 − 2) ∈ ℕ₀)
283	282	nn0red 12668	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑀 − 2) ∈ ℝ)
284	271, 283	lenltd 11456	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘𝑇) ≤ (𝑀 − 2) ↔ ¬ (𝑀 − 2) < (2^nd ‘𝑇)))
285	275, 284	bitrd 282	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘𝑇) + 2) ≤ 𝑀 ↔ ¬ (𝑀 − 2) < (2^nd ‘𝑇)))
286	270, 285	mpbid 235	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ (𝑀 − 2) < (2^nd ‘𝑇))
287	286	iffalsed 4492	. . . . . . . . . . . . 13 ⊢ (𝜑 → if((𝑀 − 2) < (2^nd ‘𝑇), 𝑦, (𝑀 − 1)) = (𝑀 − 1))
288	287	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → if((𝑀 − 2) < (2^nd ‘𝑇), 𝑦, (𝑀 − 1)) = (𝑀 − 1))
289	266, 288	eqtrd 2795	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = (𝑀 − 1))
290	289	csbeq1d 3850	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → ⦋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}))))
291		oveq2 7428	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = (𝑀 − 1) → (1...𝑗) = (1...(𝑀 − 1)))
292	291	imaeq2d 6051	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = (𝑀 − 1) → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))))
293	292	xpeq1d 5679	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = (𝑀 − 1) → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}))
294	293	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}))
295		oveq1 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑗 = (𝑀 − 1) → (𝑗 + 1) = ((𝑀 − 1) + 1))
296	295, 58	sylan9eqr 2817	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (𝑗 + 1) = 𝑀)
297	296	oveq1d 7435	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((𝑗 + 1)...𝑁) = (𝑀...𝑁))
298	297	imaeq2d 6051	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
299	298	xpeq1d 5679	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 = (𝑀 − 1)) → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))
300	294, 299	uneq12d 4168	. . . . . . . . . . . . 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})))
301	300	oveq2d 7436	. . . . . . . . . . . 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}))))
302	74, 301	csbied 3882	. . . . . . . . . . 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}))))
303	302	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → ⦋(𝑀 − 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}))))
304	290, 303	eqtrd 2795	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 2)) → ⦋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}))))
305		poimir.0	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
306		nnm1nn0 12647	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ₀)
307	305, 306	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 − 1) ∈ ℕ₀)
308	305	nnred 12350	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℝ)
309	46	lem1d 12250	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑀 − 1) ≤ 𝑀)
310		elfzle2 13661	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁) → 𝑀 ≤ 𝑁)
311	25, 310	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ≤ 𝑁)
312	126, 46, 308, 309, 311	letrd 11467	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑀 − 1) ≤ 𝑁)
313	126, 308, 59, 312	lesub1dd 11932	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑀 − 1) − 1) ≤ (𝑁 − 1))
314	259, 313	eqbrtrrd 5128	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 − 2) ≤ (𝑁 − 1))
315		elfz2nn0 13752	. . . . . . . . . 10 ⊢ ((𝑀 − 2) ∈ (0...(𝑁 − 1)) ↔ ((𝑀 − 2) ∈ ℕ₀ ∧ (𝑁 − 1) ∈ ℕ₀ ∧ (𝑀 − 2) ≤ (𝑁 − 1)))
316	282, 307, 314, 315	syl3anbrc 1362	. . . . . . . . 9 ⊢ (𝜑 → (𝑀 − 2) ∈ (0...(𝑁 − 1)))
317		ovexd 7455	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))) ∈ V)
318	254, 304, 316, 317	fvmptd 7001	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘(𝑀 − 2)) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))))
319	318	fveq1d 6887	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 2))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
320	319	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 2))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})))‘𝑛))
321		breq1 5105	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑀 − 1) → (𝑦 < (2^nd ‘𝑇) ↔ (𝑀 − 1) < (2^nd ‘𝑇)))
322	321	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → (𝑦 < (2^nd ‘𝑇) ↔ (𝑀 − 1) < (2^nd ‘𝑇)))
323		oveq1 7427	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑀 − 1) → (𝑦 + 1) = ((𝑀 − 1) + 1))
324	323, 58	sylan9eqr 2817	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → (𝑦 + 1) = 𝑀)
325	322, 324	ifbieq2d 4508	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = if((𝑀 − 1) < (2^nd ‘𝑇), 𝑦, 𝑀))
326	61	lep1d 12248	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ≤ (((2^nd ‘𝑇) + 1) + 1))
327	61, 60, 46, 326, 66	letrd 11467	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ≤ 𝑀)
328		1re 11308	. . . . . . . . . . . . . . . . . 18 ⊢ 1 ∈ ℝ
329		leaddsub 11792	. . . . . . . . . . . . . . . . . 18 ⊢ (((2^nd ‘𝑇) ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2^nd ‘𝑇) + 1) ≤ 𝑀 ↔ (2^nd ‘𝑇) ≤ (𝑀 − 1)))
330	328, 329	mp3an2 1478	. . . . . . . . . . . . . . . . 17 ⊢ (((2^nd ‘𝑇) ∈ ℝ ∧ 𝑀 ∈ ℝ) → (((2^nd ‘𝑇) + 1) ≤ 𝑀 ↔ (2^nd ‘𝑇) ≤ (𝑀 − 1)))
331	271, 46, 330	syl2anc 596	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) ≤ 𝑀 ↔ (2^nd ‘𝑇) ≤ (𝑀 − 1)))
332	271, 126	lenltd 11456	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘𝑇) ≤ (𝑀 − 1) ↔ ¬ (𝑀 − 1) < (2^nd ‘𝑇)))
333	331, 332	bitrd 282	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) ≤ 𝑀 ↔ ¬ (𝑀 − 1) < (2^nd ‘𝑇)))
334	327, 333	mpbid 235	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ (𝑀 − 1) < (2^nd ‘𝑇))
335	334	iffalsed 4492	. . . . . . . . . . . . 13 ⊢ (𝜑 → if((𝑀 − 1) < (2^nd ‘𝑇), 𝑦, 𝑀) = 𝑀)
336	335	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → if((𝑀 − 1) < (2^nd ‘𝑇), 𝑦, 𝑀) = 𝑀)
337	325, 336	eqtrd 2795	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 1)) → if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) = 𝑀)
338	337	csbeq1d 3850	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 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}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
339		oveq2 7428	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑀 → (1...𝑗) = (1...𝑀))
340	339	imaeq2d 6051	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑀 → ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
341	340	xpeq1d 5679	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑀 → (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}))
342		oveq1 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑗 = 𝑀 → (𝑗 + 1) = (𝑀 + 1))
343	342	oveq1d 7435	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 = 𝑀 → ((𝑗 + 1)...𝑁) = ((𝑀 + 1)...𝑁))
344	343	imaeq2d 6051	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 = 𝑀 → ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)))
345	344	xpeq1d 5679	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = 𝑀 → (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))
346	341, 345	uneq12d 4168	. . . . . . . . . . . . . 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})))
347	346	oveq2d 7436	. . . . . . . . . . . . 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}))))
348	347	adantl 487	. . . . . . . . . . . 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}))))
349	25, 348	csbied 3882	. . . . . . . . . . 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}))))
350	349	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = (𝑀 − 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}))))
351	338, 350	eqtrd 2795	. . . . . . . . 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}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
352	279	nnnn0d 12667	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 − 1) ∈ ℕ₀)
353	46, 308, 59, 311	lesub1dd 11932	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 − 1) ≤ (𝑁 − 1))
354		elfz2nn0 13752	. . . . . . . . . 10 ⊢ ((𝑀 − 1) ∈ (0...(𝑁 − 1)) ↔ ((𝑀 − 1) ∈ ℕ₀ ∧ (𝑁 − 1) ∈ ℕ₀ ∧ (𝑀 − 1) ≤ (𝑁 − 1)))
355	352, 307, 353, 354	syl3anbrc 1362	. . . . . . . . 9 ⊢ (𝜑 → (𝑀 − 1) ∈ (0...(𝑁 − 1)))
356		ovexd 7455	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))) ∈ V)
357	254, 351, 355, 356	fvmptd 7001	. . . . . . . 8 ⊢ (𝜑 → (𝐹‘(𝑀 − 1)) = ((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))))
358	357	fveq1d 6887	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
359	358	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 1))‘𝑛) = (((1^st ‘(1^st ‘𝑇)) ∘_f + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0})))‘𝑛))
360	235, 320, 359	3eqtr4d 2805	. . . . 5 ⊢ ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀))) → ((𝐹‘(𝑀 − 2))‘𝑛) = ((𝐹‘(𝑀 − 1))‘𝑛))
361	360	expr 462	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 ≠ ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) = ((𝐹‘(𝑀 − 1))‘𝑛)))
362	361	necon1d 2977	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛) → 𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
363		elmapi 8869	. . . . . . . . . . 11 ⊢ ((1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_m (1...𝑁)) → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
364	29, 363	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
365	364, 27	ffvelcdmd 7085	. . . . . . . . 9 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ (0..^𝐾))
366		elfzonn0 13842	. . . . . . . . 9 ⊢ (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ (0..^𝐾) → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℕ₀)
367	365, 366	syl 18	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℕ₀)
368	367	nn0red 12668	. . . . . . 7 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℝ)
369	368	ltp1d 12247	. . . . . . 7 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) < (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
370	368, 369	ltned 11446	. . . . . 6 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
371	318	fveq1d 6887	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 2))‘((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 ‘𝑇))‘𝑀)))
372		ovexd 7455	. . . . . . . . 9 ⊢ (𝜑 → (1...𝑁) ∈ V)
373		eqidd 2761	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
374		fzss1 13697	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ (ℤ_≥‘1) → (𝑀...𝑁) ⊆ (1...𝑁))
375	71, 374	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑀...𝑁) ⊆ (1...𝑁))
376		eluzfz1 13664	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑀 ∈ (𝑀...𝑁))
377	82, 376	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (𝑀...𝑁))
378		fnfvima 7239	. . . . . . . . . . . . 13 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ (𝑀...𝑁) ⊆ (1...𝑁) ∧ 𝑀 ∈ (𝑀...𝑁)) → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
379	108, 375, 377, 378	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)))
380		fvun2 6977	. . . . . . . . . . . . 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 ‘𝑇))‘𝑀)))
381	35, 38, 380	mp3an12 1480	. . . . . . . . . . . 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 ‘𝑇))‘𝑀)))
382	53, 379, 381	syl2anc 596	. . . . . . . . . . 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 ‘𝑇))‘𝑀)))
383	36	fvconst2 7210	. . . . . . . . . . . 12 ⊢ (((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) → ((((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
384	379, 383	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
385	382, 384	eqtrd 2795	. . . . . . . . . 10 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
386	385	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...(𝑀 − 1))) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ (𝑀...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 0)
387	31, 98, 372, 372, 101, 373, 386	ofval 7704	. . . . . . . 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))
388	27, 387	mpdan 700	. . . . . . 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))
389	367	nn0cnd 12669	. . . . . . . 8 ⊢ (𝜑 → ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ∈ ℂ)
390	389	addridd 11510	. . . . . . 7 ⊢ (𝜑 → (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 0) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
391	371, 388, 390	3eqtrd 2799	. . . . . 6 ⊢ (𝜑 → ((𝐹‘(𝑀 − 2))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = ((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
392	357	fveq1d 6887	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((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 ‘𝑇))‘𝑀)))
393		fzss2 13698	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → (1...𝑀) ⊆ (1...𝑁))
394	82, 393	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1...𝑀) ⊆ (1...𝑁))
395		elfz1end 13688	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℕ ↔ 𝑀 ∈ (1...𝑀))
396	70, 395	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (1...𝑀))
397		fnfvima 7239	. . . . . . . . . . . . 13 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ (1...𝑀) ⊆ (1...𝑁) ∧ 𝑀 ∈ (1...𝑀)) → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
398	108, 394, 396, 397	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)))
399		fvun1 6976	. . . . . . . . . . . . 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 ‘𝑇))‘𝑀)))
400	193, 122, 399	mp3an12 1480	. . . . . . . . . . . 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 ‘𝑇))‘𝑀)))
401	201, 398, 400	syl2anc 596	. . . . . . . . . . 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 ‘𝑇))‘𝑀)))
402	33	fvconst2 7210	. . . . . . . . . . . 12 ⊢ (((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
403	398, 402	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1})‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
404	401, 403	eqtrd 2795	. . . . . . . . . 10 ⊢ (𝜑 → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
405	404	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((2^nd ‘(1^st ‘𝑇))‘𝑀) ∈ (1...𝑁)) → (((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑀)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑀 + 1)...𝑁)) × {0}))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = 1)
406	31, 209, 372, 372, 101, 373, 405	ofval 7704	. . . . . . . 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))
407	27, 406	mpdan 700	. . . . . . 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))
408	392, 407	eqtrd 2795	. . . . . 6 ⊢ (𝜑 → ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) = (((1^st ‘(1^st ‘𝑇))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) + 1))
409	370, 391, 408	3netr4d 3032	. . . . 5 ⊢ (𝜑 → ((𝐹‘(𝑀 − 2))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
410		fveq2 6885	. . . . . 6 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) = ((𝐹‘(𝑀 − 2))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
411		fveq2 6885	. . . . . 6 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 1))‘𝑛) = ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)))
412	410, 411	neeq12d 3016	. . . . 5 ⊢ (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → (((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛) ↔ ((𝐹‘(𝑀 − 2))‘((2^nd ‘(1^st ‘𝑇))‘𝑀)) ≠ ((𝐹‘(𝑀 − 1))‘((2^nd ‘(1^st ‘𝑇))‘𝑀))))
413	409, 412	syl5ibrcom 250	. . . 4 ⊢ (𝜑 → (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛)))
414	413	adantr 486	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀) → ((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛)))
415	362, 414	impbid 215	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛) ↔ 𝑛 = ((2^nd ‘(1^st ‘𝑇))‘𝑀)))
416	27, 415	riota5 7406	1 ⊢ (𝜑 → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑀 − 2))‘𝑛) ≠ ((𝐹‘(𝑀 − 1))‘𝑛)) = ((2^nd ‘(1^st ‘𝑇))‘𝑀))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1569 ∈ wcel 2144 {cab 2738 ≠ wne 2955 {crab 3412 Vcvv 3450 ⦋csb 3846 ⊆ wss 3895 ∖ cdif 4045 ∩ cin 4089 ∪ cun 4149 ∅c0 4278 ifcif 4481 {csn 4583 class class class wbr 5102 ↦ cmpt 5185 × cxp 5648 ^◡ccnv 5649 “ cima 5653 Fun wfun 6532 Fn wfn 6533 ⟶wf 6534 –onto→wfo 6536 –1-1-onto→wf1o 6537 ‘cfv 6538 ℩crio 7376 (class class class)co 7420 ∘_f cof 7691 1^st c1st 7999 2^nd c2nd 8000 ↑_m cmap 8847 ℂcc 11198 ℝcr 11199 0cc0 11200 1c1 11201 + caddc 11203 < clt 11343 ≤ cle 11344 − cmin 11541 ℕcn 12335 2c2 12397 ℕ₀cn0 12606 ℤcz 12693 ℤ_≥cuz 12965 ...cfz 13639 ..^cfzo 13788

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7751 ax-cnex 11256 ax-resscn 11257 ax-1cn 11258 ax-icn 11259 ax-addcl 11260 ax-addrcl 11261 ax-mulcl 11262 ax-mulrcl 11263 ax-mulcom 11264 ax-addass 11265 ax-mulass 11266 ax-distr 11267 ax-i2m1 11268 ax-1ne0 11269 ax-1rid 11270 ax-rnegex 11271 ax-rrecex 11272 ax-cnre 11273 ax-pre-lttri 11274 ax-pre-lttrn 11275 ax-pre-ltadd 11276 ax-pre-mulgt0 11277

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3847 df-ss 3896 df-pss 4014 df-dif 4047 df-in 4091 df-un 4151 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4584 df-pr 4586 df-op 4590 df-uni 4867 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5545 df-eprel 5550 df-po 5558 df-so 5559 df-fr 5603 df-we 5605 df-xp 5656 df-rel 5657 df-cnv 5658 df-co 5659 df-dm 5660 df-rn 5661 df-res 5662 df-ima 5663 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-riota 7377 df-ov 7423 df-oprab 7424 df-mpo 7425 df-of 7693 df-om 7878 df-1st 8001 df-2nd 8002 df-frecs 8299 df-wrecs 8330 df-recs 8379 df-rdg 8418 df-er 8717 df-map 8849 df-en 8974 df-dom 8975 df-sdom 8976 df-pnf 11345 df-mnf 11346 df-xr 11347 df-ltxr 11348 df-le 11349 df-sub 11543 df-neg 11544 df-nn 12336 df-2 12405 df-n0 12607 df-z 12694 df-uz 12966 df-fz 13640 df-fzo 13789

This theorem is used by: poimirlem8 38547

W3C validator