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

Theorem poimirlem5 35213
 Description: Lemma for poimir 35241 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 6655 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (2nd𝑡) = (2nd𝑇))
32breq2d 5046 . . . . . . . . . . 11 (𝑡 = 𝑇 → (𝑦 < (2nd𝑡) ↔ 𝑦 < (2nd𝑇)))
43ifbid 4450 . . . . . . . . . 10 (𝑡 = 𝑇 → if(𝑦 < (2nd𝑡), 𝑦, (𝑦 + 1)) = if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)))
54csbeq1d 3834 . . . . . . . . 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 6660 . . . . . . . . . . 11 (𝑡 = 𝑇 → (1st ‘(1st𝑡)) = (1st ‘(1st𝑇)))
7 2fveq3 6660 . . . . . . . . . . . . . 14 (𝑡 = 𝑇 → (2nd ‘(1st𝑡)) = (2nd ‘(1st𝑇)))
87imaeq1d 5899 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ (1...𝑗)))
98xpeq1d 5552 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}))
107imaeq1d 5899 . . . . . . . . . . . . 13 (𝑡 = 𝑇 → ((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)))
1110xpeq1d 5552 . . . . . . . . . . . 12 (𝑡 = 𝑇 → (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))
129, 11uneq12d 4094 . . . . . . . . . . 11 (𝑡 = 𝑇 → ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})))
136, 12oveq12d 7163 . . . . . . . . . 10 (𝑡 = 𝑇 → ((1st ‘(1st𝑡)) ∘f + ((((2nd ‘(1st𝑡)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑡)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))))
1413csbeq2dv 3837 . . . . . . . . 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 2833 . . . . . . . 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 5130 . . . . . . 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 2809 . . . . . 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 3633 . . . . 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 500 . . . 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 5037 . . . . . . 7 (𝑦 = 0 → (𝑦 < (2nd𝑇) ↔ 0 < (2nd𝑇)))
23 id 22 . . . . . . 7 (𝑦 = 0 → 𝑦 = 0)
2422, 23ifbieq1d 4451 . . . . . 6 (𝑦 = 0 → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = if(0 < (2nd𝑇), 0, (𝑦 + 1)))
25 poimirlem5.2 . . . . . . 7 (𝜑 → 0 < (2nd𝑇))
2625iftrued 4436 . . . . . 6 (𝜑 → if(0 < (2nd𝑇), 0, (𝑦 + 1)) = 0)
2724, 26sylan9eqr 2855 . . . . 5 ((𝜑𝑦 = 0) → if(𝑦 < (2nd𝑇), 𝑦, (𝑦 + 1)) = 0)
2827csbeq1d 3834 . . . 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 10642 . . . . . . 7 0 ∈ V
30 oveq2 7153 . . . . . . . . . . . . 13 (𝑗 = 0 → (1...𝑗) = (1...0))
31 fz10 12943 . . . . . . . . . . . . 13 (1...0) = ∅
3230, 31eqtrdi 2849 . . . . . . . . . . . 12 (𝑗 = 0 → (1...𝑗) = ∅)
3332imaeq2d 5900 . . . . . . . . . . 11 (𝑗 = 0 → ((2nd ‘(1st𝑇)) “ (1...𝑗)) = ((2nd ‘(1st𝑇)) “ ∅))
3433xpeq1d 5552 . . . . . . . . . 10 (𝑗 = 0 → (((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) = (((2nd ‘(1st𝑇)) “ ∅) × {1}))
35 oveq1 7152 . . . . . . . . . . . . . 14 (𝑗 = 0 → (𝑗 + 1) = (0 + 1))
36 0p1e1 11765 . . . . . . . . . . . . . 14 (0 + 1) = 1
3735, 36eqtrdi 2849 . . . . . . . . . . . . 13 (𝑗 = 0 → (𝑗 + 1) = 1)
3837oveq1d 7160 . . . . . . . . . . . 12 (𝑗 = 0 → ((𝑗 + 1)...𝑁) = (1...𝑁))
3938imaeq2d 5900 . . . . . . . . . . 11 (𝑗 = 0 → ((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) = ((2nd ‘(1st𝑇)) “ (1...𝑁)))
4039xpeq1d 5552 . . . . . . . . . 10 (𝑗 = 0 → (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
4134, 40uneq12d 4094 . . . . . . . . 9 (𝑗 = 0 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ ∅) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})))
42 ima0 5916 . . . . . . . . . . . . 13 ((2nd ‘(1st𝑇)) “ ∅) = ∅
4342xpeq1i 5549 . . . . . . . . . . . 12 (((2nd ‘(1st𝑇)) “ ∅) × {1}) = (∅ × {1})
44 0xp 5617 . . . . . . . . . . . 12 (∅ × {1}) = ∅
4543, 44eqtri 2821 . . . . . . . . . . 11 (((2nd ‘(1st𝑇)) “ ∅) × {1}) = ∅
4645uneq1i 4089 . . . . . . . . . 10 ((((2nd ‘(1st𝑇)) “ ∅) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = (∅ ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
47 uncom 4083 . . . . . . . . . 10 (∅ ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = ((((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}) ∪ ∅)
48 un0 4301 . . . . . . . . . 10 ((((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}) ∪ ∅) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})
4946, 47, 483eqtri 2825 . . . . . . . . 9 ((((2nd ‘(1st𝑇)) “ ∅) × {1}) ∪ (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})
5041, 49eqtrdi 2849 . . . . . . . 8 (𝑗 = 0 → ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0})) = (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
5150oveq2d 7161 . . . . . . 7 (𝑗 = 0 → ((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})))
5229, 51csbie 3865 . . . . . 6 0 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}))
53 elrabi 3624 . . . . . . . . . . . . . . 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 2908 . . . . . . . . . . . . . 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 7716 . . . . . . . . . . . . 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 7717 . . . . . . . . . . . 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 6668 . . . . . . . . . . . 12 (2nd ‘(1st𝑇)) ∈ V
61 f1oeq1 6587 . . . . . . . . . . . 12 (𝑓 = (2nd ‘(1st𝑇)) → (𝑓:(1...𝑁)–1-1-onto→(1...𝑁) ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁)))
6260, 61elab 3616 . . . . . . . . . . 11 ((2nd ‘(1st𝑇)) ∈ {𝑓𝑓:(1...𝑁)–1-1-onto→(1...𝑁)} ↔ (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
6359, 62sylib 221 . . . . . . . . . 10 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁))
64 f1ofo 6606 . . . . . . . . . 10 ((2nd ‘(1st𝑇)):(1...𝑁)–1-1-onto→(1...𝑁) → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
6563, 64syl 17 . . . . . . . . 9 (𝜑 → (2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁))
66 foima 6578 . . . . . . . . 9 ((2nd ‘(1st𝑇)):(1...𝑁)–onto→(1...𝑁) → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
6765, 66syl 17 . . . . . . . 8 (𝜑 → ((2nd ‘(1st𝑇)) “ (1...𝑁)) = (1...𝑁))
6867xpeq1d 5552 . . . . . . 7 (𝜑 → (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0}) = ((1...𝑁) × {0}))
6968oveq2d 7161 . . . . . 6 (𝜑 → ((1st ‘(1st𝑇)) ∘f + (((2nd ‘(1st𝑇)) “ (1...𝑁)) × {0})) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
7052, 69syl5eq 2845 . . . . 5 (𝜑0 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
7170adantr 484 . . . 4 ((𝜑𝑦 = 0) → 0 / 𝑗((1st ‘(1st𝑇)) ∘f + ((((2nd ‘(1st𝑇)) “ (1...𝑗)) × {1}) ∪ (((2nd ‘(1st𝑇)) “ ((𝑗 + 1)...𝑁)) × {0}))) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
7228, 71eqtrd 2833 . . 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 11944 . . . . 5 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
7573, 74syl 17 . . . 4 (𝜑 → (𝑁 − 1) ∈ ℕ0)
76 0elfz 13019 . . . 4 ((𝑁 − 1) ∈ ℕ0 → 0 ∈ (0...(𝑁 − 1)))
7775, 76syl 17 . . 3 (𝜑 → 0 ∈ (0...(𝑁 − 1)))
78 ovexd 7180 . . 3 (𝜑 → ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})) ∈ V)
7921, 72, 77, 78fvmptd 6762 . 2 (𝜑 → (𝐹‘0) = ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})))
80 ovexd 7180 . . 3 (𝜑 → (1...𝑁) ∈ V)
81 xp1st 7716 . . . . 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 8430 . . . 4 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)) Fn (1...𝑁))
8482, 83syl 17 . . 3 (𝜑 → (1st ‘(1st𝑇)) Fn (1...𝑁))
85 fnconstg 6549 . . . 4 (0 ∈ V → ((1...𝑁) × {0}) Fn (1...𝑁))
8629, 85mp1i 13 . . 3 (𝜑 → ((1...𝑁) × {0}) Fn (1...𝑁))
87 eqidd 2799 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) = ((1st ‘(1st𝑇))‘𝑛))
8829fvconst2 6953 . . . 4 (𝑛 ∈ (1...𝑁) → (((1...𝑁) × {0})‘𝑛) = 0)
8988adantl 485 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (((1...𝑁) × {0})‘𝑛) = 0)
90 elmapi 8429 . . . . . . . 8 ((1st ‘(1st𝑇)) ∈ ((0..^𝐾) ↑m (1...𝑁)) → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
9182, 90syl 17 . . . . . . 7 (𝜑 → (1st ‘(1st𝑇)):(1...𝑁)⟶(0..^𝐾))
9291ffvelrnda 6838 . . . . . 6 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ (0..^𝐾))
93 elfzonn0 13097 . . . . . 6 (((1st ‘(1st𝑇))‘𝑛) ∈ (0..^𝐾) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℕ0)
9492, 93syl 17 . . . . 5 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℕ0)
9594nn0cnd 11965 . . . 4 ((𝜑𝑛 ∈ (1...𝑁)) → ((1st ‘(1st𝑇))‘𝑛) ∈ ℂ)
9695addid1d 10847 . . 3 ((𝜑𝑛 ∈ (1...𝑁)) → (((1st ‘(1st𝑇))‘𝑛) + 0) = ((1st ‘(1st𝑇))‘𝑛))
9780, 84, 86, 84, 87, 89, 96offveq 7423 . 2 (𝜑 → ((1st ‘(1st𝑇)) ∘f + ((1...𝑁) × {0})) = (1st ‘(1st𝑇)))
9879, 97eqtrd 2833 1 (𝜑 → (𝐹‘0) = (1st ‘(1st𝑇)))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 399   = wceq 1538   ∈ wcel 2111  {cab 2776  {crab 3110  Vcvv 3442  ⦋csb 3830   ∪ cun 3881  ∅c0 4246  ifcif 4428  {csn 4528   class class class wbr 5034   ↦ cmpt 5114   × cxp 5521   “ cima 5526   Fn wfn 6327  ⟶wf 6328  –onto→wfo 6330  –1-1-onto→wf1o 6331  ‘cfv 6332  (class class class)co 7145   ∘f cof 7398  1st c1st 7682  2nd c2nd 7683   ↑m cmap 8407  0cc0 10544  1c1 10545   + caddc 10547   < clt 10682   − cmin 10877  ℕcn 11643  ℕ0cn0 11903  ...cfz 12905  ..^cfzo 13048 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5158  ax-sep 5171  ax-nul 5178  ax-pow 5235  ax-pr 5299  ax-un 7454  ax-cnex 10600  ax-resscn 10601  ax-1cn 10602  ax-icn 10603  ax-addcl 10604  ax-addrcl 10605  ax-mulcl 10606  ax-mulrcl 10607  ax-mulcom 10608  ax-addass 10609  ax-mulass 10610  ax-distr 10611  ax-i2m1 10612  ax-1ne0 10613  ax-1rid 10614  ax-rnegex 10615  ax-rrecex 10616  ax-cnre 10617  ax-pre-lttri 10618  ax-pre-lttrn 10619  ax-pre-ltadd 10620  ax-pre-mulgt0 10621 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3444  df-sbc 3723  df-csb 3831  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4247  df-if 4429  df-pw 4502  df-sn 4529  df-pr 4531  df-tp 4533  df-op 4535  df-uni 4805  df-iun 4887  df-br 5035  df-opab 5097  df-mpt 5115  df-tr 5141  df-id 5429  df-eprel 5434  df-po 5442  df-so 5443  df-fr 5482  df-we 5484  df-xp 5529  df-rel 5530  df-cnv 5531  df-co 5532  df-dm 5533  df-rn 5534  df-res 5535  df-ima 5536  df-pred 6123  df-ord 6169  df-on 6170  df-lim 6171  df-suc 6172  df-iota 6291  df-fun 6334  df-fn 6335  df-f 6336  df-f1 6337  df-fo 6338  df-f1o 6339  df-fv 6340  df-riota 7103  df-ov 7148  df-oprab 7149  df-mpo 7150  df-of 7400  df-om 7574  df-1st 7684  df-2nd 7685  df-wrecs 7948  df-recs 8009  df-rdg 8047  df-er 8290  df-map 8409  df-en 8511  df-dom 8512  df-sdom 8513  df-pnf 10684  df-mnf 10685  df-xr 10686  df-ltxr 10687  df-le 10688  df-sub 10879  df-neg 10880  df-nn 11644  df-n0 11904  df-z 11990  df-uz 12252  df-fz 12906  df-fzo 13049 This theorem is referenced by:  poimirlem12  35220  poimirlem14  35222
 Copyright terms: Public domain W3C validator