Theorem poimirlem18 35722

Description: Lemma for poimir 35737 stating that, given a face not on a front face of the main cube and a simplex in which it's opposite the first vertex on the walk, there exists exactly one other simplex containing it. (Contributed by Brendan Leahy, 21-Aug-2020.)

Hypotheses

Ref	Expression
poimir.0	⊢ (𝜑 → 𝑁 ∈ ℕ)
poimirlem22.s	⊢ 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
poimirlem22.1	⊢ (𝜑 → 𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑m (1...𝑁)))
poimirlem22.2	⊢ (𝜑 → 𝑇 ∈ 𝑆)
poimirlem18.3	⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝‘𝑛) ≠ 𝐾)
poimirlem18.4	⊢ (𝜑 → (2nd ‘𝑇) = 0)

Assertion

Ref	Expression
poimirlem18	⊢ (𝜑 → ∃!𝑧 ∈ 𝑆 𝑧 ≠ 𝑇)

Distinct variable groups:   𝑓,𝑗,𝑛,𝑝,𝑡,𝑦,𝑧   𝜑,𝑗,𝑛,𝑦   𝑗,𝐹,𝑛,𝑦   𝑗,𝑁,𝑛,𝑦   𝑇,𝑗,𝑛,𝑦   𝜑,𝑝,𝑡   𝑓,𝐾,𝑗,𝑛,𝑝,𝑡   𝑓,𝑁,𝑝,𝑡   𝑇,𝑓,𝑝   𝜑,𝑧   𝑓,𝐹,𝑝,𝑡,𝑧   𝑧,𝐾   𝑧,𝑁   𝑡,𝑇,𝑧   𝑆,𝑗,𝑛,𝑝,𝑡,𝑦,𝑧

Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem18

