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

Theorem poimirlem13 33093
Description: Lemma for poimir 33113- for at most one simplex associated with a shared face is the opposite vertex first on the walk. (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...𝑁)))
Assertion
Ref Expression
poimirlem13 (𝜑 → ∃*𝑧𝑆 (2nd𝑧) = 0)
Distinct variable groups:   𝑓,𝑗,𝑡,𝑦,𝑧   𝜑,𝑗,𝑦   𝑗,𝐹,𝑦   𝑗,𝑁,𝑦   𝜑,𝑡   𝑓,𝐾,𝑗,𝑡   𝑓,𝑁,𝑡   𝜑,𝑧   𝑓,𝐹,𝑡,𝑧   𝑧,𝐾   𝑧,𝑁   𝑆,𝑗,𝑡,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem13
Dummy variables 𝑘 𝑚 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 poimir.0 . . . . . . . . 9 (𝜑𝑁 ∈ ℕ)
21ad2antrr 761 . . . . . . . 8 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → 𝑁 ∈ ℕ)
3 poimirlem22.s . . . . . . . 8 𝑆 = {𝑡 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∣ 𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑡)) ∘𝑓 + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))))}
4 poimirlem22.1 . . . . . . . . 9 (𝜑𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑𝑚 (1...𝑁)))
54ad2antrr 761 . . . . . . . 8 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → 𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑𝑚 (1...𝑁)))
6 simplrl 799 . . . . . . . 8 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → 𝑧𝑆)
7 simprl 793 . . . . . . . 8 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (2nd𝑧) = 0)
82, 3, 5, 6, 7poimirlem10 33090 . . . . . . 7 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → ((𝐹‘(𝑁 − 1)) ∘𝑓 − ((1...𝑁) × {1})) = (1st ‘(1st𝑧)))
9 simplrr 800 . . . . . . . 8 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → 𝑘𝑆)
10 simprr 795 . . . . . . . 8 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (2nd𝑘) = 0)
112, 3, 5, 9, 10poimirlem10 33090 . . . . . . 7 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → ((𝐹‘(𝑁 − 1)) ∘𝑓 − ((1...𝑁) × {1})) = (1st ‘(1st𝑘)))
128, 11eqtr3d 2657 . . . . . 6 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (1st ‘(1st𝑧)) = (1st ‘(1st𝑘)))
13 elrabi 3347 . . . . . . . . . . . . . 14 (𝑧 ∈ {𝑡 ∈ ((((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...𝑁)))
1413, 3eleq2s 2716 . . . . . . . . . . . . 13 (𝑧𝑆𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
15 xp1st 7158 . . . . . . . . . . . . 13 (𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
1614, 15syl 17 . . . . . . . . . . . 12 (𝑧𝑆 → (1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
17 xp2nd 7159 . . . . . . . . . . . 12 ((1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
1816, 17syl 17 . . . . . . . . . . 11 (𝑧𝑆 → (2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
19 fvex 6168 . . . . . . . . . . . 12 (2nd ‘(1st𝑧)) ∈ V
20 f1oeq1 6094 . . . . . . . . . . . 12 (𝑓 = (2nd ‘(1st𝑧)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁)))
2119, 20elab 3338 . . . . . . . . . . 11 ((2nd ‘(1st𝑧)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
2218, 21sylib 208 . . . . . . . . . 10 (𝑧𝑆 → (2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁))
23 f1ofn 6105 . . . . . . . . . 10 ((2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑧)) Fn (1...𝑁))
2422, 23syl 17 . . . . . . . . 9 (𝑧𝑆 → (2nd ‘(1st𝑧)) Fn (1...𝑁))
2524adantr 481 . . . . . . . 8 ((𝑧𝑆𝑘𝑆) → (2nd ‘(1st𝑧)) Fn (1...𝑁))
2625ad2antlr 762 . . . . . . 7 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (2nd ‘(1st𝑧)) Fn (1...𝑁))
27 elrabi 3347 . . . . . . . . . . . . . 14 (𝑘 ∈ {𝑡 ∈ ((((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...𝑁)))
2827, 3eleq2s 2716 . . . . . . . . . . . . 13 (𝑘𝑆𝑘 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
29 xp1st 7158 . . . . . . . . . . . . 13 (𝑘 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑘) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
3028, 29syl 17 . . . . . . . . . . . 12 (𝑘𝑆 → (1st𝑘) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
31 xp2nd 7159 . . . . . . . . . . . 12 ((1st𝑘) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑘)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
3230, 31syl 17 . . . . . . . . . . 11 (𝑘𝑆 → (2nd ‘(1st𝑘)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
33 fvex 6168 . . . . . . . . . . . 12 (2nd ‘(1st𝑘)) ∈ V
34 f1oeq1 6094 . . . . . . . . . . . 12 (𝑓 = (2nd ‘(1st𝑘)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑘)):(1...𝑁)–1-1-onto→(1...𝑁)))
3533, 34elab 3338 . . . . . . . . . . 11 ((2nd ‘(1st𝑘)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑘)):(1...𝑁)–1-1-onto→(1...𝑁))
3632, 35sylib 208 . . . . . . . . . 10 (𝑘𝑆 → (2nd ‘(1st𝑘)):(1...𝑁)–1-1-onto→(1...𝑁))
37 f1ofn 6105 . . . . . . . . . 10 ((2nd ‘(1st𝑘)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑘)) Fn (1...𝑁))
3836, 37syl 17 . . . . . . . . 9 (𝑘𝑆 → (2nd ‘(1st𝑘)) Fn (1...𝑁))
3938adantl 482 . . . . . . . 8 ((𝑧𝑆𝑘𝑆) → (2nd ‘(1st𝑘)) Fn (1...𝑁))
4039ad2antlr 762 . . . . . . 7 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (2nd ‘(1st𝑘)) Fn (1...𝑁))
41 eleq1 2686 . . . . . . . . . . . . 13 (𝑚 = 𝑛 → (𝑚 ∈ (1...𝑁) ↔ 𝑛 ∈ (1...𝑁)))
4241anbi2d 739 . . . . . . . . . . . 12 (𝑚 = 𝑛 → ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) ↔ (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁))))
43 oveq2 6623 . . . . . . . . . . . . . 14 (𝑚 = 𝑛 → (1...𝑚) = (1...𝑛))
4443imaeq2d 5435 . . . . . . . . . . . . 13 (𝑚 = 𝑛 → ((2nd ‘(1st𝑧)) “ (1...𝑚)) = ((2nd ‘(1st𝑧)) “ (1...𝑛)))
4543imaeq2d 5435 . . . . . . . . . . . . 13 (𝑚 = 𝑛 → ((2nd ‘(1st𝑘)) “ (1...𝑚)) = ((2nd ‘(1st𝑘)) “ (1...𝑛)))
4644, 45eqeq12d 2636 . . . . . . . . . . . 12 (𝑚 = 𝑛 → (((2nd ‘(1st𝑧)) “ (1...𝑚)) = ((2nd ‘(1st𝑘)) “ (1...𝑚)) ↔ ((2nd ‘(1st𝑧)) “ (1...𝑛)) = ((2nd ‘(1st𝑘)) “ (1...𝑛))))
4742, 46imbi12d 334 . . . . . . . . . . 11 (𝑚 = 𝑛 → (((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...𝑚)) = ((2nd ‘(1st𝑘)) “ (1...𝑚))) ↔ ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...𝑛)) = ((2nd ‘(1st𝑘)) “ (1...𝑛)))))
481ad3antrrr 765 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → 𝑁 ∈ ℕ)
494ad3antrrr 765 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → 𝐹:(0...(𝑁 − 1))⟶((0...𝐾) ↑𝑚 (1...𝑁)))
50 simpl 473 . . . . . . . . . . . . . 14 ((𝑧𝑆𝑘𝑆) → 𝑧𝑆)
5150ad3antlr 766 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → 𝑧𝑆)
52 simplrl 799 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → (2nd𝑧) = 0)
53 simpr 477 . . . . . . . . . . . . . 14 ((𝑧𝑆𝑘𝑆) → 𝑘𝑆)
5453ad3antlr 766 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → 𝑘𝑆)
55 simplrr 800 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → (2nd𝑘) = 0)
56 simpr 477 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → 𝑚 ∈ (1...𝑁))
5748, 3, 49, 51, 52, 54, 55, 56poimirlem11 33091 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...𝑚)) ⊆ ((2nd ‘(1st𝑘)) “ (1...𝑚)))
5848, 3, 49, 54, 55, 51, 52, 56poimirlem11 33091 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → ((2nd ‘(1st𝑘)) “ (1...𝑚)) ⊆ ((2nd ‘(1st𝑧)) “ (1...𝑚)))
5957, 58eqssd 3605 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...𝑚)) = ((2nd ‘(1st𝑘)) “ (1...𝑚)))
6047, 59chvarv 2262 . . . . . . . . . 10 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...𝑛)) = ((2nd ‘(1st𝑘)) “ (1...𝑛)))
61 simpll 789 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → 𝜑)
62 elfznn 12328 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℕ)
63 nnm1nn0 11294 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → (𝑛 − 1) ∈ ℕ0)
6462, 63syl 17 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → (𝑛 − 1) ∈ ℕ0)
6564adantr 481 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1) → (𝑛 − 1) ∈ ℕ0)
6662nncnd 10996 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
67 ax-1cn 9954 . . . . . . . . . . . . . . . . . . . 20 1 ∈ ℂ
68 subeq0 10267 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑛 − 1) = 0 ↔ 𝑛 = 1))
6966, 67, 68sylancl 693 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ (1...𝑁) → ((𝑛 − 1) = 0 ↔ 𝑛 = 1))
7069necon3abid 2826 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → ((𝑛 − 1) ≠ 0 ↔ ¬ 𝑛 = 1))
7170biimpar 502 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1) → (𝑛 − 1) ≠ 0)
72 elnnne0 11266 . . . . . . . . . . . . . . . . 17 ((𝑛 − 1) ∈ ℕ ↔ ((𝑛 − 1) ∈ ℕ0 ∧ (𝑛 − 1) ≠ 0))
7365, 71, 72sylanbrc 697 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1) → (𝑛 − 1) ∈ ℕ)
7473adantl 482 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1)) → (𝑛 − 1) ∈ ℕ)
7564nn0red 11312 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → (𝑛 − 1) ∈ ℝ)
7675adantl 482 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 − 1) ∈ ℝ)
7762nnred 10995 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℝ)
7877adantl 482 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℝ)
791nnred 10995 . . . . . . . . . . . . . . . . . 18 (𝜑𝑁 ∈ ℝ)
8079adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑁 ∈ ℝ)
8177lem1d 10917 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → (𝑛 − 1) ≤ 𝑛)
8281adantl 482 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 − 1) ≤ 𝑛)
83 elfzle2 12303 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → 𝑛𝑁)
8483adantl 482 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛𝑁)
8576, 78, 80, 82, 84letrd 10154 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 − 1) ≤ 𝑁)
8685adantrr 752 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1)) → (𝑛 − 1) ≤ 𝑁)
871nnzd 11441 . . . . . . . . . . . . . . . . 17 (𝜑𝑁 ∈ ℤ)
88 fznn 12366 . . . . . . . . . . . . . . . . 17 (𝑁 ∈ ℤ → ((𝑛 − 1) ∈ (1...𝑁) ↔ ((𝑛 − 1) ∈ ℕ ∧ (𝑛 − 1) ≤ 𝑁)))
8987, 88syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑛 − 1) ∈ (1...𝑁) ↔ ((𝑛 − 1) ∈ ℕ ∧ (𝑛 − 1) ≤ 𝑁)))
9089adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1)) → ((𝑛 − 1) ∈ (1...𝑁) ↔ ((𝑛 − 1) ∈ ℕ ∧ (𝑛 − 1) ≤ 𝑁)))
9174, 86, 90mpbir2and 956 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1)) → (𝑛 − 1) ∈ (1...𝑁))
9261, 91sylan 488 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ (𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1)) → (𝑛 − 1) ∈ (1...𝑁))
93 ovex 6643 . . . . . . . . . . . . . 14 (𝑛 − 1) ∈ V
94 eleq1 2686 . . . . . . . . . . . . . . . 16 (𝑚 = (𝑛 − 1) → (𝑚 ∈ (1...𝑁) ↔ (𝑛 − 1) ∈ (1...𝑁)))
9594anbi2d 739 . . . . . . . . . . . . . . 15 (𝑚 = (𝑛 − 1) → ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) ↔ (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ (𝑛 − 1) ∈ (1...𝑁))))
96 oveq2 6623 . . . . . . . . . . . . . . . . 17 (𝑚 = (𝑛 − 1) → (1...𝑚) = (1...(𝑛 − 1)))
9796imaeq2d 5435 . . . . . . . . . . . . . . . 16 (𝑚 = (𝑛 − 1) → ((2nd ‘(1st𝑧)) “ (1...𝑚)) = ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))))
9896imaeq2d 5435 . . . . . . . . . . . . . . . 16 (𝑚 = (𝑛 − 1) → ((2nd ‘(1st𝑘)) “ (1...𝑚)) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))
9997, 98eqeq12d 2636 . . . . . . . . . . . . . . 15 (𝑚 = (𝑛 − 1) → (((2nd ‘(1st𝑧)) “ (1...𝑚)) = ((2nd ‘(1st𝑘)) “ (1...𝑚)) ↔ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1)))))
10095, 99imbi12d 334 . . . . . . . . . . . . . 14 (𝑚 = (𝑛 − 1) → (((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑚 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...𝑚)) = ((2nd ‘(1st𝑘)) “ (1...𝑚))) ↔ ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ (𝑛 − 1) ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))))
10193, 100, 59vtocl 3249 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ (𝑛 − 1) ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))
10292, 101syldan 487 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ (𝑛 ∈ (1...𝑁) ∧ ¬ 𝑛 = 1)) → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))
103102expr 642 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → (¬ 𝑛 = 1 → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1)))))
104 ima0 5450 . . . . . . . . . . . . 13 ((2nd ‘(1st𝑧)) “ ∅) = ∅
105 ima0 5450 . . . . . . . . . . . . 13 ((2nd ‘(1st𝑘)) “ ∅) = ∅
106104, 105eqtr4i 2646 . . . . . . . . . . . 12 ((2nd ‘(1st𝑧)) “ ∅) = ((2nd ‘(1st𝑘)) “ ∅)
107 oveq1 6622 . . . . . . . . . . . . . . . 16 (𝑛 = 1 → (𝑛 − 1) = (1 − 1))
108 1m1e0 11049 . . . . . . . . . . . . . . . 16 (1 − 1) = 0
109107, 108syl6eq 2671 . . . . . . . . . . . . . . 15 (𝑛 = 1 → (𝑛 − 1) = 0)
110109oveq2d 6631 . . . . . . . . . . . . . 14 (𝑛 = 1 → (1...(𝑛 − 1)) = (1...0))
111 fz10 12320 . . . . . . . . . . . . . 14 (1...0) = ∅
112110, 111syl6eq 2671 . . . . . . . . . . . . 13 (𝑛 = 1 → (1...(𝑛 − 1)) = ∅)
113112imaeq2d 5435 . . . . . . . . . . . 12 (𝑛 = 1 → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑧)) “ ∅))
114112imaeq2d 5435 . . . . . . . . . . . 12 (𝑛 = 1 → ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ ∅))
115106, 113, 1143eqtr4a 2681 . . . . . . . . . . 11 (𝑛 = 1 → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))
116103, 115pm2.61d2 172 . . . . . . . . . 10 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))
11760, 116difeq12d 3713 . . . . . . . . 9 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))) = (((2nd ‘(1st𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1)))))
118 fnsnfv 6225 . . . . . . . . . . . 12 (((2nd ‘(1st𝑧)) Fn (1...𝑁) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑧))‘𝑛)} = ((2nd ‘(1st𝑧)) “ {𝑛}))
11924, 118sylan 488 . . . . . . . . . . 11 ((𝑧𝑆𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑧))‘𝑛)} = ((2nd ‘(1st𝑧)) “ {𝑛}))
12062adantl 482 . . . . . . . . . . . . 13 ((𝑧𝑆𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℕ)
121 uncom 3741 . . . . . . . . . . . . . . . 16 ((1...(𝑛 − 1)) ∪ {𝑛}) = ({𝑛} ∪ (1...(𝑛 − 1)))
122121difeq1i 3708 . . . . . . . . . . . . . . 15 (((1...(𝑛 − 1)) ∪ {𝑛}) ∖ (1...(𝑛 − 1))) = (({𝑛} ∪ (1...(𝑛 − 1))) ∖ (1...(𝑛 − 1)))
123 difun2 4026 . . . . . . . . . . . . . . 15 (({𝑛} ∪ (1...(𝑛 − 1))) ∖ (1...(𝑛 − 1))) = ({𝑛} ∖ (1...(𝑛 − 1)))
124122, 123eqtri 2643 . . . . . . . . . . . . . 14 (((1...(𝑛 − 1)) ∪ {𝑛}) ∖ (1...(𝑛 − 1))) = ({𝑛} ∖ (1...(𝑛 − 1)))
125 nncn 10988 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
126 npcan1 10415 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℂ → ((𝑛 − 1) + 1) = 𝑛)
127125, 126syl 17 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → ((𝑛 − 1) + 1) = 𝑛)
128 elnnuz 11684 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ ↔ 𝑛 ∈ (ℤ‘1))
129128biimpi 206 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → 𝑛 ∈ (ℤ‘1))
130127, 129eqeltrd 2698 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((𝑛 − 1) + 1) ∈ (ℤ‘1))
13163nn0zd 11440 . . . . . . . . . . . . . . . . . . . 20 (𝑛 ∈ ℕ → (𝑛 − 1) ∈ ℤ)
132 uzid 11662 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 − 1) ∈ ℤ → (𝑛 − 1) ∈ (ℤ‘(𝑛 − 1)))
133131, 132syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → (𝑛 − 1) ∈ (ℤ‘(𝑛 − 1)))
134 peano2uz 11701 . . . . . . . . . . . . . . . . . . 19 ((𝑛 − 1) ∈ (ℤ‘(𝑛 − 1)) → ((𝑛 − 1) + 1) ∈ (ℤ‘(𝑛 − 1)))
135133, 134syl 17 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → ((𝑛 − 1) + 1) ∈ (ℤ‘(𝑛 − 1)))
136127, 135eqeltrrd 2699 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → 𝑛 ∈ (ℤ‘(𝑛 − 1)))
137 fzsplit2 12324 . . . . . . . . . . . . . . . . 17 ((((𝑛 − 1) + 1) ∈ (ℤ‘1) ∧ 𝑛 ∈ (ℤ‘(𝑛 − 1))) → (1...𝑛) = ((1...(𝑛 − 1)) ∪ (((𝑛 − 1) + 1)...𝑛)))
138130, 136, 137syl2anc 692 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (1...𝑛) = ((1...(𝑛 − 1)) ∪ (((𝑛 − 1) + 1)...𝑛)))
139127oveq1d 6630 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → (((𝑛 − 1) + 1)...𝑛) = (𝑛...𝑛))
140 nnz 11359 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
141 fzsn 12341 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℤ → (𝑛...𝑛) = {𝑛})
142140, 141syl 17 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → (𝑛...𝑛) = {𝑛})
143139, 142eqtrd 2655 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (((𝑛 − 1) + 1)...𝑛) = {𝑛})
144143uneq2d 3751 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((1...(𝑛 − 1)) ∪ (((𝑛 − 1) + 1)...𝑛)) = ((1...(𝑛 − 1)) ∪ {𝑛}))
145138, 144eqtrd 2655 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → (1...𝑛) = ((1...(𝑛 − 1)) ∪ {𝑛}))
146145difeq1d 3711 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → ((1...𝑛) ∖ (1...(𝑛 − 1))) = (((1...(𝑛 − 1)) ∪ {𝑛}) ∖ (1...(𝑛 − 1))))
147 nnre 10987 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → 𝑛 ∈ ℝ)
148 ltm1 10823 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℝ → (𝑛 − 1) < 𝑛)
149 peano2rem 10308 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℝ → (𝑛 − 1) ∈ ℝ)
150 ltnle 10077 . . . . . . . . . . . . . . . . . . 19 (((𝑛 − 1) ∈ ℝ ∧ 𝑛 ∈ ℝ) → ((𝑛 − 1) < 𝑛 ↔ ¬ 𝑛 ≤ (𝑛 − 1)))
151149, 150mpancom 702 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℝ → ((𝑛 − 1) < 𝑛 ↔ ¬ 𝑛 ≤ (𝑛 − 1)))
152148, 151mpbid 222 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℝ → ¬ 𝑛 ≤ (𝑛 − 1))
153 elfzle2 12303 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (1...(𝑛 − 1)) → 𝑛 ≤ (𝑛 − 1))
154152, 153nsyl 135 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℝ → ¬ 𝑛 ∈ (1...(𝑛 − 1)))
155147, 154syl 17 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ¬ 𝑛 ∈ (1...(𝑛 − 1)))
156 incom 3789 . . . . . . . . . . . . . . . . 17 ((1...(𝑛 − 1)) ∩ {𝑛}) = ({𝑛} ∩ (1...(𝑛 − 1)))
157156eqeq1i 2626 . . . . . . . . . . . . . . . 16 (((1...(𝑛 − 1)) ∩ {𝑛}) = ∅ ↔ ({𝑛} ∩ (1...(𝑛 − 1))) = ∅)
158 disjsn 4223 . . . . . . . . . . . . . . . 16 (((1...(𝑛 − 1)) ∩ {𝑛}) = ∅ ↔ ¬ 𝑛 ∈ (1...(𝑛 − 1)))
159 disj3 3999 . . . . . . . . . . . . . . . 16 (({𝑛} ∩ (1...(𝑛 − 1))) = ∅ ↔ {𝑛} = ({𝑛} ∖ (1...(𝑛 − 1))))
160157, 158, 1593bitr3i 290 . . . . . . . . . . . . . . 15 𝑛 ∈ (1...(𝑛 − 1)) ↔ {𝑛} = ({𝑛} ∖ (1...(𝑛 − 1))))
161155, 160sylib 208 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → {𝑛} = ({𝑛} ∖ (1...(𝑛 − 1))))
162124, 146, 1613eqtr4a 2681 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((1...𝑛) ∖ (1...(𝑛 − 1))) = {𝑛})
163120, 162syl 17 . . . . . . . . . . . 12 ((𝑧𝑆𝑛 ∈ (1...𝑁)) → ((1...𝑛) ∖ (1...(𝑛 − 1))) = {𝑛})
164163imaeq2d 5435 . . . . . . . . . . 11 ((𝑧𝑆𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = ((2nd ‘(1st𝑧)) “ {𝑛}))
165 dff1o3 6110 . . . . . . . . . . . . . . 15 ((2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁) ↔ ((2nd ‘(1st𝑧)):(1...𝑁)–onto→(1...𝑁) ∧ Fun (2nd ‘(1st𝑧))))
166165simprbi 480 . . . . . . . . . . . . . 14 ((2nd ‘(1st𝑧)):(1...𝑁)–1-1-onto→(1...𝑁) → Fun (2nd ‘(1st𝑧)))
16722, 166syl 17 . . . . . . . . . . . . 13 (𝑧𝑆 → Fun (2nd ‘(1st𝑧)))
168 imadif 5941 . . . . . . . . . . . . 13 (Fun (2nd ‘(1st𝑧)) → ((2nd ‘(1st𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))))
169167, 168syl 17 . . . . . . . . . . . 12 (𝑧𝑆 → ((2nd ‘(1st𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))))
170169adantr 481 . . . . . . . . . . 11 ((𝑧𝑆𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧)) “ ((1...𝑛) ∖ (1...(𝑛 − 1)))) = (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))))
171119, 164, 1703eqtr2d 2661 . . . . . . . . . 10 ((𝑧𝑆𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑧))‘𝑛)} = (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))))
1726, 171sylan 488 . . . . . . . . 9 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑧))‘𝑛)} = (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))))
173 eleq1 2686 . . . . . . . . . . . . 13 (𝑧 = 𝑘 → (𝑧𝑆𝑘𝑆))
174173anbi1d 740 . . . . . . . . . . . 12 (𝑧 = 𝑘 → ((𝑧𝑆𝑛 ∈ (1...𝑁)) ↔ (𝑘𝑆𝑛 ∈ (1...𝑁))))
175 fveq2 6158 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑘 → (1st𝑧) = (1st𝑘))
176175fveq2d 6162 . . . . . . . . . . . . . . 15 (𝑧 = 𝑘 → (2nd ‘(1st𝑧)) = (2nd ‘(1st𝑘)))
177176fveq1d 6160 . . . . . . . . . . . . . 14 (𝑧 = 𝑘 → ((2nd ‘(1st𝑧))‘𝑛) = ((2nd ‘(1st𝑘))‘𝑛))
178177sneqd 4167 . . . . . . . . . . . . 13 (𝑧 = 𝑘 → {((2nd ‘(1st𝑧))‘𝑛)} = {((2nd ‘(1st𝑘))‘𝑛)})
179176imaeq1d 5434 . . . . . . . . . . . . . 14 (𝑧 = 𝑘 → ((2nd ‘(1st𝑧)) “ (1...𝑛)) = ((2nd ‘(1st𝑘)) “ (1...𝑛)))
180176imaeq1d 5434 . . . . . . . . . . . . . 14 (𝑧 = 𝑘 → ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))) = ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))
181179, 180difeq12d 3713 . . . . . . . . . . . . 13 (𝑧 = 𝑘 → (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))) = (((2nd ‘(1st𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1)))))
182178, 181eqeq12d 2636 . . . . . . . . . . . 12 (𝑧 = 𝑘 → ({((2nd ‘(1st𝑧))‘𝑛)} = (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1)))) ↔ {((2nd ‘(1st𝑘))‘𝑛)} = (((2nd ‘(1st𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1))))))
183174, 182imbi12d 334 . . . . . . . . . . 11 (𝑧 = 𝑘 → (((𝑧𝑆𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑧))‘𝑛)} = (((2nd ‘(1st𝑧)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑧)) “ (1...(𝑛 − 1))))) ↔ ((𝑘𝑆𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑘))‘𝑛)} = (((2nd ‘(1st𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1)))))))
184183, 171chvarv 2262 . . . . . . . . . 10 ((𝑘𝑆𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑘))‘𝑛)} = (((2nd ‘(1st𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1)))))
1859, 184sylan 488 . . . . . . . . 9 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑘))‘𝑛)} = (((2nd ‘(1st𝑘)) “ (1...𝑛)) ∖ ((2nd ‘(1st𝑘)) “ (1...(𝑛 − 1)))))
186117, 172, 1853eqtr4d 2665 . . . . . . . 8 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → {((2nd ‘(1st𝑧))‘𝑛)} = {((2nd ‘(1st𝑘))‘𝑛)})
187 fvex 6168 . . . . . . . . 9 ((2nd ‘(1st𝑧))‘𝑛) ∈ V
188187sneqr 4346 . . . . . . . 8 ({((2nd ‘(1st𝑧))‘𝑛)} = {((2nd ‘(1st𝑘))‘𝑛)} → ((2nd ‘(1st𝑧))‘𝑛) = ((2nd ‘(1st𝑘))‘𝑛))
189186, 188syl 17 . . . . . . 7 ((((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) ∧ 𝑛 ∈ (1...𝑁)) → ((2nd ‘(1st𝑧))‘𝑛) = ((2nd ‘(1st𝑘))‘𝑛))
19026, 40, 189eqfnfvd 6280 . . . . . 6 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (2nd ‘(1st𝑧)) = (2nd ‘(1st𝑘)))
191 xpopth 7167 . . . . . . . 8 (((1st𝑧) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) ∧ (1st𝑘) ∈ (((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})) → (((1st ‘(1st𝑧)) = (1st ‘(1st𝑘)) ∧ (2nd ‘(1st𝑧)) = (2nd ‘(1st𝑘))) ↔ (1st𝑧) = (1st𝑘)))
19216, 30, 191syl2an 494 . . . . . . 7 ((𝑧𝑆𝑘𝑆) → (((1st ‘(1st𝑧)) = (1st ‘(1st𝑘)) ∧ (2nd ‘(1st𝑧)) = (2nd ‘(1st𝑘))) ↔ (1st𝑧) = (1st𝑘)))
193192ad2antlr 762 . . . . . 6 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (((1st ‘(1st𝑧)) = (1st ‘(1st𝑘)) ∧ (2nd ‘(1st𝑧)) = (2nd ‘(1st𝑘))) ↔ (1st𝑧) = (1st𝑘)))
19412, 190, 193mpbi2and 955 . . . . 5 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (1st𝑧) = (1st𝑘))
195 eqtr3 2642 . . . . . 6 (((2nd𝑧) = 0 ∧ (2nd𝑘) = 0) → (2nd𝑧) = (2nd𝑘))
196195adantl 482 . . . . 5 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (2nd𝑧) = (2nd𝑘))
197 xpopth 7167 . . . . . . 7 ((𝑧 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) ∧ 𝑘 ∈ ((((0..^𝐾) ↑𝑚 (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁))) → (((1st𝑧) = (1st𝑘) ∧ (2nd𝑧) = (2nd𝑘)) ↔ 𝑧 = 𝑘))
19814, 28, 197syl2an 494 . . . . . 6 ((𝑧𝑆𝑘𝑆) → (((1st𝑧) = (1st𝑘) ∧ (2nd𝑧) = (2nd𝑘)) ↔ 𝑧 = 𝑘))
199198ad2antlr 762 . . . . 5 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → (((1st𝑧) = (1st𝑘) ∧ (2nd𝑧) = (2nd𝑘)) ↔ 𝑧 = 𝑘))
200194, 196, 199mpbi2and 955 . . . 4 (((𝜑 ∧ (𝑧𝑆𝑘𝑆)) ∧ ((2nd𝑧) = 0 ∧ (2nd𝑘) = 0)) → 𝑧 = 𝑘)
201200ex 450 . . 3 ((𝜑 ∧ (𝑧𝑆𝑘𝑆)) → (((2nd𝑧) = 0 ∧ (2nd𝑘) = 0) → 𝑧 = 𝑘))
202201ralrimivva 2967 . 2 (𝜑 → ∀𝑧𝑆𝑘𝑆 (((2nd𝑧) = 0 ∧ (2nd𝑘) = 0) → 𝑧 = 𝑘))
203 fveq2 6158 . . . 4 (𝑧 = 𝑘 → (2nd𝑧) = (2nd𝑘))
204203eqeq1d 2623 . . 3 (𝑧 = 𝑘 → ((2nd𝑧) = 0 ↔ (2nd𝑘) = 0))
205204rmo4 3386 . 2 (∃*𝑧𝑆 (2nd𝑧) = 0 ↔ ∀𝑧𝑆𝑘𝑆 (((2nd𝑧) = 0 ∧ (2nd𝑘) = 0) → 𝑧 = 𝑘))
206202, 205sylibr 224 1 (𝜑 → ∃*𝑧𝑆 (2nd𝑧) = 0)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 384   = wceq 1480  wcel 1987  {cab 2607  wne 2790  wral 2908  ∃*wrmo 2911  {crab 2912  csb 3519  cdif 3557  cun 3558  cin 3559  c0 3897  ifcif 4064  {csn 4155   class class class wbr 4623  cmpt 4683   × cxp 5082  ccnv 5083  cima 5087  Fun wfun 5851   Fn wfn 5852  wf 5853  ontowfo 5855  1-1-ontowf1o 5856  cfv 5857  (class class class)co 6615  𝑓 cof 6860  1st c1st 7126  2nd c2nd 7127  𝑚 cmap 7817  cc 9894  cr 9895  0cc0 9896  1c1 9897   + caddc 9899   < clt 10034  cle 10035  cmin 10226  cn 10980  0cn0 11252  cz 11337  cuz 11647  ...cfz 12284  ..^cfzo 12422
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4741  ax-sep 4751  ax-nul 4759  ax-pow 4813  ax-pr 4877  ax-un 6914  ax-cnex 9952  ax-resscn 9953  ax-1cn 9954  ax-icn 9955  ax-addcl 9956  ax-addrcl 9957  ax-mulcl 9958  ax-mulrcl 9959  ax-mulcom 9960  ax-addass 9961  ax-mulass 9962  ax-distr 9963  ax-i2m1 9964  ax-1ne0 9965  ax-1rid 9966  ax-rnegex 9967  ax-rrecex 9968  ax-cnre 9969  ax-pre-lttri 9970  ax-pre-lttrn 9971  ax-pre-ltadd 9972  ax-pre-mulgt0 9973
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2913  df-rex 2914  df-reu 2915  df-rmo 2916  df-rab 2917  df-v 3192  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-pss 3576  df-nul 3898  df-if 4065  df-pw 4138  df-sn 4156  df-pr 4158  df-tp 4160  df-op 4162  df-uni 4410  df-iun 4494  df-br 4624  df-opab 4684  df-mpt 4685  df-tr 4723  df-eprel 4995  df-id 4999  df-po 5005  df-so 5006  df-fr 5043  df-we 5045  df-xp 5090  df-rel 5091  df-cnv 5092  df-co 5093  df-dm 5094  df-rn 5095  df-res 5096  df-ima 5097  df-pred 5649  df-ord 5695  df-on 5696  df-lim 5697  df-suc 5698  df-iota 5820  df-fun 5859  df-fn 5860  df-f 5861  df-f1 5862  df-fo 5863  df-f1o 5864  df-fv 5865  df-riota 6576  df-ov 6618  df-oprab 6619  df-mpt2 6620  df-of 6862  df-om 7028  df-1st 7128  df-2nd 7129  df-wrecs 7367  df-recs 7428  df-rdg 7466  df-er 7702  df-map 7819  df-en 7916  df-dom 7917  df-sdom 7918  df-pnf 10036  df-mnf 10037  df-xr 10038  df-ltxr 10039  df-le 10040  df-sub 10228  df-neg 10229  df-nn 10981  df-n0 11253  df-z 11338  df-uz 11648  df-fz 12285  df-fzo 12423
This theorem is referenced by:  poimirlem18  33098  poimirlem21  33101
  Copyright terms: Public domain W3C validator