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

Theorem poimirlem14 38743
Description: Lemma for poimir 38762- for at most one simplex associated with a shared face is the opposite vertex last on the walk. (Contributed by Brendan Leahy, 21-Aug-2020.)
Hypotheses
Ref Expression
poimir.0 (𝜑 → 𝑁 ∈ ℕ)
poimirlem22.s 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(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...𝑁)))
Assertion
Ref Expression
poimirlem14 (𝜑 → ∃*𝑧 ∈ 𝑆 (2nd ‘𝑧) = 𝑁)
Distinct variable groups:   𝑓,𝑗,𝑡,𝑦,𝑧   𝜑,𝑗,𝑦   𝑗,𝐹,𝑦   𝑗,𝑁,𝑦   𝜑,𝑡   𝑓,𝐾,𝑗,𝑡   𝑓,𝑁,𝑡   𝜑,𝑧   𝑓,𝐹,𝑡,𝑧   𝑧,𝐾   𝑧,𝑁   𝑆,𝑗,𝑡,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem14
Dummy variables 𝑘 𝑚 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 poimir.0 . . . . . . . . 9 (𝜑 → 𝑁 ∈ ℕ)
21ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → 𝑁 ∈ ℕ)
3 poimirlem22.s . . . . . . . 8 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
4 simplrl 789 . . . . . . . 8 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → 𝑧 ∈ 𝑆)
51nngt0d 12411 . . . . . . . . . 10 (𝜑 → 0 < 𝑁)
6 breq2 5110 . . . . . . . . . . 11 ((2nd ‘𝑧) = 𝑁 → (0 < (2nd ‘𝑧) ↔ 0 < 𝑁))
76biimparc 485 . . . . . . . . . 10 ((0 < 𝑁 ∧ (2nd ‘𝑧) = 𝑁) → 0 < (2nd ‘𝑧))
85, 7sylan 592 . . . . . . . . 9 ((𝜑 ∧ (2nd ‘𝑧) = 𝑁) → 0 < (2nd ‘𝑧))
98ad2ant2r 760 . . . . . . . 8 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → 0 < (2nd ‘𝑧))
102, 3, 4, 9poimirlem5 38734 . . . . . . 7 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (𝐹‘0) = (1st ‘(1st ‘𝑧)))
11 simplrr 790 . . . . . . . 8 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → 𝑘 ∈ 𝑆)
12 breq2 5110 . . . . . . . . . . 11 ((2nd ‘𝑘) = 𝑁 → (0 < (2nd ‘𝑘) ↔ 0 < 𝑁))
1312biimparc 485 . . . . . . . . . 10 ((0 < 𝑁 ∧ (2nd ‘𝑘) = 𝑁) → 0 < (2nd ‘𝑘))
145, 13sylan 592 . . . . . . . . 9 ((𝜑 ∧ (2nd ‘𝑘) = 𝑁) → 0 < (2nd ‘𝑘))
1514ad2ant2rl 762 . . . . . . . 8 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → 0 < (2nd ‘𝑘))
162, 3, 11, 15poimirlem5 38734 . . . . . . 7 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (𝐹‘0) = (1st ‘(1st ‘𝑘)))
1710, 16eqtr3d 2800 . . . . . 6 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (1st ‘(1st ‘𝑧)) = (1st ‘(1st ‘𝑘)))
18 elrabi 3644 . . . . . . . . . . . . 13 (𝑧 ∈ {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)))
1918, 3eleq2s 2882 . . . . . . . . . . . 12 (𝑧 ∈ 𝑆 → 𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)))
20 xp1st 8054 . . . . . . . . . . . 12 (𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)) → (1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}))
21 xp2nd 8055 . . . . . . . . . . . 12 ((1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) → (2nd ‘(1st ‘𝑧)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)})
2219, 20, 213syl 19 . . . . . . . . . . 11 (𝑧 ∈ 𝑆 → (2nd ‘(1st ‘𝑧)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)})
23 fvex 6918 . . . . . . . . . . . 12 (2nd ‘(1st ‘𝑧)) ∈ V
24 f1oeq1 6831 . . . . . . . . . . . 12 (𝑓 = (2nd ‘(1st ‘𝑧)) → (𝑓:(1...𝑁)⟶1-1onto(1...𝑁) ↔ (2nd ‘(1st ‘𝑧)):(1...𝑁)⟶1-1onto(1...𝑁)))
2523, 24elab 3636 . . . . . . . . . . 11 ((2nd ‘(1st ‘𝑧)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)} ↔ (2nd ‘(1st ‘𝑧)):(1...𝑁)⟶1-1onto(1...𝑁))
2622, 25sylib 221 . . . . . . . . . 10 (𝑧 ∈ 𝑆 → (2nd ‘(1st ‘𝑧)):(1...𝑁)⟶1-1onto(1...𝑁))
27 f1ofn 6844 . . . . . . . . . 10 ((2nd ‘(1st ‘𝑧)):(1...𝑁)⟶1-1onto(1...𝑁) → (2nd ‘(1st ‘𝑧)) Fn (1...𝑁))
2826, 27syl 18 . . . . . . . . 9 (𝑧 ∈ 𝑆 → (2nd ‘(1st ‘𝑧)) Fn (1...𝑁))
2928adantr 486 . . . . . . . 8 ((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) → (2nd ‘(1st ‘𝑧)) Fn (1...𝑁))
3029ad2antlr 740 . . . . . . 7 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (2nd ‘(1st ‘𝑧)) Fn (1...𝑁))
31 elrabi 3644 . . . . . . . . . . . . 13 (𝑘 ∈ {𝑡 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ ⦋if(𝑦 < (2nd ‘𝑡), 𝑦, (𝑦 + 1)) / 𝑗⦌((1st ‘(1st ‘𝑡)) ∘f + ((((2nd ‘(1st ‘𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st ‘𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))} → 𝑘 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)))
3231, 3eleq2s 2882 . . . . . . . . . . . 12 (𝑘 ∈ 𝑆 → 𝑘 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)))
33 xp1st 8054 . . . . . . . . . . . 12 (𝑘 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)) → (1st ‘𝑘) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}))
34 xp2nd 8055 . . . . . . . . . . . 12 ((1st ‘𝑘) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) → (2nd ‘(1st ‘𝑘)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)})
3532, 33, 343syl 19 . . . . . . . . . . 11 (𝑘 ∈ 𝑆 → (2nd ‘(1st ‘𝑘)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)})
36 fvex 6918 . . . . . . . . . . . 12 (2nd ‘(1st ‘𝑘)) ∈ V
37 f1oeq1 6831 . . . . . . . . . . . 12 (𝑓 = (2nd ‘(1st ‘𝑘)) → (𝑓:(1...𝑁)⟶1-1onto(1...𝑁) ↔ (2nd ‘(1st ‘𝑘)):(1...𝑁)⟶1-1onto(1...𝑁)))
3836, 37elab 3636 . . . . . . . . . . 11 ((2nd ‘(1st ‘𝑘)) ∈ {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)} ↔ (2nd ‘(1st ‘𝑘)):(1...𝑁)⟶1-1onto(1...𝑁))
3935, 38sylib 221 . . . . . . . . . 10 (𝑘 ∈ 𝑆 → (2nd ‘(1st ‘𝑘)):(1...𝑁)⟶1-1onto(1...𝑁))
40 f1ofn 6844 . . . . . . . . . 10 ((2nd ‘(1st ‘𝑘)):(1...𝑁)⟶1-1onto(1...𝑁) → (2nd ‘(1st ‘𝑘)) Fn (1...𝑁))
4139, 40syl 18 . . . . . . . . 9 (𝑘 ∈ 𝑆 → (2nd ‘(1st ‘𝑘)) Fn (1...𝑁))
4241adantl 487 . . . . . . . 8 ((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) → (2nd ‘(1st ‘𝑘)) Fn (1...𝑁))
4342ad2antlr 740 . . . . . . 7 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (2nd ‘(1st ‘𝑘)) Fn (1...𝑁))
44 simpllr 788 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆))
45 oveq2 7448 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑁 → (1...𝑛) = (1...𝑁))
4645imaeq2d 6063 . . . . . . . . . . . . . . 15 (𝑛 = 𝑁 → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑧)) “ (1...𝑁)))
47 f1ofo 6851 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st ‘𝑧)):(1...𝑁)⟶1-1onto(1...𝑁) → (2nd ‘(1st ‘𝑧)):(1...𝑁)⟶onto(1...𝑁))
48 foima 6820 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st ‘𝑧)):(1...𝑁)⟶onto(1...𝑁) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑁)) = (1...𝑁))
4926, 47, 483syl 19 . . . . . . . . . . . . . . 15 (𝑧 ∈ 𝑆 → ((2nd ‘(1st ‘𝑧)) “ (1...𝑁)) = (1...𝑁))
5046, 49sylan9eqr 2820 . . . . . . . . . . . . . 14 ((𝑧 ∈ 𝑆 ∧ 𝑛 = 𝑁) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = (1...𝑁))
5150adantlr 728 . . . . . . . . . . . . 13 (((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) ∧ 𝑛 = 𝑁) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = (1...𝑁))
5245imaeq2d 6063 . . . . . . . . . . . . . . 15 (𝑛 = 𝑁 → ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑁)))
53 f1ofo 6851 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st ‘𝑘)):(1...𝑁)⟶1-1onto(1...𝑁) → (2nd ‘(1st ‘𝑘)):(1...𝑁)⟶onto(1...𝑁))
54 foima 6820 . . . . . . . . . . . . . . . 16 ((2nd ‘(1st ‘𝑘)):(1...𝑁)⟶onto(1...𝑁) → ((2nd ‘(1st ‘𝑘)) “ (1...𝑁)) = (1...𝑁))
5539, 53, 543syl 19 . . . . . . . . . . . . . . 15 (𝑘 ∈ 𝑆 → ((2nd ‘(1st ‘𝑘)) “ (1...𝑁)) = (1...𝑁))
5652, 55sylan9eqr 2820 . . . . . . . . . . . . . 14 ((𝑘 ∈ 𝑆 ∧ 𝑛 = 𝑁) → ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) = (1...𝑁))
5756adantll 727 . . . . . . . . . . . . 13 (((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) ∧ 𝑛 = 𝑁) → ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) = (1...𝑁))
5851, 57eqtr4d 2801 . . . . . . . . . . . 12 (((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) ∧ 𝑛 = 𝑁) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
5944, 58sylan 592 . . . . . . . . . . 11 (((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) ∧ 𝑛 = 𝑁) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
60 simpll 779 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → 𝜑)
61 elnnuz 13029 . . . . . . . . . . . . . . . . . . . 20 (𝑁 ∈ ℕ ↔ 𝑁 ∈ (ℤ≥‘1))
621, 61sylib 221 . . . . . . . . . . . . . . . . . . 19 (𝜑 → 𝑁 ∈ (ℤ≥‘1))
63 fzm1 13765 . . . . . . . . . . . . . . . . . . 19 (𝑁 ∈ (ℤ≥‘1) → (𝑛 ∈ (1...𝑁) ↔ (𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁)))
6462, 63syl 18 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑛 ∈ (1...𝑁) ↔ (𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁)))
6564anbi1d 643 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ 𝑁) ↔ ((𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁) ∧ 𝑛 ≠ 𝑁)))
6665biimpa 482 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ 𝑁)) → ((𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁) ∧ 𝑛 ≠ 𝑁))
67 df-ne 2960 . . . . . . . . . . . . . . . . . 18 (𝑛 ≠ 𝑁 ↔ ¬ 𝑛 = 𝑁)
6867anbi2i 635 . . . . . . . . . . . . . . . . 17 (((𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁) ∧ 𝑛 ≠ 𝑁) ↔ ((𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁) ∧ ¬ 𝑛 = 𝑁))
69 pm5.61 1016 . . . . . . . . . . . . . . . . 17 (((𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁) ∧ ¬ 𝑛 = 𝑁) ↔ (𝑛 ∈ (1...(𝑁 − 1)) ∧ ¬ 𝑛 = 𝑁))
7068, 69bitri 278 . . . . . . . . . . . . . . . 16 (((𝑛 ∈ (1...(𝑁 − 1)) ∨ 𝑛 = 𝑁) ∧ 𝑛 ≠ 𝑁) ↔ (𝑛 ∈ (1...(𝑁 − 1)) ∧ ¬ 𝑛 = 𝑁))
7166, 70sylib 221 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ 𝑁)) → (𝑛 ∈ (1...(𝑁 − 1)) ∧ ¬ 𝑛 = 𝑁))
72 fz1ssfz0 13781 . . . . . . . . . . . . . . . . 17 (1...(𝑁 − 1)) ⊆ (0...(𝑁 − 1))
7372sseli 3909 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (1...(𝑁 − 1)) → 𝑛 ∈ (0...(𝑁 − 1)))
7473adantr 486 . . . . . . . . . . . . . . 15 ((𝑛 ∈ (1...(𝑁 − 1)) ∧ ¬ 𝑛 = 𝑁) → 𝑛 ∈ (0...(𝑁 − 1)))
7571, 74syl 18 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ 𝑁)) → 𝑛 ∈ (0...(𝑁 − 1)))
7660, 75sylan 592 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ 𝑁)) → 𝑛 ∈ (0...(𝑁 − 1)))
77 eleq1 2852 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑛 → (𝑚 ∈ (0...(𝑁 − 1)) ↔ 𝑛 ∈ (0...(𝑁 − 1))))
7877anbi2d 642 . . . . . . . . . . . . . . 15 (𝑚 = 𝑛 → ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) ↔ (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (0...(𝑁 − 1)))))
79 oveq2 7448 . . . . . . . . . . . . . . . . 17 (𝑚 = 𝑛 → (1...𝑚) = (1...𝑛))
8079imaeq2d 6063 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑛 → ((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)))
8179imaeq2d 6063 . . . . . . . . . . . . . . . 16 (𝑚 = 𝑛 → ((2nd ‘(1st ‘𝑘)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
8280, 81eqeq12d 2779 . . . . . . . . . . . . . . 15 (𝑚 = 𝑛 → (((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑚)) ↔ ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛))))
8378, 82imbi12d 347 . . . . . . . . . . . . . 14 (𝑚 = 𝑛 → (((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑚))) ↔ ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))))
841ad3antrrr 743 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → 𝑁 ∈ ℕ)
85 poimirlem22.1 . . . . . . . . . . . . . . . . 17 (𝜑 → 𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑m (1...𝑁)))
8685ad3antrrr 743 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → 𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑m (1...𝑁)))
87 simpl 488 . . . . . . . . . . . . . . . . 17 ((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) → 𝑧 ∈ 𝑆)
8887ad3antlr 744 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → 𝑧 ∈ 𝑆)
89 simplrl 789 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → (2nd ‘𝑧) = 𝑁)
90 simpr 490 . . . . . . . . . . . . . . . . 17 ((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) → 𝑘 ∈ 𝑆)
9190ad3antlr 744 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → 𝑘 ∈ 𝑆)
92 simplrr 790 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → (2nd ‘𝑘) = 𝑁)
93 simpr 490 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → 𝑚 ∈ (0...(𝑁 − 1)))
9484, 3, 86, 88, 89, 91, 92, 93poimirlem12 38741 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) ⊆ ((2nd ‘(1st ‘𝑘)) “ (1...𝑚)))
9584, 3, 86, 91, 92, 88, 89, 93poimirlem12 38741 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑘)) “ (1...𝑚)) ⊆ ((2nd ‘(1st ‘𝑧)) “ (1...𝑚)))
9694, 95eqssd 3930 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑚)))
9783, 96chvarvv 2024 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
9876, 97syldan 603 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ (𝑛 ∈ (1...𝑁) ∧ 𝑛 ≠ 𝑁)) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
9998anassrs 473 . . . . . . . . . . 11 (((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) ∧ 𝑛 ≠ 𝑁) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
10059, 99pm2.61dane 3046 . . . . . . . . . 10 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
101 simpr 490 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ (1...𝑁))
102 elfzelz 13680 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℤ)
1031nnzd 12743 . . . . . . . . . . . . . 14 (𝜑 → 𝑁 ∈ ℤ)
104 elfzm1b 13760 . . . . . . . . . . . . . 14 ((𝑛 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑛 ∈ (1...𝑁) ↔ (𝑛 − 1) ∈ (0...(𝑁 − 1))))
105102, 103, 104syl2anr 609 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 ∈ (1...𝑁) ↔ (𝑛 − 1) ∈ (0...(𝑁 − 1))))
106101, 105mpbid 235 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 − 1) ∈ (0...(𝑁 − 1)))
10760, 106sylan 592 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 − 1) ∈ (0...(𝑁 − 1)))
108 ovex 7473 . . . . . . . . . . . 12 (𝑛 − 1) ∈ V
109 eleq1 2852 . . . . . . . . . . . . . 14 (𝑚 = (𝑛 − 1) → (𝑚 ∈ (0...(𝑁 − 1)) ↔ (𝑛 − 1) ∈ (0...(𝑁 − 1))))
110109anbi2d 642 . . . . . . . . . . . . 13 (𝑚 = (𝑛 − 1) → ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) ↔ (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ (𝑛 − 1) ∈ (0...(𝑁 − 1)))))
111 oveq2 7448 . . . . . . . . . . . . . . 15 (𝑚 = (𝑛 − 1) → (1...𝑚) = (1...(𝑛 − 1)))
112111imaeq2d 6063 . . . . . . . . . . . . . 14 (𝑚 = (𝑛 − 1) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1))))
113111imaeq2d 6063 . . . . . . . . . . . . . 14 (𝑚 = (𝑛 − 1) → ((2nd ‘(1st ‘𝑘)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1))))
114112, 113eqeq12d 2779 . . . . . . . . . . . . 13 (𝑚 = (𝑛 − 1) → (((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑚)) ↔ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1)))))
115110, 114imbi12d 347 . . . . . . . . . . . 12 (𝑚 = (𝑛 − 1) → (((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑚 ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...𝑚)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑚))) ↔ ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ (𝑛 − 1) ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1))))))
116108, 115, 96vtocl 3524 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ (𝑛 − 1) ∈ (0...(𝑁 − 1))) → ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1))))
117107, 116syldan 603 . . . . . . . . . 10 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1))))
118100, 117difeq12d 4067 . . . . . . . . 9 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))) = (((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1)))))
119 fnsnfv 6984 . . . . . . . . . . . 12 (((2nd ‘(1st ‘𝑧)) Fn (1...𝑁) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑧))‘𝑛)} = ((2nd ‘(1st ‘𝑧)) “ {𝑛}))
12028, 119sylan 592 . . . . . . . . . . 11 ((𝑧 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑧))‘𝑛)} = ((2nd ‘(1st ‘𝑧)) “ {𝑛}))
121 elfznn 13711 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℕ)
122 uncom 4160 . . . . . . . . . . . . . . . . 17 ((1...(𝑛 − 1)) ∪ {𝑛}) = ({𝑛} ∪ (1...(𝑛 − 1)))
123122difeq1i 4062 . . . . . . . . . . . . . . . 16 (((1...(𝑛 − 1)) ∪ {𝑛}) ∖ (1...(𝑛 − 1))) = (({𝑛} ∪ (1...(𝑛 − 1))) ∖ (1...(𝑛 − 1)))
124 difun2 4440 . . . . . . . . . . . . . . . 16 (({𝑛} ∪ (1...(𝑛 − 1))) ∖ (1...(𝑛 − 1))) = ({𝑛} ∖ (1...(𝑛 − 1)))
125123, 124eqtri 2786 . . . . . . . . . . . . . . 15 (((1...(𝑛 − 1)) ∪ {𝑛}) ∖ (1...(𝑛 − 1))) = ({𝑛} ∖ (1...(𝑛 − 1)))
126 nncn 12367 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
127 npcan1 11765 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℂ → ((𝑛 − 1) + 1) = 𝑛)
128126, 127syl 18 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → ((𝑛 − 1) + 1) = 𝑛)
129 elnnuz 13029 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℕ ↔ 𝑛 ∈ (ℤ≥‘1))
130129biimpi 219 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → 𝑛 ∈ (ℤ≥‘1))
131128, 130eqeltrd 2864 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → ((𝑛 − 1) + 1) ∈ (ℤ≥‘1))
132 nnm1nn0 12671 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 ∈ ℕ → (𝑛 − 1) ∈ ℕ0)
133132nn0zd 12742 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℕ → (𝑛 − 1) ∈ ℤ)
134 uzid 13004 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 − 1) ∈ ℤ → (𝑛 − 1) ∈ (ℤ≥‘(𝑛 − 1)))
135 peano2uz 13052 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 − 1) ∈ (ℤ≥‘(𝑛 − 1)) → ((𝑛 − 1) + 1) ∈ (ℤ≥‘(𝑛 − 1)))
136133, 134, 1353syl 19 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → ((𝑛 − 1) + 1) ∈ (ℤ≥‘(𝑛 − 1)))
137128, 136eqeltrrd 2865 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → 𝑛 ∈ (ℤ≥‘(𝑛 − 1)))
138 fzsplit2 13707 . . . . . . . . . . . . . . . . . 18 ((((𝑛 − 1) + 1) ∈ (ℤ≥‘1) ∧ 𝑛 ∈ (ℤ≥‘(𝑛 − 1))) → (1...𝑛) = ((1...(𝑛 − 1)) ∪ (((𝑛 − 1) + 1)...𝑛)))
139131, 137, 138syl2anc 596 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (1...𝑛) = ((1...(𝑛 − 1)) ∪ (((𝑛 − 1) + 1)...𝑛)))
140128oveq1d 7455 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → (((𝑛 − 1) + 1)...𝑛) = (𝑛...𝑛))
141 nnz 12738 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
142 fzsn 13724 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℤ → (𝑛...𝑛) = {𝑛})
143141, 142syl 18 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → (𝑛...𝑛) = {𝑛})
144140, 143eqtrd 2798 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → (((𝑛 − 1) + 1)...𝑛) = {𝑛})
145144uneq2d 4170 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((1...(𝑛 − 1)) ∪ (((𝑛 − 1) + 1)...𝑛)) = ((1...(𝑛 − 1)) ∪ {𝑛}))
146139, 145eqtrd 2798 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (1...𝑛) = ((1...(𝑛 − 1)) ∪ {𝑛}))
147146difeq1d 4065 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((1...𝑛) ∖ (1...(𝑛 − 1))) = (((1...(𝑛 − 1)) ∪ {𝑛}) ∖ (1...(𝑛 − 1))))
148 nnre 12366 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → 𝑛 ∈ ℝ)
149 ltm1 12183 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℝ → (𝑛 − 1) < 𝑛)
150 peano2rem 11649 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℝ → (𝑛 − 1) ∈ ℝ)
151 ltnle 11413 . . . . . . . . . . . . . . . . . . . 20 (((𝑛 − 1) ∈ ℝ ∧ 𝑛 ∈ ℝ) → ((𝑛 − 1) < 𝑛 ↔ ¬ 𝑛 ≤ (𝑛 − 1)))
152150, 151mpancom 701 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℝ → ((𝑛 − 1) < 𝑛 ↔ ¬ 𝑛 ≤ (𝑛 − 1)))
153149, 152mpbid 235 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℝ → ¬ 𝑛 ≤ (𝑛 − 1))
154 elfzle2 13685 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...(𝑛 − 1)) → 𝑛 ≤ (𝑛 − 1))
155153, 154nsyl 141 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℝ → ¬ 𝑛 ∈ (1...(𝑛 − 1)))
156148, 155syl 18 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ¬ 𝑛 ∈ (1...(𝑛 − 1)))
157 incom 4109 . . . . . . . . . . . . . . . . . 18 ((1...(𝑛 − 1)) ∩ {𝑛}) = ({𝑛} ∩ (1...(𝑛 − 1)))
158157eqeq1i 2768 . . . . . . . . . . . . . . . . 17 (((1...(𝑛 − 1)) ∩ {𝑛}) = ∅ ↔ ({𝑛} ∩ (1...(𝑛 − 1))) = ∅)
159 disjsn 4672 . . . . . . . . . . . . . . . . 17 (((1...(𝑛 − 1)) ∩ {𝑛}) = ∅ ↔ ¬ 𝑛 ∈ (1...(𝑛 − 1)))
160 disj3 4410 . . . . . . . . . . . . . . . . 17 (({𝑛} ∩ (1...(𝑛 − 1))) = ∅ ↔ {𝑛} = ({𝑛} ∖ (1...(𝑛 − 1))))
161158, 159, 1603bitr3i 304 . . . . . . . . . . . . . . . 16 (¬ 𝑛 ∈ (1...(𝑛 − 1)) ↔ {𝑛} = ({𝑛} ∖ (1...(𝑛 − 1))))
162156, 161sylib 221 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → {𝑛} = ({𝑛} ∖ (1...(𝑛 − 1))))
163125, 147, 1623eqtr4a 2824 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → ((1...𝑛) ∖ (1...(𝑛 − 1))) = {𝑛})
164121, 163syl 18 . . . . . . . . . . . . 13 (𝑛 ∈ (1...𝑁) → ((1...𝑛) ∖ (1...(𝑛 − 1))) = {𝑛})
165164imaeq2d 6063 . . . . . . . . . . . 12 (𝑛 ∈ (1...𝑁) → ((2nd ‘(1st ‘𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = ((2nd ‘(1st ‘𝑧)) “ {𝑛}))
166165adantl 487 . . . . . . . . . . 11 ((𝑧 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st ‘𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = ((2nd ‘(1st ‘𝑧)) “ {𝑛}))
167 dff1o3 6850 . . . . . . . . . . . . . 14 ((2nd ‘(1st ‘𝑧)):(1...𝑁)⟶1-1onto(1...𝑁) ↔ ((2nd ‘(1st ‘𝑧)):(1...𝑁)⟶onto(1...𝑁) ∧ Fun ◡(2nd ‘(1st ‘𝑧))))
168167simprbi 503 . . . . . . . . . . . . 13 ((2nd ‘(1st ‘𝑧)):(1...𝑁)⟶1-1onto(1...𝑁) → Fun ◡(2nd ‘(1st ‘𝑧)))
169 imadif 6643 . . . . . . . . . . . . 13 (Fun ◡(2nd ‘(1st ‘𝑧)) → ((2nd ‘(1st ‘𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))))
17026, 168, 1693syl 19 . . . . . . . . . . . 12 (𝑧 ∈ 𝑆 → ((2nd ‘(1st ‘𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))))
171170adantr 486 . . . . . . . . . . 11 ((𝑧 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st ‘𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))))
172120, 166, 1713eqtr2d 2804 . . . . . . . . . 10 ((𝑧 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑧))‘𝑛)} = (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))))
1734, 172sylan 592 . . . . . . . . 9 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑧))‘𝑛)} = (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))))
174 eleq1 2852 . . . . . . . . . . . . 13 (𝑧 = 𝑘 → (𝑧 ∈ 𝑆 ↔ 𝑘 ∈ 𝑆))
175174anbi1d 643 . . . . . . . . . . . 12 (𝑧 = 𝑘 → ((𝑧 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) ↔ (𝑘 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁))))
176 2fveq3 6910 . . . . . . . . . . . . . . 15 (𝑧 = 𝑘 → (2nd ‘(1st ‘𝑧)) = (2nd ‘(1st ‘𝑘)))
177176fveq1d 6907 . . . . . . . . . . . . . 14 (𝑧 = 𝑘 → ((2nd ‘(1st ‘𝑧))‘𝑛) = ((2nd ‘(1st ‘𝑘))‘𝑛))
178177sneqd 4596 . . . . . . . . . . . . 13 (𝑧 = 𝑘 → {((2nd ‘(1st ‘𝑧))‘𝑛)} = {((2nd ‘(1st ‘𝑘))‘𝑛)})
179176imaeq1d 6062 . . . . . . . . . . . . . 14 (𝑧 = 𝑘 → ((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) = ((2nd ‘(1st ‘𝑘)) “ (1...𝑛)))
180176imaeq1d 6062 . . . . . . . . . . . . . 14 (𝑧 = 𝑘 → ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1))))
181179, 180difeq12d 4067 . . . . . . . . . . . . 13 (𝑧 = 𝑘 → (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))) = (((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1)))))
182178, 181eqeq12d 2779 . . . . . . . . . . . 12 (𝑧 = 𝑘 → ({((2nd ‘(1st ‘𝑧))‘𝑛)} = (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1)))) ↔ {((2nd ‘(1st ‘𝑘))‘𝑛)} = (((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1))))))
183175, 182imbi12d 347 . . . . . . . . . . 11 (𝑧 = 𝑘 → (((𝑧 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑧))‘𝑛)} = (((2nd ‘(1st ‘𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑧)) “ (1...(𝑛 − 1))))) ↔ ((𝑘 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑘))‘𝑛)} = (((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1)))))))
184183, 172chvarvv 2024 . . . . . . . . . 10 ((𝑘 ∈ 𝑆 ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑘))‘𝑛)} = (((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1)))))
18511, 184sylan 592 . . . . . . . . 9 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑘))‘𝑛)} = (((2nd ‘(1st ‘𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st ‘𝑘)) “ (1...(𝑛 − 1)))))
186118, 173, 1853eqtr4d 2808 . . . . . . . 8 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st ‘𝑧))‘𝑛)} = {((2nd ‘(1st ‘𝑘))‘𝑛)})
187 fvex 6918 . . . . . . . . 9 ((2nd ‘(1st ‘𝑧))‘𝑛) ∈ V
188187sneqr 4798 . . . . . . . 8 ({((2nd ‘(1st ‘𝑧))‘𝑛)} = {((2nd ‘(1st ‘𝑘))‘𝑛)} → ((2nd ‘(1st ‘𝑧))‘𝑛) = ((2nd ‘(1st ‘𝑘))‘𝑛))
189186, 188syl 18 . . . . . . 7 ((((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st ‘𝑧))‘𝑛) = ((2nd ‘(1st ‘𝑘))‘𝑛))
19030, 43, 189eqfnfvd 7052 . . . . . 6 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (2nd ‘(1st ‘𝑧)) = (2nd ‘(1st ‘𝑘)))
19119, 20syl 18 . . . . . . . 8 (𝑧 ∈ 𝑆 → (1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}))
19232, 33syl 18 . . . . . . . 8 (𝑘 ∈ 𝑆 → (1st ‘𝑘) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}))
193 xpopth 8063 . . . . . . . 8 (((1st ‘𝑧) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) ∧ (1st ‘𝑘) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)})) → (((1st ‘(1st ‘𝑧)) = (1st ‘(1st ‘𝑘)) ∧ (2nd ‘(1st ‘𝑧)) = (2nd ‘(1st ‘𝑘))) ↔ (1st ‘𝑧) = (1st ‘𝑘)))
194191, 192, 193syl2an 608 . . . . . . 7 ((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) → (((1st ‘(1st ‘𝑧)) = (1st ‘(1st ‘𝑘)) ∧ (2nd ‘(1st ‘𝑧)) = (2nd ‘(1st ‘𝑘))) ↔ (1st ‘𝑧) = (1st ‘𝑘)))
195194ad2antlr 740 . . . . . 6 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (((1st ‘(1st ‘𝑧)) = (1st ‘(1st ‘𝑘)) ∧ (2nd ‘(1st ‘𝑧)) = (2nd ‘(1st ‘𝑘))) ↔ (1st ‘𝑧) = (1st ‘𝑘)))
19617, 190, 195mpbi2and 725 . . . . 5 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (1st ‘𝑧) = (1st ‘𝑘))
197 eqtr3 2785 . . . . . 6 (((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁) → (2nd ‘𝑧) = (2nd ‘𝑘))
198197adantl 487 . . . . 5 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (2nd ‘𝑧) = (2nd ‘𝑘))
199 xpopth 8063 . . . . . . 7 ((𝑧 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁)) ∧ 𝑘 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓 ∣ 𝑓:(1...𝑁)⟶1-1onto(1...𝑁)}) × (0...𝑁))) → (((1st ‘𝑧) = (1st ‘𝑘) ∧ (2nd ‘𝑧) = (2nd ‘𝑘)) ↔ 𝑧 = 𝑘))
20019, 32, 199syl2an 608 . . . . . 6 ((𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆) → (((1st ‘𝑧) = (1st ‘𝑘) ∧ (2nd ‘𝑧) = (2nd ‘𝑘)) ↔ 𝑧 = 𝑘))
201200ad2antlr 740 . . . . 5 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → (((1st ‘𝑧) = (1st ‘𝑘) ∧ (2nd ‘𝑧) = (2nd ‘𝑘)) ↔ 𝑧 = 𝑘))
202196, 198, 201mpbi2and 725 . . . 4 (((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) ∧ ((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁)) → 𝑧 = 𝑘)
203202ex 418 . . 3 ((𝜑 ∧ (𝑧 ∈ 𝑆 ∧ 𝑘 ∈ 𝑆)) → (((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁) → 𝑧 = 𝑘))
204203ralrimivva 3209 . 2 (𝜑 → ∀𝑧 ∈ 𝑆 ∀𝑘 ∈ 𝑆 (((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁) → 𝑧 = 𝑘))
205 fveqeq2 6914 . . 3 (𝑧 = 𝑘 → ((2nd ‘𝑧) = 𝑁 ↔ (2nd ‘𝑘) = 𝑁))
206205rmo4 3691 . 2 (∃*𝑧 ∈ 𝑆 (2nd ‘𝑧) = 𝑁 ↔ ∀𝑧 ∈ 𝑆 ∀𝑘 ∈ 𝑆 (((2nd ‘𝑧) = 𝑁 ∧ (2nd ‘𝑘) = 𝑁) → 𝑧 = 𝑘))
207204, 206sylibr 237 1 (𝜑 → ∃*𝑧 ∈ 𝑆 (2nd ‘𝑧) = 𝑁)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2147  {cab 2741   ≠ wne 2959  ∀wral 3080  ∃*wrmo 3368  {crab 3416  ⦋csb 3851   ∖ cdif 4048   ∩ cin 4092   ∪ cun 4152  ∅c0 4281  ifcif 4485  {csn 4588   class class class wbr 5106   ↦ cmpt 5189   × cxp 5653  ◡ccnv 5654   “ cima 5658  Fun wfun 6549   Fn wfn 6550  ⟶wf 6551  ⟶ontowfo 6553  ⟶1-1ontowf1o 6554  ‘cfv 6555  (class class class)co 7440   ∘f cof 7712  1st c1st 8020  2nd c2nd 8021   ↑m cmap 8872  ℂcc 11222  ℝcr 11223  0cc0 11224  1c1 11225   + caddc 11227   < clt 11367   ≤ cle 11368   − cmin 11565  ℕcn 12359  ℤcz 12717  ℤ≥cuz 12989  ...cfz 13663  ..^cfzo 13812
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7772  ax-cnex 11280  ax-resscn 11281  ax-1cn 11282  ax-icn 11283  ax-addcl 11284  ax-addrcl 11285  ax-mulcl 11286  ax-mulrcl 11287  ax-mulcom 11288  ax-addass 11289  ax-mulass 11290  ax-distr 11291  ax-i2m1 11292  ax-1ne0 11293  ax-1rid 11294  ax-rnegex 11295  ax-rrecex 11296  ax-cnre 11297  ax-pre-lttri 11298  ax-pre-lttrn 11299  ax-pre-ltadd 11300  ax-pre-mulgt0 11301
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6319  df-ord 6380  df-on 6381  df-lim 6382  df-suc 6383  df-iota 6509  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7397  df-ov 7443  df-oprab 7444  df-mpo 7445  df-of 7714  df-om 7899  df-1st 8022  df-2nd 8023  df-frecs 8324  df-wrecs 8355  df-recs 8404  df-rdg 8443  df-er 8742  df-map 8874  df-en 8999  df-dom 9000  df-sdom 9001  df-pnf 11369  df-mnf 11370  df-xr 11371  df-ltxr 11372  df-le 11373  df-sub 11567  df-neg 11568  df-nn 12360  df-n0 12631  df-z 12718  df-uz 12990  df-fz 13664  df-fzo 13813
This theorem is used by:  poimirlem18  38747  poimirlem21  38750
  Copyright terms: Public domain W3C validator