Dummy variable 𝑠 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		poimir.0	. . 3 ⊢ (𝜑 → 𝑁 ∈ ℕ)
2		poimirlem22.s	. . 3 ⊢ 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
3		poimirlem22.1	. . 3 ⊢ (𝜑 → 𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑m (1...𝑁)))
4		poimirlem22.2	. . 3 ⊢ (𝜑 → 𝑇 ∈ 𝑆)
5		poimirlem18.3	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝‘𝑛) ≠ 𝐾)
6		poimirlem18.4	. . 3 ⊢ (𝜑 → (2nd ‘𝑇) = 0)
7	1, 2, 3, 4, 5, 6	poimirlem17 35721	. 2 ⊢ (𝜑 → ∃𝑧 ∈ 𝑆 𝑧 ≠ 𝑇)
8	6	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → (2nd ‘𝑇) = 0)
9		0nnn 11939	. . . . . . . . . . . . 13 ⊢ ¬ 0 ∈ ℕ
10		elfznn 13214	. . . . . . . . . . . . 13 ⊢ (0 ∈ (1...(𝑁 − 1)) → 0 ∈ ℕ)
11	9, 10	mto 196	. . . . . . . . . . . 12 ⊢ ¬ 0 ∈ (1...(𝑁 − 1))
12		eleq1 2826	. . . . . . . . . . . 12 ⊢ ((2nd ‘𝑧) = 0 → ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ↔ 0 ∈ (1...(𝑁 − 1))))
13	11, 12	mtbiri 326	. . . . . . . . . . 11 ⊢ ((2nd ‘𝑧) = 0 → ¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)))
14	13	necon2ai 2972	. . . . . . . . . 10 ⊢ ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) → (2nd ‘𝑧) ≠ 0)
15	1	ad2antrr 722	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → 𝑁 ∈ ℕ)
16		fveq2 6756	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑧 → (2nd ‘𝑡) = (2nd ‘𝑧))
17	16	breq2d 5082	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑧 → (𝑦 < (2nd ‘𝑡) ↔ 𝑦 < (2nd ‘𝑧)))
18	17	ifbid 4479	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = 𝑧 → if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)))
19	18	csbeq1d 3832	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑧 → ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
20		2fveq3 6761	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑧 → (1st ‘(1st ‘𝑡)) = (1st ‘(1st ‘𝑧)))
21		2fveq3 6761	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑡 = 𝑧 → (2nd ‘(1st ‘𝑡)) = (2nd ‘(1st ‘𝑧)))
22	21	imaeq1d 5957	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑧 → ((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) = ((2nd ‘(1st ‘𝑧)) “ (1...𝑗)))
23	22	xpeq1d 5609	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑧 → (((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}))
24	21	imaeq1d 5957	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑧 → ((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)))
25	24	xpeq1d 5609	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑧 → (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))
26	23, 25	uneq12d 4094	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑧 → ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))
27	20, 26	oveq12d 7273	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = 𝑧 → ((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))
28	27	csbeq2dv 3835	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑡 = 𝑧 → ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))
29	19, 28	eqtrd 2778	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑡 = 𝑧 → ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))
30	29	mpteq2dv 5172	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑡 = 𝑧 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
31	30	eqeq2d 2749	. . . . . . . . . . . . . . . . 17 ⊢ (𝑡 = 𝑧 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
32	31, 2	elrab2 3620	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ 𝑆 ↔ (𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
33	32	simprbi 496	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ 𝑆 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
34	33	ad2antlr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑧), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑧)) ∘f + ((((2nd ‘(1st ‘𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
35		elrabi 3611	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑧 ∈ {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
36	35, 2	eleq2s 2857	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 ∈ 𝑆 → 𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
37		xp1st 7836	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
38	36, 37	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ 𝑆 → (1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
39		xp1st 7836	. . . . . . . . . . . . . . . . . 18 ⊢ ((1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st ‘𝑧)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
40	38, 39	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 ∈ 𝑆 → (1st ‘(1st ‘𝑧)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
41		elmapi 8595	. . . . . . . . . . . . . . . . 17 ⊢ ((1st ‘(1st ‘𝑧)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st ‘𝑧)):(1...𝑁)⟶(0..^𝐾))
42	40, 41	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ 𝑆 → (1st ‘(1st ‘𝑧)):(1...𝑁)⟶(0..^𝐾))
43		elfzoelz 13316	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (0..^𝐾) → 𝑛 ∈ ℤ)
44	43	ssriv 3921	. . . . . . . . . . . . . . . 16 ⊢ (0..^𝐾) ⊆ ℤ
45		fss 6601	. . . . . . . . . . . . . . . 16 ⊢ (((1st ‘(1st ‘𝑧)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1st ‘(1st ‘𝑧)):(1...𝑁)⟶ℤ)
46	42, 44, 45	sylancl 585	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ 𝑆 → (1st ‘(1st ‘𝑧)):(1...𝑁)⟶ℤ)
47	46	ad2antlr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → (1st ‘(1st ‘𝑧)):(1...𝑁)⟶ℤ)
48		xp2nd 7837	. . . . . . . . . . . . . . . . 17 ⊢ ((1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st ‘𝑧)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
49	38, 48	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ 𝑆 → (2nd ‘(1st ‘𝑧)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
50		fvex 6769	. . . . . . . . . . . . . . . . 17 ⊢ (2nd ‘(1st ‘𝑧)) ∈ V
51		f1oeq1 6688	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = (2nd ‘(1st ‘𝑧)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st ‘𝑧)):(1...𝑁)–1-1-onto→(1...𝑁)))
52	50, 51	elab 3602	. . . . . . . . . . . . . . . 16 ⊢ ((2nd ‘(1st ‘𝑧)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st ‘𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
53	49, 52	sylib 217	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ 𝑆 → (2nd ‘(1st ‘𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
54	53	ad2antlr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → (2nd ‘(1st ‘𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
55		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → (2nd ‘𝑧) ∈ (1...(𝑁 − 1)))
56	15, 34, 47, 54, 55	poimirlem1 35705	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → ¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd ‘𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd ‘𝑧))‘𝑛))
57	1	ad2antrr 722	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → 𝑁 ∈ ℕ)
58		fveq2 6756	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑡 = 𝑇 → (2nd ‘𝑡) = (2nd ‘𝑇))
59	58	breq2d 5082	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑡 = 𝑇 → (𝑦 < (2nd ‘𝑡) ↔ 𝑦 < (2nd ‘𝑇)))
60	59	ifbid 4479	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑡 = 𝑇 → if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)))
61	60	csbeq1d 3832	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
62		2fveq3 6761	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑡 = 𝑇 → (1st ‘(1st ‘𝑡)) = (1st ‘(1st ‘𝑇)))
63		2fveq3 6761	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑡 = 𝑇 → (2nd ‘(1st ‘𝑡)) = (2nd ‘(1st ‘𝑇)))
64	63	imaeq1d 5957	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑡 = 𝑇 → ((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) = ((2nd ‘(1st ‘𝑇)) “ (1...𝑗)))
65	64	xpeq1d 5609	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑡 = 𝑇 → (((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}))
66	63	imaeq1d 5957	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑡 = 𝑇 → ((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)))
67	66	xpeq1d 5609	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑡 = 𝑇 → (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
68	65, 67	uneq12d 4094	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑡 = 𝑇 → ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
69	62, 68	oveq12d 7273	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑡 = 𝑇 → ((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
70	69	csbeq2dv 3835	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
71	61, 70	eqtrd 2778	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑡 = 𝑇 → ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
72	71	mpteq2dv 5172	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑡 = 𝑇 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
73	72	eqeq2d 2749	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
74	73, 2	elrab2 3620	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑇 ∈ 𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
75	74	simprbi 496	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑇 ∈ 𝑆 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
76	4, 75	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
77	76	ad2antrr 722	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑇), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑇)) ∘f + ((((2nd ‘(1st ‘𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
78		elrabi 3611	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑇 ∈ {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
79	78, 2	eleq2s 2857	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑇 ∈ 𝑆 → 𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
80	4, 79	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
81		xp1st 7836	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st ‘𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
82	80, 81	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (1st ‘𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
83		xp1st 7836	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1st ‘𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st ‘𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
84	82, 83	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1st ‘(1st ‘𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
85		elmapi 8595	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1st ‘(1st ‘𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
86	84, 85	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (1st ‘(1st ‘𝑇)):(1...𝑁)⟶(0..^𝐾))
87		fss 6601	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1st ‘(1st ‘𝑇)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1st ‘(1st ‘𝑇)):(1...𝑁)⟶ℤ)
88	86, 44, 87	sylancl 585	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (1st ‘(1st ‘𝑇)):(1...𝑁)⟶ℤ)
89	88	ad2antrr 722	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → (1st ‘(1st ‘𝑇)):(1...𝑁)⟶ℤ)
90		xp2nd 7837	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1st ‘𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
91	82, 90	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (2nd ‘(1st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
92		fvex 6769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (2nd ‘(1st ‘𝑇)) ∈ V
93		f1oeq1 6688	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑓 = (2nd ‘(1st ‘𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
94	92, 93	elab 3602	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘(1st ‘𝑇)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
95	91, 94	sylib 217	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (2nd ‘(1st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
96	95	ad2antrr 722	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → (2nd ‘(1st ‘𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
97		simplr 765	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → (2nd ‘𝑧) ∈ (1...(𝑁 − 1)))
98		xp2nd 7837	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (2nd ‘𝑇) ∈ (0...𝑁))
99	80, 98	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (2nd ‘𝑇) ∈ (0...𝑁))
100	99	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → (2nd ‘𝑇) ∈ (0...𝑁))
101		eldifsn 4717	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2nd ‘𝑇) ∈ ((0...𝑁) ∖ {(2nd ‘𝑧)}) ↔ ((2nd ‘𝑇) ∈ (0...𝑁) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)))
102	101	biimpri 227	. . . . . . . . . . . . . . . . . 18 ⊢ (((2nd ‘𝑇) ∈ (0...𝑁) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → (2nd ‘𝑇) ∈ ((0...𝑁) ∖ {(2nd ‘𝑧)}))
103	100, 102	sylan 579	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → (2nd ‘𝑇) ∈ ((0...𝑁) ∖ {(2nd ‘𝑧)}))
104	57, 77, 89, 96, 97, 103	poimirlem2 35706	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd ‘𝑇) ≠ (2nd ‘𝑧)) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd ‘𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd ‘𝑧))‘𝑛))
105	104	ex 412	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → ((2nd ‘𝑇) ≠ (2nd ‘𝑧) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd ‘𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd ‘𝑧))‘𝑛)))
106	105	necon1bd 2960	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → (¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd ‘𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd ‘𝑧))‘𝑛) → (2nd ‘𝑇) = (2nd ‘𝑧)))
107	106	adantlr 711	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → (¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd ‘𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd ‘𝑧))‘𝑛) → (2nd ‘𝑇) = (2nd ‘𝑧)))
108	56, 107	mpd 15	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → (2nd ‘𝑇) = (2nd ‘𝑧))
109	108	neeq1d 3002	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑆) ∧ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))) → ((2nd ‘𝑇) ≠ 0 ↔ (2nd ‘𝑧) ≠ 0))
110	109	exbiri 807	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) → ((2nd ‘𝑧) ≠ 0 → (2nd ‘𝑇) ≠ 0)))
111	14, 110	mpdi 45	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) → (2nd ‘𝑇) ≠ 0))
112	111	necon2bd 2958	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → ((2nd ‘𝑇) = 0 → ¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1))))
113	8, 112	mpd 15	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → ¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)))
114		xp2nd 7837	. . . . . . . . 9 ⊢ (𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (2nd ‘𝑧) ∈ (0...𝑁))
115	36, 114	syl 17	. . . . . . . 8 ⊢ (𝑧 ∈ 𝑆 → (2nd ‘𝑧) ∈ (0...𝑁))
116	1	nncnd 11919	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑁 ∈ ℂ)
117		npcan1 11330	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ ℂ → ((𝑁 − 1) + 1) = 𝑁)
118	116, 117	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
119		nnuz 12550	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ = (ℤ≥‘1)
120	1, 119	eleqtrdi 2849	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘1))
121	118, 120	eqeltrd 2839	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ≥‘1))
122	1	nnzd 12354	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑁 ∈ ℤ)
123		peano2zm 12293	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁 ∈ ℤ → (𝑁 − 1) ∈ ℤ)
124	122, 123	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝑁 − 1) ∈ ℤ)
125		uzid 12526	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 − 1) ∈ ℤ → (𝑁 − 1) ∈ (ℤ≥‘(𝑁 − 1)))
126		peano2uz 12570	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑁 − 1) ∈ (ℤ≥‘(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ≥‘(𝑁 − 1)))
127	124, 125, 126	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ≥‘(𝑁 − 1)))
128	118, 127	eqeltrrd 2840	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘(𝑁 − 1)))
129		fzsplit2 13210	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑁 − 1) + 1) ∈ (ℤ≥‘1) ∧ 𝑁 ∈ (ℤ≥‘(𝑁 − 1))) → (1...𝑁) = ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
130	121, 128, 129	syl2anc 583	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
131	118	oveq1d 7270	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑁 − 1) + 1)...𝑁) = (𝑁...𝑁))
132		fzsn 13227	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ ℤ → (𝑁...𝑁) = {𝑁})
133	122, 132	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑁...𝑁) = {𝑁})
134	131, 133	eqtrd 2778	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((𝑁 − 1) + 1)...𝑁) = {𝑁})
135	134	uneq2d 4093	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)) = ((1...(𝑁 − 1)) ∪ {𝑁}))
136	130, 135	eqtrd 2778	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1...𝑁) = ((1...(𝑁 − 1)) ∪ {𝑁}))
137	136	eleq2d 2824	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2nd ‘𝑧) ∈ (1...𝑁) ↔ (2nd ‘𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁})))
138	137	notbid 317	. . . . . . . . . . . . 13 ⊢ (𝜑 → (¬ (2nd ‘𝑧) ∈ (1...𝑁) ↔ ¬ (2nd ‘𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁})))
139		ioran 980	. . . . . . . . . . . . . 14 ⊢ (¬ ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd ‘𝑧) = 𝑁) ↔ (¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁))
140		elun 4079	. . . . . . . . . . . . . . 15 ⊢ ((2nd ‘𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁}) ↔ ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd ‘𝑧) ∈ {𝑁}))
141		fvex 6769	. . . . . . . . . . . . . . . . 17 ⊢ (2nd ‘𝑧) ∈ V
142	141	elsn 4573	. . . . . . . . . . . . . . . 16 ⊢ ((2nd ‘𝑧) ∈ {𝑁} ↔ (2nd ‘𝑧) = 𝑁)
143	142	orbi2i 909	. . . . . . . . . . . . . . 15 ⊢ (((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd ‘𝑧) ∈ {𝑁}) ↔ ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd ‘𝑧) = 𝑁))
144	140, 143	bitri 274	. . . . . . . . . . . . . 14 ⊢ ((2nd ‘𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁}) ↔ ((2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd ‘𝑧) = 𝑁))
145	139, 144	xchnxbir 332	. . . . . . . . . . . . 13 ⊢ (¬ (2nd ‘𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁}) ↔ (¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁))
146	138, 145	bitrdi 286	. . . . . . . . . . . 12 ⊢ (𝜑 → (¬ (2nd ‘𝑧) ∈ (1...𝑁) ↔ (¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁)))
147	146	anbi2d 628	. . . . . . . . . . 11 ⊢ (𝜑 → (((2nd ‘𝑧) ∈ (0...𝑁) ∧ ¬ (2nd ‘𝑧) ∈ (1...𝑁)) ↔ ((2nd ‘𝑧) ∈ (0...𝑁) ∧ (¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁))))
148	1	nnnn0d 12223	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑁 ∈ ℕ0)
149		nn0uz 12549	. . . . . . . . . . . . . . . . 17 ⊢ ℕ0 = (ℤ≥‘0)
150	148, 149	eleqtrdi 2849	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘0))
151		fzpred 13233	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (ℤ≥‘0) → (0...𝑁) = ({0} ∪ ((0 + 1)...𝑁)))
152	150, 151	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0...𝑁) = ({0} ∪ ((0 + 1)...𝑁)))
153	152	difeq1d 4052	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((0...𝑁) ∖ (1...𝑁)) = (({0} ∪ ((0 + 1)...𝑁)) ∖ (1...𝑁)))
154		difun2 4411	. . . . . . . . . . . . . . 15 ⊢ (({0} ∪ (1...𝑁)) ∖ (1...𝑁)) = ({0} ∖ (1...𝑁))
155		0p1e1 12025	. . . . . . . . . . . . . . . . . 18 ⊢ (0 + 1) = 1
156	155	oveq1i 7265	. . . . . . . . . . . . . . . . 17 ⊢ ((0 + 1)...𝑁) = (1...𝑁)
157	156	uneq2i 4090	. . . . . . . . . . . . . . . 16 ⊢ ({0} ∪ ((0 + 1)...𝑁)) = ({0} ∪ (1...𝑁))
158	157	difeq1i 4049	. . . . . . . . . . . . . . 15 ⊢ (({0} ∪ ((0 + 1)...𝑁)) ∖ (1...𝑁)) = (({0} ∪ (1...𝑁)) ∖ (1...𝑁))
159		incom 4131	. . . . . . . . . . . . . . . . 17 ⊢ ({0} ∩ (1...𝑁)) = ((1...𝑁) ∩ {0})
160		elfznn 13214	. . . . . . . . . . . . . . . . . . 19 ⊢ (0 ∈ (1...𝑁) → 0 ∈ ℕ)
161	9, 160	mto 196	. . . . . . . . . . . . . . . . . 18 ⊢ ¬ 0 ∈ (1...𝑁)
162		disjsn 4644	. . . . . . . . . . . . . . . . . 18 ⊢ (((1...𝑁) ∩ {0}) = ∅ ↔ ¬ 0 ∈ (1...𝑁))
163	161, 162	mpbir 230	. . . . . . . . . . . . . . . . 17 ⊢ ((1...𝑁) ∩ {0}) = ∅
164	159, 163	eqtri 2766	. . . . . . . . . . . . . . . 16 ⊢ ({0} ∩ (1...𝑁)) = ∅
165		disj3 4384	. . . . . . . . . . . . . . . 16 ⊢ (({0} ∩ (1...𝑁)) = ∅ ↔ {0} = ({0} ∖ (1...𝑁)))
166	164, 165	mpbi 229	. . . . . . . . . . . . . . 15 ⊢ {0} = ({0} ∖ (1...𝑁))
167	154, 158, 166	3eqtr4i 2776	. . . . . . . . . . . . . 14 ⊢ (({0} ∪ ((0 + 1)...𝑁)) ∖ (1...𝑁)) = {0}
168	153, 167	eqtrdi 2795	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((0...𝑁) ∖ (1...𝑁)) = {0})
169	168	eleq2d 2824	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2nd ‘𝑧) ∈ ((0...𝑁) ∖ (1...𝑁)) ↔ (2nd ‘𝑧) ∈ {0}))
170		eldif 3893	. . . . . . . . . . . 12 ⊢ ((2nd ‘𝑧) ∈ ((0...𝑁) ∖ (1...𝑁)) ↔ ((2nd ‘𝑧) ∈ (0...𝑁) ∧ ¬ (2nd ‘𝑧) ∈ (1...𝑁)))
171	141	elsn 4573	. . . . . . . . . . . 12 ⊢ ((2nd ‘𝑧) ∈ {0} ↔ (2nd ‘𝑧) = 0)
172	169, 170, 171	3bitr3g 312	. . . . . . . . . . 11 ⊢ (𝜑 → (((2nd ‘𝑧) ∈ (0...𝑁) ∧ ¬ (2nd ‘𝑧) ∈ (1...𝑁)) ↔ (2nd ‘𝑧) = 0))
173	147, 172	bitr3d 280	. . . . . . . . . 10 ⊢ (𝜑 → (((2nd ‘𝑧) ∈ (0...𝑁) ∧ (¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁)) ↔ (2nd ‘𝑧) = 0))
174	173	biimpd 228	. . . . . . . . 9 ⊢ (𝜑 → (((2nd ‘𝑧) ∈ (0...𝑁) ∧ (¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁)) → (2nd ‘𝑧) = 0))
175	174	expdimp 452	. . . . . . . 8 ⊢ ((𝜑 ∧ (2nd ‘𝑧) ∈ (0...𝑁)) → ((¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁) → (2nd ‘𝑧) = 0))
176	115, 175	sylan2 592	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → ((¬ (2nd ‘𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd ‘𝑧) = 𝑁) → (2nd ‘𝑧) = 0))
177	113, 176	mpand 691	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → (¬ (2nd ‘𝑧) = 𝑁 → (2nd ‘𝑧) = 0))
178	1, 2, 3	poimirlem13 35717	. . . . . . . . . 10 ⊢ (𝜑 → ∃*𝑧 ∈ 𝑆 (2nd ‘𝑧) = 0)
179		fveqeq2 6765	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑠 → ((2nd ‘𝑧) = 0 ↔ (2nd ‘𝑠) = 0))
180	179	rmo4 3660	. . . . . . . . . 10 ⊢ (∃*𝑧 ∈ 𝑆 (2nd ‘𝑧) = 0 ↔ ∀𝑧 ∈ 𝑆 ∀𝑠 ∈ 𝑆 (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑠) = 0) → 𝑧 = 𝑠))
181	178, 180	sylib 217	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑧 ∈ 𝑆 ∀𝑠 ∈ 𝑆 (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑠) = 0) → 𝑧 = 𝑠))
182	181	r19.21bi 3132	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → ∀𝑠 ∈ 𝑆 (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑠) = 0) → 𝑧 = 𝑠))
183	4	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → 𝑇 ∈ 𝑆)
184		fveqeq2 6765	. . . . . . . . . . 11 ⊢ (𝑠 = 𝑇 → ((2nd ‘𝑠) = 0 ↔ (2nd ‘𝑇) = 0))
185	184	anbi2d 628	. . . . . . . . . 10 ⊢ (𝑠 = 𝑇 → (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑠) = 0) ↔ ((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑇) = 0)))
186		eqeq2 2750	. . . . . . . . . 10 ⊢ (𝑠 = 𝑇 → (𝑧 = 𝑠 ↔ 𝑧 = 𝑇))
187	185, 186	imbi12d 344	. . . . . . . . 9 ⊢ (𝑠 = 𝑇 → ((((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑠) = 0) → 𝑧 = 𝑠) ↔ (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑇) = 0) → 𝑧 = 𝑇)))
188	187	rspccv 3549	. . . . . . . 8 ⊢ (∀𝑠 ∈ 𝑆 (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑠) = 0) → 𝑧 = 𝑠) → (𝑇 ∈ 𝑆 → (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑇) = 0) → 𝑧 = 𝑇)))
189	182, 183, 188	sylc 65	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → (((2nd ‘𝑧) = 0 ∧ (2nd ‘𝑇) = 0) → 𝑧 = 𝑇))
190	8, 189	mpan2d 690	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → ((2nd ‘𝑧) = 0 → 𝑧 = 𝑇))
191	177, 190	syld 47	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → (¬ (2nd ‘𝑧) = 𝑁 → 𝑧 = 𝑇))
192	191	necon1ad 2959	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑆) → (𝑧 ≠ 𝑇 → (2nd ‘𝑧) = 𝑁))
193	192	ralrimiva 3107	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝑆 (𝑧 ≠ 𝑇 → (2nd ‘𝑧) = 𝑁))
194	1, 2, 3	poimirlem14 35718	. . 3 ⊢ (𝜑 → ∃*𝑧 ∈ 𝑆 (2nd ‘𝑧) = 𝑁)
195		rmoim 3670	. . 3 ⊢ (∀𝑧 ∈ 𝑆 (𝑧 ≠ 𝑇 → (2nd ‘𝑧) = 𝑁) → (∃*𝑧 ∈ 𝑆 (2nd ‘𝑧) = 𝑁 → ∃*𝑧 ∈ 𝑆 𝑧 ≠ 𝑇))
196	193, 194, 195	sylc 65	. 2 ⊢ (𝜑 → ∃*𝑧 ∈ 𝑆 𝑧 ≠ 𝑇)
197		reu5 3351	. 2 ⊢ (∃!𝑧 ∈ 𝑆 𝑧 ≠ 𝑇 ↔ (∃𝑧 ∈ 𝑆 𝑧 ≠ 𝑇 ∧ ∃*𝑧 ∈ 𝑆 𝑧 ≠ 𝑇))
198	7, 196, 197	sylanbrc 582	1 ⊢ (𝜑 → ∃!𝑧 ∈ 𝑆 𝑧 ≠ 𝑇)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   ∨ wo 843   = wceq 1539   ∈ wcel 2108  {cab 2715   ≠ wne 2942  ∀wral 3063  ∃wrex 3064  ∃!wreu 3065  ∃*wrmo 3066  {crab 3067  ⦋csb 3828   ∖ cdif 3880   ∪ cun 3881   ∩ cin 3882   ⊆ wss 3883  ∅c0 4253  ifcif 4456  {csn 4558   class class class wbr 5070   ↦ cmpt 5153   × cxp 5578  ran crn 5581   “ cima 5583  ⟶wf 6414  –1-1-onto→wf1o 6417  ‘cfv 6418  (class class class)co 7255   ∘_f cof 7509  1^st c1st 7802  2^nd c2nd 7803   ↑_m cmap 8573  ℂcc 10800  0cc0 10802  1c1 10803   + caddc 10805   < clt 10940   − cmin 11135  ℕcn 11903  ℕ₀cn0 12163  ℤcz 12249  ℤ_≥cuz 12511  ...cfz 13168  ..^cfzo 13311

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-of 7511  df-om 7688  df-1st 7804  df-2nd 7805  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-1o 8267  df-er 8456  df-map 8575  df-en 8692  df-dom 8693  df-sdom 8694  df-fin 8695  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-nn 11904  df-n0 12164  df-z 12250  df-uz 12512  df-fz 13169  df-fzo 13312

This theorem is referenced by:  poimirlem22  35726