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

Theorem poimirlem5 36112
Description: Lemma for poimir 36140 to establish that, for the simplices defined by a walk along the edges of an 𝑁-cube, if the starting vertex is not opposite a given face, it is the earliest vertex of the face on the walk. (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}))))}
poimirlem9.1 (𝜑𝑇𝑆)
poimirlem5.2 (𝜑 → 0 < (2nd𝑇))
Assertion
Ref Expression
poimirlem5 (𝜑 → (𝐹‘0) = (1st ‘(1st𝑇)))
Distinct variable groups:   𝑓,𝑗,𝑡,𝑦   𝜑,𝑗,𝑦   𝑗,𝐹,𝑦   𝑗,𝑁,𝑦   𝑇,𝑗,𝑦   𝜑,𝑡   𝑓,𝐾,𝑗,𝑡   𝑓,𝑁,𝑡   𝑇,𝑓   𝑓,𝐹,𝑡   𝑡,𝑇   𝑆,𝑗,𝑡,𝑦
Allowed substitution hints:   𝜑(𝑓)   𝑆(𝑓)   𝐾(𝑦)

Proof of Theorem poimirlem5
Dummy variable 𝑛 is distinct from all other variables.
StepHypRef Expression
1 poimirlem9.1 . . . 4 (𝜑𝑇𝑆)
2 fveq2 6847 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
32breq2d 5122 . . . . . . . . . . 11 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
43ifbid 4514 . . . . . . . . . 10 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
54csbeq1d 3864 . . . . . . . . 9 (𝑡 = 𝑇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}))))
6 2fveq3 6852 . . . . . . . . . . 11 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
7 2fveq3 6852 . . . . . . . . . . . . . 14 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
87imaeq1d 6017 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
98xpeq1d 5667 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
107imaeq1d 6017 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
1110xpeq1d 5667 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
129, 11uneq12d 4129 . . . . . . . . . . 11 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
136, 12oveq12d 7380 . . . . . . . . . 10 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
1413csbeq2dv 3867 . . . . . . . . 9 (𝑡 = 𝑇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}))))
155, 14eqtrd 2777 . . . . . . . 8 (𝑡 = 𝑇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}))))
1615mpteq2dv 5212 . . . . . . 7 (𝑡 = 𝑇 → (𝑦 ∈ (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})))))
1716eqeq2d 2748 . . . . . 6 (𝑡 = 𝑇 → (𝐹 = (𝑦 ∈ (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}))))))
18 poimirlem22.s . . . . . 6 𝑆 = {𝑡 ∈ ((((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}))))}
1917, 18elrab2 3653 . . . . 5 (𝑇𝑆 ↔ (𝑇 ∈ ((((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}))))))
2019simprbi 498 . . . 4 (𝑇𝑆𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
211, 20syl 17 . . 3 (𝜑𝐹 = (𝑦 ∈ (0...(𝑁 − 1)) ↦ if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))))
22 breq1 5113 . . . . . . 7 (𝑦 = 0 → (𝑦 < (2nd𝑇) ↔ 0 < (2nd𝑇)))
23 id 22 . . . . . . 7 (𝑦 = 0 → 𝑦 = 0)
2422, 23ifbieq1d 4515 . . . . . 6 (𝑦 = 0 → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = if(0 < (2nd𝑇), 0, (𝑦 + 1)))
25 poimirlem5.2 . . . . . . 7 (𝜑 → 0 < (2nd𝑇))
2625iftrued 4499 . . . . . 6 (𝜑 → if(0 < (2nd𝑇), 0, (𝑦 + 1)) = 0)
2724, 26sylan9eqr 2799 . . . . 5 ((𝜑𝑦 = 0) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = 0)
2827csbeq1d 3864 . . . 4 ((𝜑𝑦 = 0) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = 0 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
29 c0ex 11156 . . . . . . 7 0 ∈ V
30 oveq2 7370 . . . . . . . . . . . . 13 (𝑗 = 0 → (1...𝑗) = (1...0))
31 fz10 13469 . . . . . . . . . . . . 13 (1...0) = ∅
3230, 31eqtrdi 2793 . . . . . . . . . . . 12 (𝑗 = 0 → (1...𝑗) = ∅)
3332imaeq2d 6018 . . . . . . . . . . 11 (𝑗 = 0 → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ ∅))
3433xpeq1d 5667 . . . . . . . . . 10 (𝑗 = 0 → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ ∅) × {1}))
35 oveq1 7369 . . . . . . . . . . . . . 14 (𝑗 = 0 → (𝑗 + 1) = (0 + 1))
36 0p1e1 12282 . . . . . . . . . . . . . 14 (0 + 1) = 1
3735, 36eqtrdi 2793 . . . . . . . . . . . . 13 (𝑗 = 0 → (𝑗 + 1) = 1)
3837oveq1d 7377 . . . . . . . . . . . 12 (𝑗 = 0 → ((𝑗 + 1)...𝑁) = (1...𝑁))
3938imaeq2d 6018 . . . . . . . . . . 11 (𝑗 = 0 → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (1...𝑁)))
4039xpeq1d 5667 . . . . . . . . . 10 (𝑗 = 0 → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
4134, 40uneq12d 4129 . . . . . . . . 9 (𝑗 = 0 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ ∅) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})))
42 ima0 6034 . . . . . . . . . . . . 13 ((2nd ‘(1st𝑇)) “ ∅) = ∅
4342xpeq1i 5664 . . . . . . . . . . . 12 (((2nd ‘(1st𝑇)) “ ∅) × {1}) = (∅ × {1})
44 0xp 5735 . . . . . . . . . . . 12 (∅ × {1}) = ∅
4543, 44eqtri 2765 . . . . . . . . . . 11 (((2nd ‘(1st𝑇)) “ ∅) × {1}) = ∅
4645uneq1i 4124 . . . . . . . . . 10 ((((2nd ‘(1st𝑇)) “ ∅) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = (∅ ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
47 uncom 4118 . . . . . . . . . 10 (∅ ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}) ∪ ∅)
48 un0 4355 . . . . . . . . . 10 ((((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}) ∪ ∅) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})
4946, 47, 483eqtri 2769 . . . . . . . . 9 ((((2nd ‘(1st𝑇)) “ ∅) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})
5041, 49eqtrdi 2793 . . . . . . . 8 (𝑗 = 0 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
5150oveq2d 7378 . . . . . . 7 (𝑗 = 0 → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})))
5229, 51csbie 3896 . . . . . 6 0 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
53 elrabi 3644 . . . . . . . . . . . . . . 15 (𝑇 ∈ {𝑡 ∈ ((((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...𝑁)))
5453, 18eleq2s 2856 . . . . . . . . . . . . . 14 (𝑇𝑆𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
551, 54syl 17 . . . . . . . . . . . . 13 (𝜑𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)))
56 xp1st 7958 . . . . . . . . . . . . 13 (𝑇 ∈ ((((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) × (0...𝑁)) → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
5755, 56syl 17 . . . . . . . . . . . 12 (𝜑 → (1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}))
58 xp2nd 7959 . . . . . . . . . . . 12 ((1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
5957, 58syl 17 . . . . . . . . . . 11 (𝜑 → (2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)})
60 fvex 6860 . . . . . . . . . . . 12 (2nd ‘(1st𝑇)) ∈ V
61 f1oeq1 6777 . . . . . . . . . . . 12 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
6260, 61elab 3635 . . . . . . . . . . 11 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
6359, 62sylib 217 . . . . . . . . . 10 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
64 f1ofo 6796 . . . . . . . . . 10 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
6563, 64syl 17 . . . . . . . . 9 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
66 foima 6766 . . . . . . . . 9 ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
6765, 66syl 17 . . . . . . . 8 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
6867xpeq1d 5667 . . . . . . 7 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}) = ((1...𝑁) × {0}))
6968oveq2d 7378 . . . . . 6 (𝜑 → ((1st ‘(1st𝑇)) ∘f + (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
7052, 69eqtrid 2789 . . . . 5 (𝜑0 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
7170adantr 482 . . . 4 ((𝜑𝑦 = 0) → 0 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
7228, 71eqtrd 2777 . . 3 ((𝜑𝑦 = 0) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
73 poimir.0 . . . . 5 (𝜑𝑁 ∈ ℕ)
74 nnm1nn0 12461 . . . . 5 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
7573, 74syl 17 . . . 4 (𝜑 → (𝑁 − 1) ∈ ℕ0)
76 0elfz 13545 . . . 4 ((𝑁 − 1) ∈ ℕ0 → 0 ∈ (0...(𝑁 − 1)))
7775, 76syl 17 . . 3 (𝜑 → 0 ∈ (0...(𝑁 − 1)))
78 ovexd 7397 . . 3 (𝜑 → ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})) ∈ V)
7921, 72, 77, 78fvmptd 6960 . 2 (𝜑 → (𝐹‘0) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
80 ovexd 7397 . . 3 (𝜑 → (1...𝑁) ∈ V)
81 xp1st 7958 . . . . 5 ((1st𝑇) ∈ (((0..^𝐾) ↑m (1...𝑁)) × {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)}) → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
8257, 81syl 17 . . . 4 (𝜑 → (1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)))
83 elmapfn 8810 . . . 4 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)) Fn (1...𝑁))
8482, 83syl 17 . . 3 (𝜑 → (1st ‘(1st𝑇)) Fn (1...𝑁))
85 fnconstg 6735 . . . 4 (0 ∈ V → ((1...𝑁) × {0}) Fn (1...𝑁))
8629, 85mp1i 13 . . 3 (𝜑 → ((1...𝑁) × {0}) Fn (1...𝑁))
87 eqidd 2738 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) = ((1st ‘(1st𝑇))‘𝑛))
8829fvconst2 7158 . . . 4 (𝑛 ∈ (1...𝑁) → (((1...𝑁) × {0})‘𝑛) = 0)
8988adantl 483 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (((1...𝑁) × {0})‘𝑛) = 0)
90 elmapi 8794 . . . . . . . 8 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
9182, 90syl 17 . . . . . . 7 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
9291ffvelcdmda 7040 . . . . . 6 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ (0..^𝐾))
93 elfzonn0 13624 . . . . . 6 (((1st ‘(1st𝑇))‘𝑛) ∈ (0..^𝐾) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℕ0)
9492, 93syl 17 . . . . 5 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℕ0)
9594nn0cnd 12482 . . . 4 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℂ)
9695addid1d 11362 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇))‘𝑛) + 0) = ((1st ‘(1st𝑇))‘𝑛))
9780, 84, 86, 84, 87, 89, 96offveq 7646 . 2 (𝜑 → ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})) = (1st ‘(1st𝑇)))
9879, 97eqtrd 2777 1 (𝜑 → (𝐹‘0) = (1st ‘(1st𝑇)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 397   = wceq 1542  wcel 2107  {cab 2714  {crab 3410  Vcvv 3448  csb 3860  cun 3913  c0 4287  ifcif 4491  {csn 4591   class class class wbr 5110  cmpt 5193   × cxp 5636  cima 5641   Fn wfn 6496  wf 6497  ontowfo 6499  1-1-ontowf1o 6500  cfv 6501  (class class class)co 7362  f cof 7620  1st c1st 7924  2nd c2nd 7925  m cmap 8772  0cc0 11058  1c1 11059   + caddc 11061   < clt 11196  cmin 11392  cn 12160  0cn0 12420  ...cfz 13431  ..^cfzo 13574
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-cnex 11114  ax-resscn 11115  ax-1cn 11116  ax-icn 11117  ax-addcl 11118  ax-addrcl 11119  ax-mulcl 11120  ax-mulrcl 11121  ax-mulcom 11122  ax-addass 11123  ax-mulass 11124  ax-distr 11125  ax-i2m1 11126  ax-1ne0 11127  ax-1rid 11128  ax-rnegex 11129  ax-rrecex 11130  ax-cnre 11131  ax-pre-lttri 11132  ax-pre-lttrn 11133  ax-pre-ltadd 11134  ax-pre-mulgt0 11135
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3066  df-rex 3075  df-reu 3357  df-rab 3411  df-v 3450  df-sbc 3745  df-csb 3861  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-om 7808  df-1st 7926  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-er 8655  df-map 8774  df-en 8891  df-dom 8892  df-sdom 8893  df-pnf 11198  df-mnf 11199  df-xr 11200  df-ltxr 11201  df-le 11202  df-sub 11394  df-neg 11395  df-nn 12161  df-n0 12421  df-z 12507  df-uz 12771  df-fz 13432  df-fzo 13575
This theorem is referenced by:  poimirlem12  36119  poimirlem14  36121
  Copyright terms: Public domain W3C validator