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

Theorem poimirlem18 35908
Description: Lemma for poimir 35923 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.
StepHypRef 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)
71, 2, 3, 4, 5, 6poimirlem17 35907 . 2 (𝜑 → ∃𝑧𝑆 𝑧𝑇)
86adantr 481 . . . . . . . 8 ((𝜑𝑧𝑆) → (2nd𝑇) = 0)
9 0nnn 12110 . . . . . . . . . . . . 13 ¬ 0 ∈ ℕ
10 elfznn 13386 . . . . . . . . . . . . 13 (0 ∈ (1...(𝑁 − 1)) → 0 ∈ ℕ)
119, 10mto 196 . . . . . . . . . . . 12 ¬ 0 ∈ (1...(𝑁 − 1))
12 eleq1 2824 . . . . . . . . . . . 12 ((2nd𝑧) = 0 → ((2nd𝑧) ∈ (1...(𝑁 − 1)) ↔ 0 ∈ (1...(𝑁 − 1))))
1311, 12mtbiri 326 . . . . . . . . . . 11 ((2nd𝑧) = 0 → ¬ (2nd𝑧) ∈ (1...(𝑁 − 1)))
1413necon2ai 2970 . . . . . . . . . 10 ((2nd𝑧) ∈ (1...(𝑁 − 1)) → (2nd𝑧) ≠ 0)
151ad2antrr 723 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → 𝑁 ∈ ℕ)
16 fveq2 6825 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 = 𝑧 → (2nd𝑡) = (2nd𝑧))
1716breq2d 5104 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 = 𝑧 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑧)))
1817ifbid 4496 . . . . . . . . . . . . . . . . . . . . 21 (𝑡 = 𝑧 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)))
1918csbeq1d 3847 . . . . . . . . . . . . . . . . . . . 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 6830 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 = 𝑧 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑧)))
21 2fveq3 6830 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑡 = 𝑧 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑧)))
2221imaeq1d 5998 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑡 = 𝑧 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑧)) “ (1...𝑗)))
2322xpeq1d 5649 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 = 𝑧 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}))
2421imaeq1d 5998 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑡 = 𝑧 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)))
2524xpeq1d 5649 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 = 𝑧 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))
2623, 25uneq12d 4111 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 = 𝑧 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))
2720, 26oveq12d 7355 . . . . . . . . . . . . . . . . . . . . 21 (𝑡 = 𝑧 → ((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑧)) ∘f + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))
2827csbeq2dv 3850 . . . . . . . . . . . . . . . . . . . 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}))))
2919, 28eqtrd 2776 . . . . . . . . . . . . . . . . . . 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}))))
3029mpteq2dv 5194 . . . . . . . . . . . . . . . . . 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})))))
3130eqeq2d 2747 . . . . . . . . . . . . . . . . 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}))))))
3231, 2elrab2 3637 . . . . . . . . . . . . . . . 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}))))))
3332simprbi 497 . . . . . . . . . . . . . . 15 (𝑧𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘f + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
3433ad2antlr 724 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘f + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
35 elrabi 3628 . . . . . . . . . . . . . . . . . . . 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...𝑁)))
3635, 2eleq2s 2855 . . . . . . . . . . . . . . . . . . 19 (𝑧𝑆𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
37 xp1st 7931 . . . . . . . . . . . . . . . . . . 19 (𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
3836, 37syl 17 . . . . . . . . . . . . . . . . . 18 (𝑧𝑆 → (1st𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
39 xp1st 7931 . . . . . . . . . . . . . . . . . 18 ((1st𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑧)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
4038, 39syl 17 . . . . . . . . . . . . . . . . 17 (𝑧𝑆 → (1st ‘(1st𝑧)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
41 elmapi 8708 . . . . . . . . . . . . . . . . 17 ((1st ‘(1st𝑧)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑧)):(1...𝑁)⟶(0..^𝐾))
4240, 41syl 17 . . . . . . . . . . . . . . . 16 (𝑧𝑆 → (1st ‘(1st𝑧)):(1...𝑁)⟶(0..^𝐾))
43 elfzoelz 13488 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (0..^𝐾) → 𝑛 ∈ ℤ)
4443ssriv 3936 . . . . . . . . . . . . . . . 16 (0..^𝐾) ⊆ ℤ
45 fss 6668 . . . . . . . . . . . . . . . 16 (((1st ‘(1st𝑧)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1st ‘(1st𝑧)):(1...𝑁)⟶ℤ)
4642, 44, 45sylancl 586 . . . . . . . . . . . . . . 15 (𝑧𝑆 → (1st ‘(1st𝑧)):(1...𝑁)⟶ℤ)
4746ad2antlr 724 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (1st ‘(1st𝑧)):(1...𝑁)⟶ℤ)
48 xp2nd 7932 . . . . . . . . . . . . . . . . 17 ((1st𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
4938, 48syl 17 . . . . . . . . . . . . . . . 16 (𝑧𝑆 → (2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
50 fvex 6838 . . . . . . . . . . . . . . . . 17 (2nd ‘(1st𝑧)) ∈ V
51 f1oeq1 6755 . . . . . . . . . . . . . . . . 17 (𝑓 = (2nd ‘(1st𝑧)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁)))
5250, 51elab 3619 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
5349, 52sylib 217 . . . . . . . . . . . . . . 15 (𝑧𝑆 → (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
5453ad2antlr 724 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
55 simpr 485 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑧) ∈ (1...(𝑁 − 1)))
5615, 34, 47, 54, 55poimirlem1 35891 . . . . . . . . . . . . 13 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → ¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛))
571ad2antrr 723 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → 𝑁 ∈ ℕ)
58 fveq2 6825 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
5958breq2d 5104 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
6059ifbid 4496 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
6160csbeq1d 3847 . . . . . . . . . . . . . . . . . . . . . . . 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 6830 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
63 2fveq3 6830 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
6463imaeq1d 5998 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
6564xpeq1d 5649 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
6663imaeq1d 5998 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
6766xpeq1d 5649 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
6865, 67uneq12d 4111 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
6962, 68oveq12d 7355 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
7069csbeq2dv 3850 . . . . . . . . . . . . . . . . . . . . . . . 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}))))
7161, 70eqtrd 2776 . . . . . . . . . . . . . . . . . . . . . . 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}))))
7271mpteq2dv 5194 . . . . . . . . . . . . . . . . . . . . . 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})))))
7372eqeq2d 2747 . . . . . . . . . . . . . . . . . . . . 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}))))))
7473, 2elrab2 3637 . . . . . . . . . . . . . . . . . . . 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}))))))
7574simprbi 497 . . . . . . . . . . . . . . . . . . 19 (𝑇𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
764, 75syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
7776ad2antrr 723 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
78 elrabi 3628 . . . . . . . . . . . . . . . . . . . . . . . 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...𝑁)))
7978, 2eleq2s 2855 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑇𝑆𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
804, 79syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
81 xp1st 7931 . . . . . . . . . . . . . . . . . . . . . 22 (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
8280, 81syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
83 xp1st 7931 . . . . . . . . . . . . . . . . . . . . 21 ((1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
8482, 83syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
85 elmapi 8708 . . . . . . . . . . . . . . . . . . . 20 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
8684, 85syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
87 fss 6668 . . . . . . . . . . . . . . . . . . 19 (((1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1st ‘(1st𝑇)):(1...𝑁)⟶ℤ)
8886, 44, 87sylancl 586 . . . . . . . . . . . . . . . . . 18 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶ℤ)
8988ad2antrr 723 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (1st ‘(1st𝑇)):(1...𝑁)⟶ℤ)
90 xp2nd 7932 . . . . . . . . . . . . . . . . . . . 20 ((1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
9182, 90syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
92 fvex 6838 . . . . . . . . . . . . . . . . . . . 20 (2nd ‘(1st𝑇)) ∈ V
93 f1oeq1 6755 . . . . . . . . . . . . . . . . . . . 20 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
9492, 93elab 3619 . . . . . . . . . . . . . . . . . . 19 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
9591, 94sylib 217 . . . . . . . . . . . . . . . . . 18 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
9695ad2antrr 723 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
97 simplr 766 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd𝑧) ∈ (1...(𝑁 − 1)))
98 xp2nd 7932 . . . . . . . . . . . . . . . . . . . 20 (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (2nd𝑇) ∈ (0...𝑁))
9980, 98syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (2nd𝑇) ∈ (0...𝑁))
10099adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑇) ∈ (0...𝑁))
101 eldifsn 4734 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑇) ∈ ((0...𝑁) ∖ {(2nd𝑧)}) ↔ ((2nd𝑇) ∈ (0...𝑁) ∧ (2nd𝑇) ≠ (2nd𝑧)))
102101biimpri 227 . . . . . . . . . . . . . . . . . 18 (((2nd𝑇) ∈ (0...𝑁) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd𝑇) ∈ ((0...𝑁) ∖ {(2nd𝑧)}))
103100, 102sylan 580 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd𝑇) ∈ ((0...𝑁) ∖ {(2nd𝑧)}))
10457, 77, 89, 96, 97, 103poimirlem2 35892 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛))
105104ex 413 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → ((2nd𝑇) ≠ (2nd𝑧) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛)))
106105necon1bd 2958 . . . . . . . . . . . . . 14 ((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛) → (2nd𝑇) = (2nd𝑧)))
107106adantlr 712 . . . . . . . . . . . . 13 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛) → (2nd𝑇) = (2nd𝑧)))
10856, 107mpd 15 . . . . . . . . . . . 12 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑇) = (2nd𝑧))
109108neeq1d 3000 . . . . . . . . . . 11 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → ((2nd𝑇) ≠ 0 ↔ (2nd𝑧) ≠ 0))
110109exbiri 808 . . . . . . . . . 10 ((𝜑𝑧𝑆) → ((2nd𝑧) ∈ (1...(𝑁 − 1)) → ((2nd𝑧) ≠ 0 → (2nd𝑇) ≠ 0)))
11114, 110mpdi 45 . . . . . . . . 9 ((𝜑𝑧𝑆) → ((2nd𝑧) ∈ (1...(𝑁 − 1)) → (2nd𝑇) ≠ 0))
112111necon2bd 2956 . . . . . . . 8 ((𝜑𝑧𝑆) → ((2nd𝑇) = 0 → ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))))
1138, 112mpd 15 . . . . . . 7 ((𝜑𝑧𝑆) → ¬ (2nd𝑧) ∈ (1...(𝑁 − 1)))
114 xp2nd 7932 . . . . . . . . 9 (𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (2nd𝑧) ∈ (0...𝑁))
11536, 114syl 17 . . . . . . . 8 (𝑧𝑆 → (2nd𝑧) ∈ (0...𝑁))
1161nncnd 12090 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑁 ∈ ℂ)
117 npcan1 11501 . . . . . . . . . . . . . . . . . . 19 (𝑁 ∈ ℂ → ((𝑁 − 1) + 1) = 𝑁)
118116, 117syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
119 nnuz 12722 . . . . . . . . . . . . . . . . . . 19 ℕ = (ℤ‘1)
1201, 119eleqtrdi 2847 . . . . . . . . . . . . . . . . . 18 (𝜑𝑁 ∈ (ℤ‘1))
121118, 120eqeltrd 2837 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ‘1))
1221nnzd 12526 . . . . . . . . . . . . . . . . . . . 20 (𝜑𝑁 ∈ ℤ)
123 peano2zm 12464 . . . . . . . . . . . . . . . . . . . 20 (𝑁 ∈ ℤ → (𝑁 − 1) ∈ ℤ)
124122, 123syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑁 − 1) ∈ ℤ)
125 uzid 12698 . . . . . . . . . . . . . . . . . . 19 ((𝑁 − 1) ∈ ℤ → (𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)))
126 peano2uz 12742 . . . . . . . . . . . . . . . . . . 19 ((𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
127124, 125, 1263syl 18 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
128118, 127eqeltrrd 2838 . . . . . . . . . . . . . . . . 17 (𝜑𝑁 ∈ (ℤ‘(𝑁 − 1)))
129 fzsplit2 13382 . . . . . . . . . . . . . . . . 17 ((((𝑁 − 1) + 1) ∈ (ℤ‘1) ∧ 𝑁 ∈ (ℤ‘(𝑁 − 1))) → (1...𝑁) = ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
130121, 128, 129syl2anc 584 . . . . . . . . . . . . . . . 16 (𝜑 → (1...𝑁) = ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
131118oveq1d 7352 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑁 − 1) + 1)...𝑁) = (𝑁...𝑁))
132 fzsn 13399 . . . . . . . . . . . . . . . . . . 19 (𝑁 ∈ ℤ → (𝑁...𝑁) = {𝑁})
133122, 132syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑁...𝑁) = {𝑁})
134131, 133eqtrd 2776 . . . . . . . . . . . . . . . . 17 (𝜑 → (((𝑁 − 1) + 1)...𝑁) = {𝑁})
135134uneq2d 4110 . . . . . . . . . . . . . . . 16 (𝜑 → ((1...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)) = ((1...(𝑁 − 1)) ∪ {𝑁}))
136130, 135eqtrd 2776 . . . . . . . . . . . . . . 15 (𝜑 → (1...𝑁) = ((1...(𝑁 − 1)) ∪ {𝑁}))
137136eleq2d 2822 . . . . . . . . . . . . . 14 (𝜑 → ((2nd𝑧) ∈ (1...𝑁) ↔ (2nd𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁})))
138137notbid 317 . . . . . . . . . . . . 13 (𝜑 → (¬ (2nd𝑧) ∈ (1...𝑁) ↔ ¬ (2nd𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁})))
139 ioran 981 . . . . . . . . . . . . . 14 (¬ ((2nd𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd𝑧) = 𝑁) ↔ (¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁))
140 elun 4095 . . . . . . . . . . . . . . 15 ((2nd𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁}) ↔ ((2nd𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd𝑧) ∈ {𝑁}))
141 fvex 6838 . . . . . . . . . . . . . . . . 17 (2nd𝑧) ∈ V
142141elsn 4588 . . . . . . . . . . . . . . . 16 ((2nd𝑧) ∈ {𝑁} ↔ (2nd𝑧) = 𝑁)
143142orbi2i 910 . . . . . . . . . . . . . . 15 (((2nd𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd𝑧) ∈ {𝑁}) ↔ ((2nd𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd𝑧) = 𝑁))
144140, 143bitri 274 . . . . . . . . . . . . . 14 ((2nd𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁}) ↔ ((2nd𝑧) ∈ (1...(𝑁 − 1)) ∨ (2nd𝑧) = 𝑁))
145139, 144xchnxbir 332 . . . . . . . . . . . . 13 (¬ (2nd𝑧) ∈ ((1...(𝑁 − 1)) ∪ {𝑁}) ↔ (¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁))
146138, 145bitrdi 286 . . . . . . . . . . . 12 (𝜑 → (¬ (2nd𝑧) ∈ (1...𝑁) ↔ (¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁)))
147146anbi2d 629 . . . . . . . . . . 11 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ ¬ (2nd𝑧) ∈ (1...𝑁)) ↔ ((2nd𝑧) ∈ (0...𝑁) ∧ (¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁))))
1481nnnn0d 12394 . . . . . . . . . . . . . . . . 17 (𝜑𝑁 ∈ ℕ0)
149 nn0uz 12721 . . . . . . . . . . . . . . . . 17 0 = (ℤ‘0)
150148, 149eleqtrdi 2847 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ (ℤ‘0))
151 fzpred 13405 . . . . . . . . . . . . . . . 16 (𝑁 ∈ (ℤ‘0) → (0...𝑁) = ({0} ∪ ((0 + 1)...𝑁)))
152150, 151syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (0...𝑁) = ({0} ∪ ((0 + 1)...𝑁)))
153152difeq1d 4068 . . . . . . . . . . . . . 14 (𝜑 → ((0...𝑁) ∖ (1...𝑁)) = (({0} ∪ ((0 + 1)...𝑁)) ∖ (1...𝑁)))
154 difun2 4427 . . . . . . . . . . . . . . 15 (({0} ∪ (1...𝑁)) ∖ (1...𝑁)) = ({0} ∖ (1...𝑁))
155 0p1e1 12196 . . . . . . . . . . . . . . . . . 18 (0 + 1) = 1
156155oveq1i 7347 . . . . . . . . . . . . . . . . 17 ((0 + 1)...𝑁) = (1...𝑁)
157156uneq2i 4107 . . . . . . . . . . . . . . . 16 ({0} ∪ ((0 + 1)...𝑁)) = ({0} ∪ (1...𝑁))
158157difeq1i 4065 . . . . . . . . . . . . . . 15 (({0} ∪ ((0 + 1)...𝑁)) ∖ (1...𝑁)) = (({0} ∪ (1...𝑁)) ∖ (1...𝑁))
159 incom 4148 . . . . . . . . . . . . . . . . 17 ({0} ∩ (1...𝑁)) = ((1...𝑁) ∩ {0})
160 elfznn 13386 . . . . . . . . . . . . . . . . . . 19 (0 ∈ (1...𝑁) → 0 ∈ ℕ)
1619, 160mto 196 . . . . . . . . . . . . . . . . . 18 ¬ 0 ∈ (1...𝑁)
162 disjsn 4659 . . . . . . . . . . . . . . . . . 18 (((1...𝑁) ∩ {0}) = ∅ ↔ ¬ 0 ∈ (1...𝑁))
163161, 162mpbir 230 . . . . . . . . . . . . . . . . 17 ((1...𝑁) ∩ {0}) = ∅
164159, 163eqtri 2764 . . . . . . . . . . . . . . . 16 ({0} ∩ (1...𝑁)) = ∅
165 disj3 4400 . . . . . . . . . . . . . . . 16 (({0} ∩ (1...𝑁)) = ∅ ↔ {0} = ({0} ∖ (1...𝑁)))
166164, 165mpbi 229 . . . . . . . . . . . . . . 15 {0} = ({0} ∖ (1...𝑁))
167154, 158, 1663eqtr4i 2774 . . . . . . . . . . . . . 14 (({0} ∪ ((0 + 1)...𝑁)) ∖ (1...𝑁)) = {0}
168153, 167eqtrdi 2792 . . . . . . . . . . . . 13 (𝜑 → ((0...𝑁) ∖ (1...𝑁)) = {0})
169168eleq2d 2822 . . . . . . . . . . . 12 (𝜑 → ((2nd𝑧) ∈ ((0...𝑁) ∖ (1...𝑁)) ↔ (2nd𝑧) ∈ {0}))
170 eldif 3908 . . . . . . . . . . . 12 ((2nd𝑧) ∈ ((0...𝑁) ∖ (1...𝑁)) ↔ ((2nd𝑧) ∈ (0...𝑁) ∧ ¬ (2nd𝑧) ∈ (1...𝑁)))
171141elsn 4588 . . . . . . . . . . . 12 ((2nd𝑧) ∈ {0} ↔ (2nd𝑧) = 0)
172169, 170, 1713bitr3g 312 . . . . . . . . . . 11 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ ¬ (2nd𝑧) ∈ (1...𝑁)) ↔ (2nd𝑧) = 0))
173147, 172bitr3d 280 . . . . . . . . . 10 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ (¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁)) ↔ (2nd𝑧) = 0))
174173biimpd 228 . . . . . . . . 9 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ (¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁)) → (2nd𝑧) = 0))
175174expdimp 453 . . . . . . . 8 ((𝜑 ∧ (2nd𝑧) ∈ (0...𝑁)) → ((¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁) → (2nd𝑧) = 0))
176115, 175sylan2 593 . . . . . . 7 ((𝜑𝑧𝑆) → ((¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ∧ ¬ (2nd𝑧) = 𝑁) → (2nd𝑧) = 0))
177113, 176mpand 692 . . . . . 6 ((𝜑𝑧𝑆) → (¬ (2nd𝑧) = 𝑁 → (2nd𝑧) = 0))
1781, 2, 3poimirlem13 35903 . . . . . . . . . 10 (𝜑 → ∃*𝑧𝑆 (2nd𝑧) = 0)
179 fveqeq2 6834 . . . . . . . . . . 11 (𝑧 = 𝑠 → ((2nd𝑧) = 0 ↔ (2nd𝑠) = 0))
180179rmo4 3676 . . . . . . . . . 10 (∃*𝑧𝑆 (2nd𝑧) = 0 ↔ ∀𝑧𝑆𝑠𝑆 (((2nd𝑧) = 0 ∧ (2nd𝑠) = 0) → 𝑧 = 𝑠))
181178, 180sylib 217 . . . . . . . . 9 (𝜑 → ∀𝑧𝑆𝑠𝑆 (((2nd𝑧) = 0 ∧ (2nd𝑠) = 0) → 𝑧 = 𝑠))
182181r19.21bi 3230 . . . . . . . 8 ((𝜑𝑧𝑆) → ∀𝑠𝑆 (((2nd𝑧) = 0 ∧ (2nd𝑠) = 0) → 𝑧 = 𝑠))
1834adantr 481 . . . . . . . 8 ((𝜑𝑧𝑆) → 𝑇𝑆)
184 fveqeq2 6834 . . . . . . . . . . 11 (𝑠 = 𝑇 → ((2nd𝑠) = 0 ↔ (2nd𝑇) = 0))
185184anbi2d 629 . . . . . . . . . 10 (𝑠 = 𝑇 → (((2nd𝑧) = 0 ∧ (2nd𝑠) = 0) ↔ ((2nd𝑧) = 0 ∧ (2nd𝑇) = 0)))
186 eqeq2 2748 . . . . . . . . . 10 (𝑠 = 𝑇 → (𝑧 = 𝑠𝑧 = 𝑇))
187185, 186imbi12d 344 . . . . . . . . 9 (𝑠 = 𝑇 → ((((2nd𝑧) = 0 ∧ (2nd𝑠) = 0) → 𝑧 = 𝑠) ↔ (((2nd𝑧) = 0 ∧ (2nd𝑇) = 0) → 𝑧 = 𝑇)))
188187rspccv 3567 . . . . . . . 8 (∀𝑠𝑆 (((2nd𝑧) = 0 ∧ (2nd𝑠) = 0) → 𝑧 = 𝑠) → (𝑇𝑆 → (((2nd𝑧) = 0 ∧ (2nd𝑇) = 0) → 𝑧 = 𝑇)))
189182, 183, 188sylc 65 . . . . . . 7 ((𝜑𝑧𝑆) → (((2nd𝑧) = 0 ∧ (2nd𝑇) = 0) → 𝑧 = 𝑇))
1908, 189mpan2d 691 . . . . . 6 ((𝜑𝑧𝑆) → ((2nd𝑧) = 0 → 𝑧 = 𝑇))
191177, 190syld 47 . . . . 5 ((𝜑𝑧𝑆) → (¬ (2nd𝑧) = 𝑁𝑧 = 𝑇))
192191necon1ad 2957 . . . 4 ((𝜑𝑧𝑆) → (𝑧𝑇 → (2nd𝑧) = 𝑁))
193192ralrimiva 3139 . . 3 (𝜑 → ∀𝑧𝑆 (𝑧𝑇 → (2nd𝑧) = 𝑁))
1941, 2, 3poimirlem14 35904 . . 3 (𝜑 → ∃*𝑧𝑆 (2nd𝑧) = 𝑁)
195 rmoim 3686 . . 3 (∀𝑧𝑆 (𝑧𝑇 → (2nd𝑧) = 𝑁) → (∃*𝑧𝑆 (2nd𝑧) = 𝑁 → ∃*𝑧𝑆 𝑧𝑇))
196193, 194, 195sylc 65 . 2 (𝜑 → ∃*𝑧𝑆 𝑧𝑇)
197 reu5 3351 . 2 (∃!𝑧𝑆 𝑧𝑇 ↔ (∃𝑧𝑆 𝑧𝑇 ∧ ∃*𝑧𝑆 𝑧𝑇))
1987, 196, 197sylanbrc 583 1 (𝜑 → ∃!𝑧𝑆 𝑧𝑇)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  wo 844   = wceq 1540  wcel 2105  {cab 2713  wne 2940  wral 3061  wrex 3070  ∃!wreu 3347  ∃*wrmo 3348  {crab 3403  csb 3843  cdif 3895  cun 3896  cin 3897  wss 3898  c0 4269  ifcif 4473  {csn 4573   class class class wbr 5092  cmpt 5175   × cxp 5618  ran crn 5621  cima 5623  wf 6475  1-1-ontowf1o 6478  cfv 6479  (class class class)co 7337  f cof 7593  1st c1st 7897  2nd c2nd 7898  m cmap 8686  cc 10970  0cc0 10972  1c1 10973   + caddc 10975   < clt 11110  cmin 11306  cn 12074  0cn0 12334  cz 12420  cuz 12683  ...cfz 13340  ..^cfzo 13483
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5229  ax-sep 5243  ax-nul 5250  ax-pow 5308  ax-pr 5372  ax-un 7650  ax-cnex 11028  ax-resscn 11029  ax-1cn 11030  ax-icn 11031  ax-addcl 11032  ax-addrcl 11033  ax-mulcl 11034  ax-mulrcl 11035  ax-mulcom 11036  ax-addass 11037  ax-mulass 11038  ax-distr 11039  ax-i2m1 11040  ax-1ne0 11041  ax-1rid 11042  ax-rnegex 11043  ax-rrecex 11044  ax-cnre 11045  ax-pre-lttri 11046  ax-pre-lttrn 11047  ax-pre-ltadd 11048  ax-pre-mulgt0 11049
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3728  df-csb 3844  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3917  df-nul 4270  df-if 4474  df-pw 4549  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4853  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5176  df-tr 5210  df-id 5518  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5575  df-we 5577  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6238  df-ord 6305  df-on 6306  df-lim 6307  df-suc 6308  df-iota 6431  df-fun 6481  df-fn 6482  df-f 6483  df-f1 6484  df-fo 6485  df-f1o 6486  df-fv 6487  df-riota 7293  df-ov 7340  df-oprab 7341  df-mpo 7342  df-of 7595  df-om 7781  df-1st 7899  df-2nd 7900  df-frecs 8167  df-wrecs 8198  df-recs 8272  df-rdg 8311  df-1o 8367  df-er 8569  df-map 8688  df-en 8805  df-dom 8806  df-sdom 8807  df-fin 8808  df-pnf 11112  df-mnf 11113  df-xr 11114  df-ltxr 11115  df-le 11116  df-sub 11308  df-neg 11309  df-nn 12075  df-n0 12335  df-z 12421  df-uz 12684  df-fz 13341  df-fzo 13484
This theorem is referenced by:  poimirlem22  35912
  Copyright terms: Public domain W3C validator