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

Theorem poimirlem21 34302
Description: Lemma for poimir 34314 stating that, given a face not on a back face of the cube and a simplex in which it's opposite the final point of 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..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
poimirlem22.1 (𝜑𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑𝑚 (1...𝑁)))
poimirlem22.2 (𝜑𝑇𝑆)
poimirlem22.3 ((𝜑𝑛 ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝𝑛) ≠ 0)
poimirlem21.4 (𝜑 → (2nd𝑇) = 𝑁)
Assertion
Ref Expression
poimirlem21 (𝜑 → ∃!𝑧𝑆 𝑧𝑇)
Distinct variable groups:   𝑓,𝑗,𝑛,𝑝,𝑡,𝑦,𝑧   𝜑,𝑗,𝑛,𝑦   𝑗,𝐹,𝑛,𝑦   𝑗,𝑁,𝑛,𝑦   𝑇,𝑗,𝑛,𝑦   𝜑,𝑝,𝑡   𝑓,𝐾,𝑗,𝑛,𝑝,𝑡   𝑓,𝑁,𝑝,𝑡   𝑇,𝑓,𝑝   𝜑,𝑧   𝑓,𝐹,𝑝,𝑡,𝑧   𝑧,𝐾   𝑧,𝑁   𝑡,𝑇,𝑧   𝑆,𝑗,𝑛,𝑝,𝑡,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem21
Dummy variable 𝑠 is distinct from all other variables.
StepHypRef Expression
1 poimir.0 . . 3 (𝜑𝑁 ∈ ℕ)
2 poimirlem22.s . . 3 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
3 poimirlem22.1 . . 3 (𝜑𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑𝑚 (1...𝑁)))
4 poimirlem22.2 . . 3 (𝜑𝑇𝑆)
5 poimirlem22.3 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → ∃𝑝 ∈ ran 𝐹(𝑝𝑛) ≠ 0)
6 poimirlem21.4 . . 3 (𝜑 → (2nd𝑇) = 𝑁)
71, 2, 3, 4, 5, 6poimirlem20 34301 . 2 (𝜑 → ∃𝑧𝑆 𝑧𝑇)
86adantr 473 . . . . . . . 8 ((𝜑𝑧𝑆) → (2nd𝑇) = 𝑁)
91nnred 11448 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ ℝ)
109ltm1d 11365 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 − 1) < 𝑁)
11 nnm1nn0 11743 . . . . . . . . . . . . . . . . . 18 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
121, 11syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑁 − 1) ∈ ℕ0)
1312nn0red 11761 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑁 − 1) ∈ ℝ)
1413, 9ltnled 10579 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑁 − 1) < 𝑁 ↔ ¬ 𝑁 ≤ (𝑁 − 1)))
1510, 14mpbid 224 . . . . . . . . . . . . . 14 (𝜑 → ¬ 𝑁 ≤ (𝑁 − 1))
16 elfzle2 12720 . . . . . . . . . . . . . 14 (𝑁 ∈ (1...(𝑁 − 1)) → 𝑁 ≤ (𝑁 − 1))
1715, 16nsyl 138 . . . . . . . . . . . . 13 (𝜑 → ¬ 𝑁 ∈ (1...(𝑁 − 1)))
18 eleq1 2847 . . . . . . . . . . . . . 14 ((2nd𝑧) = 𝑁 → ((2nd𝑧) ∈ (1...(𝑁 − 1)) ↔ 𝑁 ∈ (1...(𝑁 − 1))))
1918notbid 310 . . . . . . . . . . . . 13 ((2nd𝑧) = 𝑁 → (¬ (2nd𝑧) ∈ (1...(𝑁 − 1)) ↔ ¬ 𝑁 ∈ (1...(𝑁 − 1))))
2017, 19syl5ibrcom 239 . . . . . . . . . . . 12 (𝜑 → ((2nd𝑧) = 𝑁 → ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))))
2120necon2ad 2976 . . . . . . . . . . 11 (𝜑 → ((2nd𝑧) ∈ (1...(𝑁 − 1)) → (2nd𝑧) ≠ 𝑁))
2221adantr 473 . . . . . . . . . 10 ((𝜑𝑧𝑆) → ((2nd𝑧) ∈ (1...(𝑁 − 1)) → (2nd𝑧) ≠ 𝑁))
231ad2antrr 713 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → 𝑁 ∈ ℕ)
24 fveq2 6493 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 = 𝑧 → (2nd𝑡) = (2nd𝑧))
2524breq2d 4935 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 = 𝑧 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑧)))
2625ifbid 4366 . . . . . . . . . . . . . . . . . . . . 21 (𝑡 = 𝑧 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)))
2726csbeq1d 3789 . . . . . . . . . . . . . . . . . . . 20 (𝑡 = 𝑧if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
28 2fveq3 6498 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 = 𝑧 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑧)))
29 2fveq3 6498 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑡 = 𝑧 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑧)))
3029imaeq1d 5763 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑡 = 𝑧 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑧)) “ (1...𝑗)))
3130xpeq1d 5429 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 = 𝑧 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}))
3229imaeq1d 5763 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑡 = 𝑧 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)))
3332xpeq1d 5429 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 = 𝑧 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))
3431, 33uneq12d 4025 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 = 𝑧 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))
3528, 34oveq12d 6988 . . . . . . . . . . . . . . . . . . . . 21 (𝑡 = 𝑧 → ((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))
3635csbeq2dv 4250 . . . . . . . . . . . . . . . . . . . 20 (𝑡 = 𝑧if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))
3727, 36eqtrd 2808 . . . . . . . . . . . . . . . . . . 19 (𝑡 = 𝑧if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))
3837mpteq2dv 5017 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑧 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
3938eqeq2d 2782 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑧 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
4039, 2elrab2 3593 . . . . . . . . . . . . . . . 16 (𝑧𝑆 ↔ (𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
4140simprbi 489 . . . . . . . . . . . . . . 15 (𝑧𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
4241ad2antlr 714 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑧), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑧)) ∘𝑓 + ((((2nd ‘(1st𝑧)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑧)) “ ((𝑗 + 1)...𝑁)) × {0})))))
43 elrabi 3584 . . . . . . . . . . . . . . . . . . . 20 (𝑧 ∈ {𝑡 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
4443, 2eleq2s 2878 . . . . . . . . . . . . . . . . . . 19 (𝑧𝑆𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
45 xp1st 7526 . . . . . . . . . . . . . . . . . . 19 (𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
4644, 45syl 17 . . . . . . . . . . . . . . . . . 18 (𝑧𝑆 → (1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
47 xp1st 7526 . . . . . . . . . . . . . . . . . 18 ((1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑧)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
4846, 47syl 17 . . . . . . . . . . . . . . . . 17 (𝑧𝑆 → (1st ‘(1st𝑧)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
49 elmapi 8220 . . . . . . . . . . . . . . . . 17 ((1st ‘(1st𝑧)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)) → (1st ‘(1st𝑧)):(1...𝑁)⟶(0..^𝐾))
5048, 49syl 17 . . . . . . . . . . . . . . . 16 (𝑧𝑆 → (1st ‘(1st𝑧)):(1...𝑁)⟶(0..^𝐾))
51 elfzoelz 12847 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (0..^𝐾) → 𝑛 ∈ ℤ)
5251ssriv 3858 . . . . . . . . . . . . . . . 16 (0..^𝐾) ⊆ ℤ
53 fss 6351 . . . . . . . . . . . . . . . 16 (((1st ‘(1st𝑧)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1st ‘(1st𝑧)):(1...𝑁)⟶ℤ)
5450, 52, 53sylancl 577 . . . . . . . . . . . . . . 15 (𝑧𝑆 → (1st ‘(1st𝑧)):(1...𝑁)⟶ℤ)
5554ad2antlr 714 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (1st ‘(1st𝑧)):(1...𝑁)⟶ℤ)
56 xp2nd 7527 . . . . . . . . . . . . . . . . 17 ((1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
5746, 56syl 17 . . . . . . . . . . . . . . . 16 (𝑧𝑆 → (2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
58 fvex 6506 . . . . . . . . . . . . . . . . 17 (2nd ‘(1st𝑧)) ∈ V
59 f1oeq1 6427 . . . . . . . . . . . . . . . . 17 (𝑓 = (2nd ‘(1st𝑧)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁)))
6058, 59elab 3576 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
6157, 60sylib 210 . . . . . . . . . . . . . . 15 (𝑧𝑆 → (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
6261ad2antlr 714 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
63 simpr 477 . . . . . . . . . . . . . 14 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑧) ∈ (1...(𝑁 − 1)))
6423, 42, 55, 62, 63poimirlem1 34282 . . . . . . . . . . . . 13 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → ¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛))
651ad2antrr 713 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → 𝑁 ∈ ℕ)
66 fveq2 6493 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
6766breq2d 4935 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
6867ifbid 4366 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
6968csbeq1d 3789 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑡 = 𝑇if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))
70 2fveq3 6498 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
71 2fveq3 6498 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
7271imaeq1d 5763 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
7372xpeq1d 5429 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
7471imaeq1d 5763 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
7574xpeq1d 5429 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
7673, 75uneq12d 4025 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
7770, 76oveq12d 6988 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
7877csbeq2dv 4250 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑡 = 𝑇if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
7969, 78eqtrd 2808 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑡 = 𝑇if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
8079mpteq2dv 5017 . . . . . . . . . . . . . . . . . . . . . 22 (𝑡 = 𝑇 → (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
8180eqeq2d 2782 . . . . . . . . . . . . . . . . . . . . 21 (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})))) ↔ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
8281, 2elrab2 3593 . . . . . . . . . . . . . . . . . . . 20 (𝑇𝑆 ↔ (𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))))
8382simprbi 489 . . . . . . . . . . . . . . . . . . 19 (𝑇𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
844, 83syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
8584ad2antrr 713 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘𝑓 + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
86 elrabi 3584 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑇 ∈ {𝑡 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
8786, 2eleq2s 2878 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑇𝑆𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
884, 87syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
89 xp1st 7526 . . . . . . . . . . . . . . . . . . . . . 22 (𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
9088, 89syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
91 xp1st 7526 . . . . . . . . . . . . . . . . . . . . 21 ((1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
9290, 91syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)))
93 elmapi 8220 . . . . . . . . . . . . . . . . . . . 20 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑𝑚 (1...𝑁)) → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
9492, 93syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
95 fss 6351 . . . . . . . . . . . . . . . . . . 19 (((1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾) ∧ (0..^𝐾) ⊆ ℤ) → (1st ‘(1st𝑇)):(1...𝑁)⟶ℤ)
9694, 52, 95sylancl 577 . . . . . . . . . . . . . . . . . 18 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶ℤ)
9796ad2antrr 713 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (1st ‘(1st𝑇)):(1...𝑁)⟶ℤ)
98 xp2nd 7527 . . . . . . . . . . . . . . . . . . . 20 ((1st𝑇) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
9990, 98syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
100 fvex 6506 . . . . . . . . . . . . . . . . . . . 20 (2nd ‘(1st𝑇)) ∈ V
101 f1oeq1 6427 . . . . . . . . . . . . . . . . . . . 20 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
102100, 101elab 3576 . . . . . . . . . . . . . . . . . . 19 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
10399, 102sylib 210 . . . . . . . . . . . . . . . . . 18 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
104103ad2antrr 713 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
105 simplr 756 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd𝑧) ∈ (1...(𝑁 − 1)))
106 xp2nd 7527 . . . . . . . . . . . . . . . . . . . 20 (𝑇 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (2nd𝑇) ∈ (0...𝑁))
10788, 106syl 17 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (2nd𝑇) ∈ (0...𝑁))
108107adantr 473 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑇) ∈ (0...𝑁))
109 eldifsn 4587 . . . . . . . . . . . . . . . . . . 19 ((2nd𝑇) ∈ ((0...𝑁) ∖ {(2nd𝑧)}) ↔ ((2nd𝑇) ∈ (0...𝑁) ∧ (2nd𝑇) ≠ (2nd𝑧)))
110109biimpri 220 . . . . . . . . . . . . . . . . . 18 (((2nd𝑇) ∈ (0...𝑁) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd𝑇) ∈ ((0...𝑁) ∖ {(2nd𝑧)}))
111108, 110sylan 572 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → (2nd𝑇) ∈ ((0...𝑁) ∖ {(2nd𝑧)}))
11265, 85, 97, 104, 105, 111poimirlem2 34283 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) ∧ (2nd𝑇) ≠ (2nd𝑧)) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛))
113112ex 405 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → ((2nd𝑇) ≠ (2nd𝑧) → ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛)))
114113necon1bd 2979 . . . . . . . . . . . . . 14 ((𝜑 ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛) → (2nd𝑇) = (2nd𝑧)))
115114adantlr 702 . . . . . . . . . . . . 13 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (¬ ∃*𝑛 ∈ (1...𝑁)((𝐹‘((2nd𝑧) − 1))‘𝑛) ≠ ((𝐹‘(2nd𝑧))‘𝑛) → (2nd𝑇) = (2nd𝑧)))
11664, 115mpd 15 . . . . . . . . . . . 12 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑇) = (2nd𝑧))
117116neeq1d 3020 . . . . . . . . . . 11 (((𝜑𝑧𝑆) ∧ (2nd𝑧) ∈ (1...(𝑁 − 1))) → ((2nd𝑇) ≠ 𝑁 ↔ (2nd𝑧) ≠ 𝑁))
118117exbiri 798 . . . . . . . . . 10 ((𝜑𝑧𝑆) → ((2nd𝑧) ∈ (1...(𝑁 − 1)) → ((2nd𝑧) ≠ 𝑁 → (2nd𝑇) ≠ 𝑁)))
11922, 118mpdd 43 . . . . . . . . 9 ((𝜑𝑧𝑆) → ((2nd𝑧) ∈ (1...(𝑁 − 1)) → (2nd𝑇) ≠ 𝑁))
120119necon2bd 2977 . . . . . . . 8 ((𝜑𝑧𝑆) → ((2nd𝑇) = 𝑁 → ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))))
1218, 120mpd 15 . . . . . . 7 ((𝜑𝑧𝑆) → ¬ (2nd𝑧) ∈ (1...(𝑁 − 1)))
122 xp2nd 7527 . . . . . . . . 9 (𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (2nd𝑧) ∈ (0...𝑁))
12344, 122syl 17 . . . . . . . 8 (𝑧𝑆 → (2nd𝑧) ∈ (0...𝑁))
124 nn0uz 12087 . . . . . . . . . . . . . . . . . 18 0 = (ℤ‘0)
12512, 124syl6eleq 2870 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑁 − 1) ∈ (ℤ‘0))
126 fzpred 12764 . . . . . . . . . . . . . . . . 17 ((𝑁 − 1) ∈ (ℤ‘0) → (0...(𝑁 − 1)) = ({0} ∪ ((0 + 1)...(𝑁 − 1))))
127125, 126syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (0...(𝑁 − 1)) = ({0} ∪ ((0 + 1)...(𝑁 − 1))))
128 0p1e1 11562 . . . . . . . . . . . . . . . . . 18 (0 + 1) = 1
129128oveq1i 6980 . . . . . . . . . . . . . . . . 17 ((0 + 1)...(𝑁 − 1)) = (1...(𝑁 − 1))
130129uneq2i 4021 . . . . . . . . . . . . . . . 16 ({0} ∪ ((0 + 1)...(𝑁 − 1))) = ({0} ∪ (1...(𝑁 − 1)))
131127, 130syl6eq 2824 . . . . . . . . . . . . . . 15 (𝜑 → (0...(𝑁 − 1)) = ({0} ∪ (1...(𝑁 − 1))))
132131eleq2d 2845 . . . . . . . . . . . . . 14 (𝜑 → ((2nd𝑧) ∈ (0...(𝑁 − 1)) ↔ (2nd𝑧) ∈ ({0} ∪ (1...(𝑁 − 1)))))
133132notbid 310 . . . . . . . . . . . . 13 (𝜑 → (¬ (2nd𝑧) ∈ (0...(𝑁 − 1)) ↔ ¬ (2nd𝑧) ∈ ({0} ∪ (1...(𝑁 − 1)))))
134 ioran 966 . . . . . . . . . . . . . 14 (¬ ((2nd𝑧) = 0 ∨ (2nd𝑧) ∈ (1...(𝑁 − 1))) ↔ (¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))))
135 elun 4010 . . . . . . . . . . . . . . 15 ((2nd𝑧) ∈ ({0} ∪ (1...(𝑁 − 1))) ↔ ((2nd𝑧) ∈ {0} ∨ (2nd𝑧) ∈ (1...(𝑁 − 1))))
136 fvex 6506 . . . . . . . . . . . . . . . . 17 (2nd𝑧) ∈ V
137136elsn 4450 . . . . . . . . . . . . . . . 16 ((2nd𝑧) ∈ {0} ↔ (2nd𝑧) = 0)
138137orbi1i 897 . . . . . . . . . . . . . . 15 (((2nd𝑧) ∈ {0} ∨ (2nd𝑧) ∈ (1...(𝑁 − 1))) ↔ ((2nd𝑧) = 0 ∨ (2nd𝑧) ∈ (1...(𝑁 − 1))))
139135, 138bitri 267 . . . . . . . . . . . . . 14 ((2nd𝑧) ∈ ({0} ∪ (1...(𝑁 − 1))) ↔ ((2nd𝑧) = 0 ∨ (2nd𝑧) ∈ (1...(𝑁 − 1))))
140134, 139xchnxbir 325 . . . . . . . . . . . . 13 (¬ (2nd𝑧) ∈ ({0} ∪ (1...(𝑁 − 1))) ↔ (¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))))
141133, 140syl6bb 279 . . . . . . . . . . . 12 (𝜑 → (¬ (2nd𝑧) ∈ (0...(𝑁 − 1)) ↔ (¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1)))))
142141anbi2d 619 . . . . . . . . . . 11 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ ¬ (2nd𝑧) ∈ (0...(𝑁 − 1))) ↔ ((2nd𝑧) ∈ (0...𝑁) ∧ (¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))))))
143 uncom 4014 . . . . . . . . . . . . . . . 16 ((0...(𝑁 − 1)) ∪ {𝑁}) = ({𝑁} ∪ (0...(𝑁 − 1)))
144143difeq1i 3981 . . . . . . . . . . . . . . 15 (((0...(𝑁 − 1)) ∪ {𝑁}) ∖ (0...(𝑁 − 1))) = (({𝑁} ∪ (0...(𝑁 − 1))) ∖ (0...(𝑁 − 1)))
145 difun2 4306 . . . . . . . . . . . . . . 15 (({𝑁} ∪ (0...(𝑁 − 1))) ∖ (0...(𝑁 − 1))) = ({𝑁} ∖ (0...(𝑁 − 1)))
146144, 145eqtri 2796 . . . . . . . . . . . . . 14 (((0...(𝑁 − 1)) ∪ {𝑁}) ∖ (0...(𝑁 − 1))) = ({𝑁} ∖ (0...(𝑁 − 1)))
1471nncnd 11449 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑁 ∈ ℂ)
148 npcan1 10858 . . . . . . . . . . . . . . . . . . 19 (𝑁 ∈ ℂ → ((𝑁 − 1) + 1) = 𝑁)
149147, 148syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
1501nnnn0d 11760 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑁 ∈ ℕ0)
151150, 124syl6eleq 2870 . . . . . . . . . . . . . . . . . 18 (𝜑𝑁 ∈ (ℤ‘0))
152149, 151eqeltrd 2860 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ‘0))
15312nn0zd 11891 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑁 − 1) ∈ ℤ)
154 uzid 12066 . . . . . . . . . . . . . . . . . . 19 ((𝑁 − 1) ∈ ℤ → (𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)))
155 peano2uz 12108 . . . . . . . . . . . . . . . . . . 19 ((𝑁 − 1) ∈ (ℤ‘(𝑁 − 1)) → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
156153, 154, 1553syl 18 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑁 − 1) + 1) ∈ (ℤ‘(𝑁 − 1)))
157149, 156eqeltrrd 2861 . . . . . . . . . . . . . . . . 17 (𝜑𝑁 ∈ (ℤ‘(𝑁 − 1)))
158 fzsplit2 12741 . . . . . . . . . . . . . . . . 17 ((((𝑁 − 1) + 1) ∈ (ℤ‘0) ∧ 𝑁 ∈ (ℤ‘(𝑁 − 1))) → (0...𝑁) = ((0...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
159152, 157, 158syl2anc 576 . . . . . . . . . . . . . . . 16 (𝜑 → (0...𝑁) = ((0...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)))
160149oveq1d 6985 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((𝑁 − 1) + 1)...𝑁) = (𝑁...𝑁))
1611nnzd 11892 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑁 ∈ ℤ)
162 fzsn 12758 . . . . . . . . . . . . . . . . . . 19 (𝑁 ∈ ℤ → (𝑁...𝑁) = {𝑁})
163161, 162syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑁...𝑁) = {𝑁})
164160, 163eqtrd 2808 . . . . . . . . . . . . . . . . 17 (𝜑 → (((𝑁 − 1) + 1)...𝑁) = {𝑁})
165164uneq2d 4024 . . . . . . . . . . . . . . . 16 (𝜑 → ((0...(𝑁 − 1)) ∪ (((𝑁 − 1) + 1)...𝑁)) = ((0...(𝑁 − 1)) ∪ {𝑁}))
166159, 165eqtrd 2808 . . . . . . . . . . . . . . 15 (𝜑 → (0...𝑁) = ((0...(𝑁 − 1)) ∪ {𝑁}))
167166difeq1d 3984 . . . . . . . . . . . . . 14 (𝜑 → ((0...𝑁) ∖ (0...(𝑁 − 1))) = (((0...(𝑁 − 1)) ∪ {𝑁}) ∖ (0...(𝑁 − 1))))
168 elfzle2 12720 . . . . . . . . . . . . . . . 16 (𝑁 ∈ (0...(𝑁 − 1)) → 𝑁 ≤ (𝑁 − 1))
16915, 168nsyl 138 . . . . . . . . . . . . . . 15 (𝜑 → ¬ 𝑁 ∈ (0...(𝑁 − 1)))
170 incom 4062 . . . . . . . . . . . . . . . . 17 ((0...(𝑁 − 1)) ∩ {𝑁}) = ({𝑁} ∩ (0...(𝑁 − 1)))
171170eqeq1i 2777 . . . . . . . . . . . . . . . 16 (((0...(𝑁 − 1)) ∩ {𝑁}) = ∅ ↔ ({𝑁} ∩ (0...(𝑁 − 1))) = ∅)
172 disjsn 4515 . . . . . . . . . . . . . . . 16 (((0...(𝑁 − 1)) ∩ {𝑁}) = ∅ ↔ ¬ 𝑁 ∈ (0...(𝑁 − 1)))
173 disj3 4280 . . . . . . . . . . . . . . . 16 (({𝑁} ∩ (0...(𝑁 − 1))) = ∅ ↔ {𝑁} = ({𝑁} ∖ (0...(𝑁 − 1))))
174171, 172, 1733bitr3i 293 . . . . . . . . . . . . . . 15 𝑁 ∈ (0...(𝑁 − 1)) ↔ {𝑁} = ({𝑁} ∖ (0...(𝑁 − 1))))
175169, 174sylib 210 . . . . . . . . . . . . . 14 (𝜑 → {𝑁} = ({𝑁} ∖ (0...(𝑁 − 1))))
176146, 167, 1753eqtr4a 2834 . . . . . . . . . . . . 13 (𝜑 → ((0...𝑁) ∖ (0...(𝑁 − 1))) = {𝑁})
177176eleq2d 2845 . . . . . . . . . . . 12 (𝜑 → ((2nd𝑧) ∈ ((0...𝑁) ∖ (0...(𝑁 − 1))) ↔ (2nd𝑧) ∈ {𝑁}))
178 eldif 3835 . . . . . . . . . . . 12 ((2nd𝑧) ∈ ((0...𝑁) ∖ (0...(𝑁 − 1))) ↔ ((2nd𝑧) ∈ (0...𝑁) ∧ ¬ (2nd𝑧) ∈ (0...(𝑁 − 1))))
179136elsn 4450 . . . . . . . . . . . 12 ((2nd𝑧) ∈ {𝑁} ↔ (2nd𝑧) = 𝑁)
180177, 178, 1793bitr3g 305 . . . . . . . . . . 11 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ ¬ (2nd𝑧) ∈ (0...(𝑁 − 1))) ↔ (2nd𝑧) = 𝑁))
181142, 180bitr3d 273 . . . . . . . . . 10 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ (¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1)))) ↔ (2nd𝑧) = 𝑁))
182181biimpd 221 . . . . . . . . 9 (𝜑 → (((2nd𝑧) ∈ (0...𝑁) ∧ (¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1)))) → (2nd𝑧) = 𝑁))
183182expdimp 445 . . . . . . . 8 ((𝜑 ∧ (2nd𝑧) ∈ (0...𝑁)) → ((¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑧) = 𝑁))
184123, 183sylan2 583 . . . . . . 7 ((𝜑𝑧𝑆) → ((¬ (2nd𝑧) = 0 ∧ ¬ (2nd𝑧) ∈ (1...(𝑁 − 1))) → (2nd𝑧) = 𝑁))
185121, 184mpan2d 681 . . . . . 6 ((𝜑𝑧𝑆) → (¬ (2nd𝑧) = 0 → (2nd𝑧) = 𝑁))
1861, 2, 3poimirlem14 34295 . . . . . . . . . 10 (𝜑 → ∃*𝑧𝑆 (2nd𝑧) = 𝑁)
187 fveqeq2 6502 . . . . . . . . . . 11 (𝑧 = 𝑠 → ((2nd𝑧) = 𝑁 ↔ (2nd𝑠) = 𝑁))
188187rmo4 3629 . . . . . . . . . 10 (∃*𝑧𝑆 (2nd𝑧) = 𝑁 ↔ ∀𝑧𝑆𝑠𝑆 (((2nd𝑧) = 𝑁 ∧ (2nd𝑠) = 𝑁) → 𝑧 = 𝑠))
189186, 188sylib 210 . . . . . . . . 9 (𝜑 → ∀𝑧𝑆𝑠𝑆 (((2nd𝑧) = 𝑁 ∧ (2nd𝑠) = 𝑁) → 𝑧 = 𝑠))
190189r19.21bi 3152 . . . . . . . 8 ((𝜑𝑧𝑆) → ∀𝑠𝑆 (((2nd𝑧) = 𝑁 ∧ (2nd𝑠) = 𝑁) → 𝑧 = 𝑠))
1914adantr 473 . . . . . . . 8 ((𝜑𝑧𝑆) → 𝑇𝑆)
192 fveqeq2 6502 . . . . . . . . . . 11 (𝑠 = 𝑇 → ((2nd𝑠) = 𝑁 ↔ (2nd𝑇) = 𝑁))
193192anbi2d 619 . . . . . . . . . 10 (𝑠 = 𝑇 → (((2nd𝑧) = 𝑁 ∧ (2nd𝑠) = 𝑁) ↔ ((2nd𝑧) = 𝑁 ∧ (2nd𝑇) = 𝑁)))
194 eqeq2 2783 . . . . . . . . . 10 (𝑠 = 𝑇 → (𝑧 = 𝑠𝑧 = 𝑇))
195193, 194imbi12d 337 . . . . . . . . 9 (𝑠 = 𝑇 → ((((2nd𝑧) = 𝑁 ∧ (2nd𝑠) = 𝑁) → 𝑧 = 𝑠) ↔ (((2nd𝑧) = 𝑁 ∧ (2nd𝑇) = 𝑁) → 𝑧 = 𝑇)))
196195rspccv 3526 . . . . . . . 8 (∀𝑠𝑆 (((2nd𝑧) = 𝑁 ∧ (2nd𝑠) = 𝑁) → 𝑧 = 𝑠) → (𝑇𝑆 → (((2nd𝑧) = 𝑁 ∧ (2nd𝑇) = 𝑁) → 𝑧 = 𝑇)))
197190, 191, 196sylc 65 . . . . . . 7 ((𝜑𝑧𝑆) → (((2nd𝑧) = 𝑁 ∧ (2nd𝑇) = 𝑁) → 𝑧 = 𝑇))
1988, 197mpan2d 681 . . . . . 6 ((𝜑𝑧𝑆) → ((2nd𝑧) = 𝑁𝑧 = 𝑇))
199185, 198syld 47 . . . . 5 ((𝜑𝑧𝑆) → (¬ (2nd𝑧) = 0 → 𝑧 = 𝑇))
200199necon1ad 2978 . . . 4 ((𝜑𝑧𝑆) → (𝑧𝑇 → (2nd𝑧) = 0))
201200ralrimiva 3126 . . 3 (𝜑 → ∀𝑧𝑆 (𝑧𝑇 → (2nd𝑧) = 0))
2021, 2, 3poimirlem13 34294 . . 3 (𝜑 → ∃*𝑧𝑆 (2nd𝑧) = 0)
203 rmoim 3639 . . 3 (∀𝑧𝑆 (𝑧𝑇 → (2nd𝑧) = 0) → (∃*𝑧𝑆 (2nd𝑧) = 0 → ∃*𝑧𝑆 𝑧𝑇))
204201, 202, 203sylc 65 . 2 (𝜑 → ∃*𝑧𝑆 𝑧𝑇)
205 reu5 3364 . 2 (∃!𝑧𝑆 𝑧𝑇 ↔ (∃𝑧𝑆 𝑧𝑇 ∧ ∃*𝑧𝑆 𝑧𝑇))
2067, 204, 205sylanbrc 575 1 (𝜑 → ∃!𝑧𝑆 𝑧𝑇)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 387  wo 833   = wceq 1507  wcel 2048  {cab 2753  wne 2961  wral 3082  wrex 3083  ∃!wreu 3084  ∃*wrmo 3085  {crab 3086  csb 3782  cdif 3822  cun 3823  cin 3824  wss 3825  c0 4173  ifcif 4344  {csn 4435   class class class wbr 4923  cmpt 5002   × cxp 5398  ran crn 5401  cima 5403  wf 6178  1-1-ontowf1o 6181  cfv 6182  (class class class)co 6970  𝑓 cof 7219  1st c1st 7492  2nd c2nd 7493  𝑚 cmap 8198  cc 10325  0cc0 10327  1c1 10328   + caddc 10330   < clt 10466  cle 10467  cmin 10662  cn 11431  0cn0 11700  cz 11786  cuz 12051  ...cfz 12701  ..^cfzo 12842
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1964  ax-8 2050  ax-9 2057  ax-10 2077  ax-11 2091  ax-12 2104  ax-13 2299  ax-ext 2745  ax-rep 5043  ax-sep 5054  ax-nul 5061  ax-pow 5113  ax-pr 5180  ax-un 7273  ax-cnex 10383  ax-resscn 10384  ax-1cn 10385  ax-icn 10386  ax-addcl 10387  ax-addrcl 10388  ax-mulcl 10389  ax-mulrcl 10390  ax-mulcom 10391  ax-addass 10392  ax-mulass 10393  ax-distr 10394  ax-i2m1 10395  ax-1ne0 10396  ax-1rid 10397  ax-rnegex 10398  ax-rrecex 10399  ax-cnre 10400  ax-pre-lttri 10401  ax-pre-lttrn 10402  ax-pre-ltadd 10403  ax-pre-mulgt0 10404
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2014  df-mo 2544  df-eu 2580  df-clab 2754  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-nel 3068  df-ral 3087  df-rex 3088  df-reu 3089  df-rmo 3090  df-rab 3091  df-v 3411  df-sbc 3678  df-csb 3783  df-dif 3828  df-un 3830  df-in 3832  df-ss 3839  df-pss 3841  df-nul 4174  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4707  df-iun 4788  df-br 4924  df-opab 4986  df-mpt 5003  df-tr 5025  df-id 5305  df-eprel 5310  df-po 5319  df-so 5320  df-fr 5359  df-we 5361  df-xp 5406  df-rel 5407  df-cnv 5408  df-co 5409  df-dm 5410  df-rn 5411  df-res 5412  df-ima 5413  df-pred 5980  df-ord 6026  df-on 6027  df-lim 6028  df-suc 6029  df-iota 6146  df-fun 6184  df-fn 6185  df-f 6186  df-f1 6187  df-fo 6188  df-f1o 6189  df-fv 6190  df-riota 6931  df-ov 6973  df-oprab 6974  df-mpo 6975  df-of 7221  df-om 7391  df-1st 7494  df-2nd 7495  df-wrecs 7743  df-recs 7805  df-rdg 7843  df-1o 7897  df-er 8081  df-map 8200  df-en 8299  df-dom 8300  df-sdom 8301  df-fin 8302  df-pnf 10468  df-mnf 10469  df-xr 10470  df-ltxr 10471  df-le 10472  df-sub 10664  df-neg 10665  df-nn 11432  df-n0 11701  df-z 11787  df-uz 12052  df-fz 12702  df-fzo 12843
This theorem is referenced by:  poimirlem22  34303
  Copyright terms: Public domain W3C validator