poimirlem8 - Mathbox for Brendan Leahy

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

Theorem poimirlem8 33960

Description: Lemma for poimir 33985, establishing that away from the opposite vertex the walks in poimirlem9 33961 yield the same vertices. (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)))
poimirlem9.3	⊢ (𝜑 → 𝑈 ∈ 𝑆)

**Assertion**
Ref	Expression
poimirlem8	⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑈)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) = ((2^nd ‘(1^st ‘𝑇)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})))

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

Proof of Theorem poimirlem8 Dummy variables 𝑘 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		poimirlem9.3	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ 𝑆)
2		elrabi 3579	. . . . . . . . 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 2923	. . . . . . . 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 7459	. . . . . . 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 7460	. . . . . 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 6445	. . . . . 6 ⊢ (2^nd ‘(1^st ‘𝑈)) ∈ V
11		f1oeq1 6366	. . . . . 6 ⊢ (𝑓 = (2^nd ‘(1^st ‘𝑈)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2^nd ‘(1^st ‘𝑈)):(1...𝑁)–1-1-onto→(1...𝑁)))
12	10, 11	elab 3570	. . . . 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		f1ofn 6378	. . . 4 ⊢ ((2^nd ‘(1^st ‘𝑈)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑈)) Fn (1...𝑁))
15	13, 14	syl 17	. . 3 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑈)) Fn (1...𝑁))
16		difss 3963	. . 3 ⊢ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ⊆ (1...𝑁)
17		fnssres 6236	. . 3 ⊢ (((2^nd ‘(1^st ‘𝑈)) Fn (1...𝑁) ∧ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ⊆ (1...𝑁)) → ((2^nd ‘(1^st ‘𝑈)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) Fn ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
18	15, 16, 17	sylancl 582	. 2 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑈)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) Fn ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
19		poimirlem9.1	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ 𝑆)
20		elrabi 3579	. . . . . . . . 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...𝑁)))
21	20, 3	eleq2s 2923	. . . . . . . 8 ⊢ (𝑇 ∈ 𝑆 → 𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
22	19, 21	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
23		xp1st 7459	. . . . . . 7 ⊢ (𝑇 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
24	22, 23	syl 17	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
25		xp2nd 7460	. . . . . 6 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
26	24, 25	syl 17	. . . . 5 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
27		fvex 6445	. . . . . 6 ⊢ (2^nd ‘(1^st ‘𝑇)) ∈ V
28		f1oeq1 6366	. . . . . 6 ⊢ (𝑓 = (2^nd ‘(1^st ‘𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
29	27, 28	elab 3570	. . . . 5 ⊢ ((2^nd ‘(1^st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
30	26, 29	sylib 210	. . . 4 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
31		f1ofn 6378	. . . 4 ⊢ ((2^nd ‘(1^st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁))
32	30, 31	syl 17	. . 3 ⊢ (𝜑 → (2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁))
33		fnssres 6236	. . 3 ⊢ (((2^nd ‘(1^st ‘𝑇)) Fn (1...𝑁) ∧ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ⊆ (1...𝑁)) → ((2^nd ‘(1^st ‘𝑇)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) Fn ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
34	32, 16, 33	sylancl 582	. 2 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑇)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) Fn ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
35		poimirlem9.2	. . . . . . . . . . . 12 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ (1...(𝑁 − 1)))
36		fzp1elp1 12686	. . . . . . . . . . . 12 ⊢ ((2^nd ‘𝑇) ∈ (1...(𝑁 − 1)) → ((2^nd ‘𝑇) + 1) ∈ (1...((𝑁 − 1) + 1)))
37	35, 36	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ∈ (1...((𝑁 − 1) + 1)))
38		poimir.0	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℕ)
39	38	nncnd 11367	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℂ)
40		npcan1 10778	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℂ → ((𝑁 − 1) + 1) = 𝑁)
41	39, 40	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
42	41	oveq2d 6920	. . . . . . . . . . 11 ⊢ (𝜑 → (1...((𝑁 − 1) + 1)) = (1...𝑁))
43	37, 42	eleqtrd 2907	. . . . . . . . . 10 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ∈ (1...𝑁))
44		fzsplit 12659	. . . . . . . . . 10 ⊢ (((2^nd ‘𝑇) + 1) ∈ (1...𝑁) → (1...𝑁) = ((1...((2^nd ‘𝑇) + 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
45	43, 44	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (1...𝑁) = ((1...((2^nd ‘𝑇) + 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
46	45	difeq1d 3953	. . . . . . . 8 ⊢ (𝜑 → ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = (((1...((2^nd ‘𝑇) + 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
47		difundir 4109	. . . . . . . . 9 ⊢ (((1...((2^nd ‘𝑇) + 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = (((1...((2^nd ‘𝑇) + 1)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ∪ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
48		elfznn 12662	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘𝑇) ∈ (1...(𝑁 − 1)) → (2^nd ‘𝑇) ∈ ℕ)
49	35, 48	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℕ)
50	49	nncnd 11367	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℂ)
51		npcan1 10778	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘𝑇) ∈ ℂ → (((2^nd ‘𝑇) − 1) + 1) = (2^nd ‘𝑇))
52	50, 51	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘𝑇) − 1) + 1) = (2^nd ‘𝑇))
53		nnuz 12004	. . . . . . . . . . . . . . . 16 ⊢ ℕ = (ℤ_≥‘1)
54	49, 53	syl6eleq 2915	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ (ℤ_≥‘1))
55	52, 54	eqeltrd 2905	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((2^nd ‘𝑇) − 1) + 1) ∈ (ℤ_≥‘1))
56	49	nnzd 11808	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℤ)
57		peano2zm 11747	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘𝑇) ∈ ℤ → ((2^nd ‘𝑇) − 1) ∈ ℤ)
58	56, 57	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ∈ ℤ)
59		uzid 11982	. . . . . . . . . . . . . . . . 17 ⊢ (((2^nd ‘𝑇) − 1) ∈ ℤ → ((2^nd ‘𝑇) − 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
60		peano2uz 12022	. . . . . . . . . . . . . . . . 17 ⊢ (((2^nd ‘𝑇) − 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) → (((2^nd ‘𝑇) − 1) + 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
61	58, 59, 60	3syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘𝑇) − 1) + 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
62	52, 61	eqeltrrd 2906	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
63		peano2uz 12022	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘𝑇) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)) → ((2^nd ‘𝑇) + 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
64	62, 63	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1)))
65		fzsplit2 12658	. . . . . . . . . . . . . 14 ⊢ (((((2^nd ‘𝑇) − 1) + 1) ∈ (ℤ_≥‘1) ∧ ((2^nd ‘𝑇) + 1) ∈ (ℤ_≥‘((2^nd ‘𝑇) − 1))) → (1...((2^nd ‘𝑇) + 1)) = ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) − 1) + 1)...((2^nd ‘𝑇) + 1))))
66	55, 64, 65	syl2anc 581	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1...((2^nd ‘𝑇) + 1)) = ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) − 1) + 1)...((2^nd ‘𝑇) + 1))))
67	52	oveq1d 6919	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((((2^nd ‘𝑇) − 1) + 1)...((2^nd ‘𝑇) + 1)) = ((2^nd ‘𝑇)...((2^nd ‘𝑇) + 1)))
68		fzpr 12688	. . . . . . . . . . . . . . . 16 ⊢ ((2^nd ‘𝑇) ∈ ℤ → ((2^nd ‘𝑇)...((2^nd ‘𝑇) + 1)) = {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})
69	56, 68	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘𝑇)...((2^nd ‘𝑇) + 1)) = {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})
70	67, 69	eqtrd 2860	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((((2^nd ‘𝑇) − 1) + 1)...((2^nd ‘𝑇) + 1)) = {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})
71	70	uneq2d 3993	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) − 1) + 1)...((2^nd ‘𝑇) + 1))) = ((1...((2^nd ‘𝑇) − 1)) ∪ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
72	66, 71	eqtrd 2860	. . . . . . . . . . . 12 ⊢ (𝜑 → (1...((2^nd ‘𝑇) + 1)) = ((1...((2^nd ‘𝑇) − 1)) ∪ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
73	72	difeq1d 3953	. . . . . . . . . . 11 ⊢ (𝜑 → ((1...((2^nd ‘𝑇) + 1)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = (((1...((2^nd ‘𝑇) − 1)) ∪ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))
74	49	nnred 11366	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2^nd ‘𝑇) ∈ ℝ)
75	74	ltm1d 11285	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) < (2^nd ‘𝑇))
76	58	zred 11809	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) ∈ ℝ)
77	76, 74	ltnled 10502	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘𝑇) − 1) < (2^nd ‘𝑇) ↔ ¬ (2^nd ‘𝑇) ≤ ((2^nd ‘𝑇) − 1)))
78	75, 77	mpbid 224	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ¬ (2^nd ‘𝑇) ≤ ((2^nd ‘𝑇) − 1))
79		elfzle2 12637	. . . . . . . . . . . . . . 15 ⊢ ((2^nd ‘𝑇) ∈ (1...((2^nd ‘𝑇) − 1)) → (2^nd ‘𝑇) ≤ ((2^nd ‘𝑇) − 1))
80	78, 79	nsyl 138	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ (2^nd ‘𝑇) ∈ (1...((2^nd ‘𝑇) − 1)))
81		difsn 4546	. . . . . . . . . . . . . 14 ⊢ (¬ (2^nd ‘𝑇) ∈ (1...((2^nd ‘𝑇) − 1)) → ((1...((2^nd ‘𝑇) − 1)) ∖ {(2^nd ‘𝑇)}) = (1...((2^nd ‘𝑇) − 1)))
82	80, 81	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((1...((2^nd ‘𝑇) − 1)) ∖ {(2^nd ‘𝑇)}) = (1...((2^nd ‘𝑇) − 1)))
83		peano2re 10527	. . . . . . . . . . . . . . . . . 18 ⊢ ((2^nd ‘𝑇) ∈ ℝ → ((2^nd ‘𝑇) + 1) ∈ ℝ)
84	74, 83	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) ∈ ℝ)
85	74	ltp1d 11283	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2^nd ‘𝑇) < ((2^nd ‘𝑇) + 1))
86	76, 74, 84, 75, 85	lttrd 10516	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘𝑇) − 1) < ((2^nd ‘𝑇) + 1))
87	76, 84	ltnled 10502	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘𝑇) − 1) < ((2^nd ‘𝑇) + 1) ↔ ¬ ((2^nd ‘𝑇) + 1) ≤ ((2^nd ‘𝑇) − 1)))
88	86, 87	mpbid 224	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ¬ ((2^nd ‘𝑇) + 1) ≤ ((2^nd ‘𝑇) − 1))
89		elfzle2 12637	. . . . . . . . . . . . . . 15 ⊢ (((2^nd ‘𝑇) + 1) ∈ (1...((2^nd ‘𝑇) − 1)) → ((2^nd ‘𝑇) + 1) ≤ ((2^nd ‘𝑇) − 1))
90	88, 89	nsyl 138	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ ((2^nd ‘𝑇) + 1) ∈ (1...((2^nd ‘𝑇) − 1)))
91		difsn 4546	. . . . . . . . . . . . . 14 ⊢ (¬ ((2^nd ‘𝑇) + 1) ∈ (1...((2^nd ‘𝑇) − 1)) → ((1...((2^nd ‘𝑇) − 1)) ∖ {((2^nd ‘𝑇) + 1)}) = (1...((2^nd ‘𝑇) − 1)))
92	90, 91	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((1...((2^nd ‘𝑇) − 1)) ∖ {((2^nd ‘𝑇) + 1)}) = (1...((2^nd ‘𝑇) − 1)))
93	82, 92	ineq12d 4041	. . . . . . . . . . . 12 ⊢ (𝜑 → (((1...((2^nd ‘𝑇) − 1)) ∖ {(2^nd ‘𝑇)}) ∩ ((1...((2^nd ‘𝑇) − 1)) ∖ {((2^nd ‘𝑇) + 1)})) = ((1...((2^nd ‘𝑇) − 1)) ∩ (1...((2^nd ‘𝑇) − 1))))
94		difun2 4270	. . . . . . . . . . . . 13 ⊢ (((1...((2^nd ‘𝑇) − 1)) ∪ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = ((1...((2^nd ‘𝑇) − 1)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})
95		df-pr 4399	. . . . . . . . . . . . . 14 ⊢ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)} = ({(2^nd ‘𝑇)} ∪ {((2^nd ‘𝑇) + 1)})
96	95	difeq2i 3951	. . . . . . . . . . . . 13 ⊢ ((1...((2^nd ‘𝑇) − 1)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = ((1...((2^nd ‘𝑇) − 1)) ∖ ({(2^nd ‘𝑇)} ∪ {((2^nd ‘𝑇) + 1)}))
97		difundi 4108	. . . . . . . . . . . . 13 ⊢ ((1...((2^nd ‘𝑇) − 1)) ∖ ({(2^nd ‘𝑇)} ∪ {((2^nd ‘𝑇) + 1)})) = (((1...((2^nd ‘𝑇) − 1)) ∖ {(2^nd ‘𝑇)}) ∩ ((1...((2^nd ‘𝑇) − 1)) ∖ {((2^nd ‘𝑇) + 1)}))
98	94, 96, 97	3eqtrri 2853	. . . . . . . . . . . 12 ⊢ (((1...((2^nd ‘𝑇) − 1)) ∖ {(2^nd ‘𝑇)}) ∩ ((1...((2^nd ‘𝑇) − 1)) ∖ {((2^nd ‘𝑇) + 1)})) = (((1...((2^nd ‘𝑇) − 1)) ∪ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})
99		inidm 4046	. . . . . . . . . . . 12 ⊢ ((1...((2^nd ‘𝑇) − 1)) ∩ (1...((2^nd ‘𝑇) − 1))) = (1...((2^nd ‘𝑇) − 1))
100	93, 98, 99	3eqtr3g 2883	. . . . . . . . . . 11 ⊢ (𝜑 → (((1...((2^nd ‘𝑇) − 1)) ∪ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = (1...((2^nd ‘𝑇) − 1)))
101	73, 100	eqtrd 2860	. . . . . . . . . 10 ⊢ (𝜑 → ((1...((2^nd ‘𝑇) + 1)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = (1...((2^nd ‘𝑇) − 1)))
102		peano2re 10527	. . . . . . . . . . . . . . . . 17 ⊢ (((2^nd ‘𝑇) + 1) ∈ ℝ → (((2^nd ‘𝑇) + 1) + 1) ∈ ℝ)
103	84, 102	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) + 1) ∈ ℝ)
104	84	ltp1d 11283	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2^nd ‘𝑇) + 1) < (((2^nd ‘𝑇) + 1) + 1))
105	74, 84, 103, 85, 104	lttrd 10516	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2^nd ‘𝑇) < (((2^nd ‘𝑇) + 1) + 1))
106	74, 103	ltnled 10502	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2^nd ‘𝑇) < (((2^nd ‘𝑇) + 1) + 1) ↔ ¬ (((2^nd ‘𝑇) + 1) + 1) ≤ (2^nd ‘𝑇)))
107	105, 106	mpbid 224	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ (((2^nd ‘𝑇) + 1) + 1) ≤ (2^nd ‘𝑇))
108		elfzle1 12636	. . . . . . . . . . . . . 14 ⊢ ((2^nd ‘𝑇) ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁) → (((2^nd ‘𝑇) + 1) + 1) ≤ (2^nd ‘𝑇))
109	107, 108	nsyl 138	. . . . . . . . . . . . 13 ⊢ (𝜑 → ¬ (2^nd ‘𝑇) ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
110		difsn 4546	. . . . . . . . . . . . 13 ⊢ (¬ (2^nd ‘𝑇) ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁) → (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇)}) = ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
111	109, 110	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇)}) = ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
112	84, 103	ltnled 10502	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2^nd ‘𝑇) + 1) < (((2^nd ‘𝑇) + 1) + 1) ↔ ¬ (((2^nd ‘𝑇) + 1) + 1) ≤ ((2^nd ‘𝑇) + 1)))
113	104, 112	mpbid 224	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ (((2^nd ‘𝑇) + 1) + 1) ≤ ((2^nd ‘𝑇) + 1))
114		elfzle1 12636	. . . . . . . . . . . . . 14 ⊢ (((2^nd ‘𝑇) + 1) ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁) → (((2^nd ‘𝑇) + 1) + 1) ≤ ((2^nd ‘𝑇) + 1))
115	113, 114	nsyl 138	. . . . . . . . . . . . 13 ⊢ (𝜑 → ¬ ((2^nd ‘𝑇) + 1) ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
116		difsn 4546	. . . . . . . . . . . . 13 ⊢ (¬ ((2^nd ‘𝑇) + 1) ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁) → (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {((2^nd ‘𝑇) + 1)}) = ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
117	115, 116	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {((2^nd ‘𝑇) + 1)}) = ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
118	111, 117	ineq12d 4041	. . . . . . . . . . 11 ⊢ (𝜑 → ((((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇)}) ∩ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {((2^nd ‘𝑇) + 1)})) = (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∩ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
119	95	difeq2i 3951	. . . . . . . . . . . 12 ⊢ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ ({(2^nd ‘𝑇)} ∪ {((2^nd ‘𝑇) + 1)}))
120		difundi 4108	. . . . . . . . . . . 12 ⊢ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ ({(2^nd ‘𝑇)} ∪ {((2^nd ‘𝑇) + 1)})) = ((((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇)}) ∩ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {((2^nd ‘𝑇) + 1)}))
121	119, 120	eqtr2i 2849	. . . . . . . . . . 11 ⊢ ((((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇)}) ∩ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {((2^nd ‘𝑇) + 1)})) = (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})
122		inidm 4046	. . . . . . . . . . 11 ⊢ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∩ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) = ((((2^nd ‘𝑇) + 1) + 1)...𝑁)
123	118, 121, 122	3eqtr3g 2883	. . . . . . . . . 10 ⊢ (𝜑 → (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
124	101, 123	uneq12d 3994	. . . . . . . . 9 ⊢ (𝜑 → (((1...((2^nd ‘𝑇) + 1)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ∪ (((((2^nd ‘𝑇) + 1) + 1)...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) = ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
125	47, 124	syl5eq 2872	. . . . . . . 8 ⊢ (𝜑 → (((1...((2^nd ‘𝑇) + 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
126	46, 125	eqtrd 2860	. . . . . . 7 ⊢ (𝜑 → ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) = ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
127	126	eleq2d 2891	. . . . . 6 ⊢ (𝜑 → (𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ↔ 𝑘 ∈ ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))))
128		elun 3979	. . . . . 6 ⊢ (𝑘 ∈ ((1...((2^nd ‘𝑇) − 1)) ∪ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) ↔ (𝑘 ∈ (1...((2^nd ‘𝑇) − 1)) ∨ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
129	127, 128	syl6bb 279	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) ↔ (𝑘 ∈ (1...((2^nd ‘𝑇) − 1)) ∨ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))))
130	129	biimpa 470	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) → (𝑘 ∈ (1...((2^nd ‘𝑇) − 1)) ∨ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
131		fveq2 6432	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑇 → (2^nd ‘𝑡) = (2^nd ‘𝑇))
132	131	breq2d 4884	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = 𝑇 → (𝑦 < (2^nd ‘𝑡) ↔ 𝑦 < (2^nd ‘𝑇)))
133	132	ifbid 4327	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑇 → if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)))
134	133	csbeq1d 3763	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ⦋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}))))
135		2fveq3 6437	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = 𝑇 → (1^st ‘(1^st ‘𝑡)) = (1^st ‘(1^st ‘𝑇)))
136		2fveq3 6437	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑇 → (2^nd ‘(1^st ‘𝑡)) = (2^nd ‘(1^st ‘𝑇)))
137	136	imaeq1d 5705	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)))
138	137	xpeq1d 5370	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}))
139	136	imaeq1d 5705	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑇 → ((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)))
140	139	xpeq1d 5370	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑇 → (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
141	138, 140	uneq12d 3994	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = 𝑇 → ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
142	135, 141	oveq12d 6922	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑇 → ((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}))))
143	142	csbeq2dv 4215	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑇 → ⦋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}))))
144	134, 143	eqtrd 2860	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑇 → ⦋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}))))
145	144	mpteq2dv 4967	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑇 → (𝑦 ∈ (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})))))
146	145	eqeq2d 2834	. . . . . . . . . . . . . . . 16 ⊢ (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (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}))))))
147	146, 3	elrab2 3588	. . . . . . . . . . . . . . 15 ⊢ (𝑇 ∈ 𝑆 ↔ (𝑇 ∈ ((((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}))))))
148	147	simprbi 492	. . . . . . . . . . . . . 14 ⊢ (𝑇 ∈ 𝑆 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
149	19, 148	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑇)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
150		xp1st 7459	. . . . . . . . . . . . . . . 16 ⊢ ((1^st ‘𝑇) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)))
151	24, 150	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)))
152		elmapi 8143	. . . . . . . . . . . . . . 15 ⊢ ((1^st ‘(1^st ‘𝑇)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)) → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
153	151, 152	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
154		elfzoelz 12764	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (0..^𝐾) → 𝑛 ∈ ℤ)
155	154	ssriv 3830	. . . . . . . . . . . . . 14 ⊢ (0..^𝐾) ⊆ ℤ
156		fss 6290	. . . . . . . . . . . . . 14 ⊢ (((1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶ℤ)
157	153, 155, 156	sylancl 582	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑇)):(1...𝑁)⟶ℤ)
158	38, 149, 157, 30, 35	poimirlem1 33953	. . . . . . . . . . . 12 ⊢ (𝜑 → ¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2^nd ‘𝑇) − 1))‘𝑛) ≠ ((𝐹‘(2^nd ‘𝑇))‘𝑛))
159	38	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → 𝑁 ∈ ℕ)
160		fveq2 6432	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑡 = 𝑈 → (2^nd ‘𝑡) = (2^nd ‘𝑈))
161	160	breq2d 4884	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑈 → (𝑦 < (2^nd ‘𝑡) ↔ 𝑦 < (2^nd ‘𝑈)))
162	161	ifbid 4327	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑈 → if(𝑦 < (2^nd ‘𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2^nd ‘𝑈), 𝑦, (𝑦 + 1)))
163	162	csbeq1d 3763	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑈 → ⦋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}))))
164		2fveq3 6437	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑈 → (1^st ‘(1^st ‘𝑡)) = (1^st ‘(1^st ‘𝑈)))
165		2fveq3 6437	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑡 = 𝑈 → (2^nd ‘(1^st ‘𝑡)) = (2^nd ‘(1^st ‘𝑈)))
166	165	imaeq1d 5705	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑡 = 𝑈 → ((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) = ((2^nd ‘(1^st ‘𝑈)) “ (1...𝑗)))
167	166	xpeq1d 5370	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑡 = 𝑈 → (((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) = (((2^nd ‘(1^st ‘𝑈)) “ (1...𝑗)) × {1}))
168	165	imaeq1d 5705	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑡 = 𝑈 → ((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2^nd ‘(1^st ‘𝑈)) “ ((𝑗 + 1)...𝑁)))
169	168	xpeq1d 5370	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑡 = 𝑈 → (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2^nd ‘(1^st ‘𝑈)) “ ((𝑗 + 1)...𝑁)) × {0}))
170	167, 169	uneq12d 3994	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑈 → ((((2^nd ‘(1^st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2^nd ‘(1^st ‘𝑈)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑈)) “ ((𝑗 + 1)...𝑁)) × {0})))
171	164, 170	oveq12d 6922	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑈 → ((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}))))
172	171	csbeq2dv 4215	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑈 → ⦋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}))))
173	163, 172	eqtrd 2860	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = 𝑈 → ⦋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}))))
174	173	mpteq2dv 4967	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑈 → (𝑦 ∈ (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})))))
175	174	eqeq2d 2834	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑈 → (𝐹 = (𝑦 ∈ (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}))))))
176	175, 3	elrab2 3588	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑈 ∈ 𝑆 ↔ (𝑈 ∈ ((((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}))))))
177	176	simprbi 492	. . . . . . . . . . . . . . . . 17 ⊢ (𝑈 ∈ 𝑆 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑈), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑈)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑈)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑈)) “ ((𝑗 + 1)...𝑁)) × {0})))))
178	1, 177	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑈), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑈)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑈)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑈)) “ ((𝑗 + 1)...𝑁)) × {0})))))
179	178	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2^nd ‘𝑈), 𝑦, (𝑦 + 1)) / 𝑗⦌((1^st ‘(1^st ‘𝑈)) ∘_𝑓 + ((((2^nd ‘(1^st ‘𝑈)) “ (1...𝑗)) × {1}) ∪ (((2^nd ‘(1^st ‘𝑈)) “ ((𝑗 + 1)...𝑁)) × {0})))))
180		xp1st 7459	. . . . . . . . . . . . . . . . . . 19 ⊢ ((1^st ‘𝑈) ∈ (((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1^st ‘(1^st ‘𝑈)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)))
181	7, 180	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑈)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)))
182		elmapi 8143	. . . . . . . . . . . . . . . . . 18 ⊢ ((1^st ‘(1^st ‘𝑈)) ∈ ((0..^𝐾) ↑_𝑚 (1...𝑁)) → (1^st ‘(1^st ‘𝑈)):(1...𝑁)⟶(0..^𝐾))
183	181, 182	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑈)):(1...𝑁)⟶(0..^𝐾))
184		fss 6290	. . . . . . . . . . . . . . . . 17 ⊢ (((1^st ‘(1^st ‘𝑈)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1^st ‘(1^st ‘𝑈)):(1...𝑁)⟶ℤ)
185	183, 155, 184	sylancl 582	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1^st ‘(1^st ‘𝑈)):(1...𝑁)⟶ℤ)
186	185	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → (1^st ‘(1^st ‘𝑈)):(1...𝑁)⟶ℤ)
187	13	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → (2^nd ‘(1^st ‘𝑈)):(1...𝑁)–1-1-onto→(1...𝑁))
188	35	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → (2^nd ‘𝑇) ∈ (1...(𝑁 − 1)))
189		xp2nd 7460	. . . . . . . . . . . . . . . . 17 ⊢ (𝑈 ∈ ((((0..^𝐾) ↑_𝑚 (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (2^nd ‘𝑈) ∈ (0...𝑁))
190	5, 189	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (2^nd ‘𝑈) ∈ (0...𝑁))
191		eldifsn 4535	. . . . . . . . . . . . . . . . 17 ⊢ ((2^nd ‘𝑈) ∈ ((0...𝑁) ∖ {(2^nd ‘𝑇)}) ↔ ((2^nd ‘𝑈) ∈ (0...𝑁) ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)))
192	191	biimpri 220	. . . . . . . . . . . . . . . 16 ⊢ (((2^nd ‘𝑈) ∈ (0...𝑁) ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → (2^nd ‘𝑈) ∈ ((0...𝑁) ∖ {(2^nd ‘𝑇)}))
193	190, 192	sylan 577	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → (2^nd ‘𝑈) ∈ ((0...𝑁) ∖ {(2^nd ‘𝑇)}))
194	159, 179, 186, 187, 188, 193	poimirlem2 33954	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (2^nd ‘𝑈) ≠ (2^nd ‘𝑇)) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2^nd ‘𝑇) − 1))‘𝑛) ≠ ((𝐹‘(2^nd ‘𝑇))‘𝑛))
195	194	ex 403	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((2^nd ‘𝑈) ≠ (2^nd ‘𝑇) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2^nd ‘𝑇) − 1))‘𝑛) ≠ ((𝐹‘(2^nd ‘𝑇))‘𝑛)))
196	195	necon1bd 3016	. . . . . . . . . . . 12 ⊢ (𝜑 → (¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2^nd ‘𝑇) − 1))‘𝑛) ≠ ((𝐹‘(2^nd ‘𝑇))‘𝑛) → (2^nd ‘𝑈) = (2^nd ‘𝑇)))
197	158, 196	mpd 15	. . . . . . . . . . 11 ⊢ (𝜑 → (2^nd ‘𝑈) = (2^nd ‘𝑇))
198	197	oveq1d 6919	. . . . . . . . . 10 ⊢ (𝜑 → ((2^nd ‘𝑈) − 1) = ((2^nd ‘𝑇) − 1))
199	198	oveq2d 6920	. . . . . . . . 9 ⊢ (𝜑 → (1...((2^nd ‘𝑈) − 1)) = (1...((2^nd ‘𝑇) − 1)))
200	199	eleq2d 2891	. . . . . . . 8 ⊢ (𝜑 → (𝑘 ∈ (1...((2^nd ‘𝑈) − 1)) ↔ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))))
201	200	biimpar 471	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → 𝑘 ∈ (1...((2^nd ‘𝑈) − 1)))
202	38	adantr 474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑈) − 1))) → 𝑁 ∈ ℕ)
203	1	adantr 474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑈) − 1))) → 𝑈 ∈ 𝑆)
204	197, 35	eqeltrd 2905	. . . . . . . . 9 ⊢ (𝜑 → (2^nd ‘𝑈) ∈ (1...(𝑁 − 1)))
205	204	adantr 474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑈) − 1))) → (2^nd ‘𝑈) ∈ (1...(𝑁 − 1)))
206		simpr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑈) − 1))) → 𝑘 ∈ (1...((2^nd ‘𝑈) − 1)))
207	202, 3, 203, 205, 206	poimirlem6 33958	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑈) − 1))) → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑘 − 1))‘𝑛) ≠ ((𝐹‘𝑘)‘𝑛)) = ((2^nd ‘(1^st ‘𝑈))‘𝑘))
208	201, 207	syldan 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑘 − 1))‘𝑛) ≠ ((𝐹‘𝑘)‘𝑛)) = ((2^nd ‘(1^st ‘𝑈))‘𝑘))
209	38	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → 𝑁 ∈ ℕ)
210	19	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → 𝑇 ∈ 𝑆)
211	35	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → (2^nd ‘𝑇) ∈ (1...(𝑁 − 1)))
212		simpr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → 𝑘 ∈ (1...((2^nd ‘𝑇) − 1)))
213	209, 3, 210, 211, 212	poimirlem6 33958	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑘 − 1))‘𝑛) ≠ ((𝐹‘𝑘)‘𝑛)) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
214	208, 213	eqtr3d 2862	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...((2^nd ‘𝑇) − 1))) → ((2^nd ‘(1^st ‘𝑈))‘𝑘) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
215	197	oveq1d 6919	. . . . . . . . . . 11 ⊢ (𝜑 → ((2^nd ‘𝑈) + 1) = ((2^nd ‘𝑇) + 1))
216	215	oveq1d 6919	. . . . . . . . . 10 ⊢ (𝜑 → (((2^nd ‘𝑈) + 1) + 1) = (((2^nd ‘𝑇) + 1) + 1))
217	216	oveq1d 6919	. . . . . . . . 9 ⊢ (𝜑 → ((((2^nd ‘𝑈) + 1) + 1)...𝑁) = ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
218	217	eleq2d 2891	. . . . . . . 8 ⊢ (𝜑 → (𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁) ↔ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)))
219	218	biimpar 471	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → 𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁))
220	38	adantr 474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁)) → 𝑁 ∈ ℕ)
221	1	adantr 474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁)) → 𝑈 ∈ 𝑆)
222	204	adantr 474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁)) → (2^nd ‘𝑈) ∈ (1...(𝑁 − 1)))
223		simpr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁)) → 𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁))
224	220, 3, 221, 222, 223	poimirlem7 33959	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑈) + 1) + 1)...𝑁)) → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑘 − 2))‘𝑛) ≠ ((𝐹‘(𝑘 − 1))‘𝑛)) = ((2^nd ‘(1^st ‘𝑈))‘𝑘))
225	219, 224	syldan 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑘 − 2))‘𝑛) ≠ ((𝐹‘(𝑘 − 1))‘𝑛)) = ((2^nd ‘(1^st ‘𝑈))‘𝑘))
226	38	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → 𝑁 ∈ ℕ)
227	19	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → 𝑇 ∈ 𝑆)
228	35	adantr 474	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → (2^nd ‘𝑇) ∈ (1...(𝑁 − 1)))
229		simpr 479	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))
230	226, 3, 227, 228, 229	poimirlem7 33959	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → (℩𝑛 ∈ (1...𝑁)((𝐹‘(𝑘 − 2))‘𝑛) ≠ ((𝐹‘(𝑘 − 1))‘𝑛)) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
231	225, 230	eqtr3d 2862	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁)) → ((2^nd ‘(1^st ‘𝑈))‘𝑘) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
232	214, 231	jaodan 987	. . . 4 ⊢ ((𝜑 ∧ (𝑘 ∈ (1...((2^nd ‘𝑇) − 1)) ∨ 𝑘 ∈ ((((2^nd ‘𝑇) + 1) + 1)...𝑁))) → ((2^nd ‘(1^st ‘𝑈))‘𝑘) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
233	130, 232	syldan 587	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) → ((2^nd ‘(1^st ‘𝑈))‘𝑘) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
234		fvres 6451	. . . 4 ⊢ (𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) → (((2^nd ‘(1^st ‘𝑈)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))‘𝑘) = ((2^nd ‘(1^st ‘𝑈))‘𝑘))
235	234	adantl 475	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) → (((2^nd ‘(1^st ‘𝑈)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))‘𝑘) = ((2^nd ‘(1^st ‘𝑈))‘𝑘))
236		fvres 6451	. . . 4 ⊢ (𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}) → (((2^nd ‘(1^st ‘𝑇)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))‘𝑘) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
237	236	adantl 475	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) → (((2^nd ‘(1^st ‘𝑇)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))‘𝑘) = ((2^nd ‘(1^st ‘𝑇))‘𝑘))
238	233, 235, 237	3eqtr4d 2870	. 2 ⊢ ((𝜑 ∧ 𝑘 ∈ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) → (((2^nd ‘(1^st ‘𝑈)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))‘𝑘) = (((2^nd ‘(1^st ‘𝑇)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)}))‘𝑘))
239	18, 34, 238	eqfnfvd 6562	1 ⊢ (𝜑 → ((2^nd ‘(1^st ‘𝑈)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})) = ((2^nd ‘(1^st ‘𝑇)) ↾ ((1...𝑁) ∖ {(2^nd ‘𝑇), ((2^nd ‘𝑇) + 1)})))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 386 ∨ wo 880 = wceq 1658 ∈ wcel 2166 {cab 2810 ≠ wne 2998 ∃*wrmo 3119 {crab 3120 ⦋csb 3756 ∖ cdif 3794 ∪ cun 3795 ∩ cin 3796 ⊆ wss 3797 ifcif 4305 {csn 4396 {cpr 4398 class class class wbr 4872 ↦ cmpt 4951 × cxp 5339 ↾ cres 5343 “ cima 5344 Fn wfn 6117 ⟶wf 6118 –1-1-onto→wf1o 6121 ‘cfv 6122 ℩crio 6864 (class class class)co 6904 ∘_𝑓 cof 7154 1^st c1st 7425 2^nd c2nd 7426 ↑_𝑚 cmap 8121 ℂcc 10249 ℝcr 10250 0cc0 10251 1c1 10252 + caddc 10254 < clt 10390 ≤ cle 10391 − cmin 10584 ℕcn 11349 2c2 11405 ℤcz 11703 ℤ_≥cuz 11967 ...cfz 12618 ..^cfzo 12759

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1896 ax-4 1910 ax-5 2011 ax-6 2077 ax-7 2114 ax-8 2168 ax-9 2175 ax-10 2194 ax-11 2209 ax-12 2222 ax-13 2390 ax-ext 2802 ax-rep 4993 ax-sep 5004 ax-nul 5012 ax-pow 5064 ax-pr 5126 ax-un 7208 ax-cnex 10307 ax-resscn 10308 ax-1cn 10309 ax-icn 10310 ax-addcl 10311 ax-addrcl 10312 ax-mulcl 10313 ax-mulrcl 10314 ax-mulcom 10315 ax-addass 10316 ax-mulass 10317 ax-distr 10318 ax-i2m1 10319 ax-1ne0 10320 ax-1rid 10321 ax-rnegex 10322 ax-rrecex 10323 ax-cnre 10324 ax-pre-lttri 10325 ax-pre-lttrn 10326 ax-pre-ltadd 10327 ax-pre-mulgt0 10328

This theorem depends on definitions: df-bi 199 df-an 387 df-or 881 df-3or 1114 df-3an 1115 df-tru 1662 df-ex 1881 df-nf 1885 df-sb 2070 df-mo 2604 df-eu 2639 df-clab 2811 df-cleq 2817 df-clel 2820 df-nfc 2957 df-ne 2999 df-nel 3102 df-ral 3121 df-rex 3122 df-reu 3123 df-rmo 3124 df-rab 3125 df-v 3415 df-sbc 3662 df-csb 3757 df-dif 3800 df-un 3802 df-in 3804 df-ss 3811 df-pss 3813 df-nul 4144 df-if 4306 df-pw 4379 df-sn 4397 df-pr 4399 df-tp 4401 df-op 4403 df-uni 4658 df-iun 4741 df-br 4873 df-opab 4935 df-mpt 4952 df-tr 4975 df-id 5249 df-eprel 5254 df-po 5262 df-so 5263 df-fr 5300 df-we 5302 df-xp 5347 df-rel 5348 df-cnv 5349 df-co 5350 df-dm 5351 df-rn 5352 df-res 5353 df-ima 5354 df-pred 5919 df-ord 5965 df-on 5966 df-lim 5967 df-suc 5968 df-iota 6085 df-fun 6124 df-fn 6125 df-f 6126 df-f1 6127 df-fo 6128 df-f1o 6129 df-fv 6130 df-riota 6865 df-ov 6907 df-oprab 6908 df-mpt2 6909 df-of 7156 df-om 7326 df-1st 7427 df-2nd 7428 df-wrecs 7671 df-recs 7733 df-rdg 7771 df-1o 7825 df-er 8008 df-map 8123 df-en 8222 df-dom 8223 df-sdom 8224 df-fin 8225 df-pnf 10392 df-mnf 10393 df-xr 10394 df-ltxr 10395 df-le 10396 df-sub 10586 df-neg 10587 df-nn 11350 df-2 11413 df-n0 11618 df-z 11704 df-uz 11968 df-fz 12619 df-fzo 12760

This theorem is referenced by: poimirlem9 33961

W3C validator