Step | Hyp | Ref
| Expression |
1 | | simpr 484 |
. . . . . . . 8
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑥 ∈ (ℤ ↑m 𝑊)) |
2 | | zex 12258 |
. . . . . . . . 9
⊢ ℤ
∈ V |
3 | | simpll 763 |
. . . . . . . . 9
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑊 ∈ V) |
4 | | elmapg 8586 |
. . . . . . . . 9
⊢ ((ℤ
∈ V ∧ 𝑊 ∈ V)
→ (𝑥 ∈ (ℤ
↑m 𝑊)
↔ 𝑥:𝑊⟶ℤ)) |
5 | 2, 3, 4 | sylancr 586 |
. . . . . . . 8
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∈ (ℤ ↑m 𝑊) ↔ 𝑥:𝑊⟶ℤ)) |
6 | 1, 5 | mpbid 231 |
. . . . . . 7
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑥:𝑊⟶ℤ) |
7 | | simplr 765 |
. . . . . . 7
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑅:𝑉⟶𝑊) |
8 | | fcompt 6987 |
. . . . . . 7
⊢ ((𝑥:𝑊⟶ℤ ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎)))) |
9 | 6, 7, 8 | syl2anc 583 |
. . . . . 6
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎)))) |
10 | | fveq1 6755 |
. . . . . . . . . 10
⊢ (𝑏 = 𝑥 → (𝑏‘(𝑅‘𝑎)) = (𝑥‘(𝑅‘𝑎))) |
11 | | eqid 2738 |
. . . . . . . . . 10
⊢ (𝑏 ∈ (ℤ
↑m 𝑊)
↦ (𝑏‘(𝑅‘𝑎))) = (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) |
12 | | fvex 6769 |
. . . . . . . . . 10
⊢ (𝑥‘(𝑅‘𝑎)) ∈ V |
13 | 10, 11, 12 | fvmpt 6857 |
. . . . . . . . 9
⊢ (𝑥 ∈ (ℤ
↑m 𝑊)
→ ((𝑏 ∈ (ℤ
↑m 𝑊)
↦ (𝑏‘(𝑅‘𝑎)))‘𝑥) = (𝑥‘(𝑅‘𝑎))) |
14 | 13 | ad2antlr 723 |
. . . . . . . 8
⊢ ((((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) ∧ 𝑎 ∈ 𝑉) → ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥) = (𝑥‘(𝑅‘𝑎))) |
15 | 14 | eqcomd 2744 |
. . . . . . 7
⊢ ((((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) ∧ 𝑎 ∈ 𝑉) → (𝑥‘(𝑅‘𝑎)) = ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)) |
16 | 15 | mpteq2dva 5170 |
. . . . . 6
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎))) = (𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))) |
17 | 9, 16 | eqtrd 2778 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))) |
18 | 17 | fveq2d 6760 |
. . . 4
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝐹‘(𝑥 ∘ 𝑅)) = (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) |
19 | 18 | mpteq2dva 5170 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) = (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))))) |
20 | 19 | 3adant2 1129 |
. 2
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) = (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))))) |
21 | | simpl1 1189 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → 𝑊 ∈ V) |
22 | | ffvelrn 6941 |
. . . . . 6
⊢ ((𝑅:𝑉⟶𝑊 ∧ 𝑎 ∈ 𝑉) → (𝑅‘𝑎) ∈ 𝑊) |
23 | 22 | 3ad2antl3 1185 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → (𝑅‘𝑎) ∈ 𝑊) |
24 | | mzpproj 40475 |
. . . . 5
⊢ ((𝑊 ∈ V ∧ (𝑅‘𝑎) ∈ 𝑊) → (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
25 | 21, 23, 24 | syl2anc 583 |
. . . 4
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
26 | 25 | ralrimiva 3107 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → ∀𝑎 ∈ 𝑉 (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
27 | | mzpsubst 40486 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑎 ∈ 𝑉 (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) ∈ (mzPoly‘𝑊)) |
28 | 26, 27 | syld3an3 1407 |
. 2
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) ∈ (mzPoly‘𝑊)) |
29 | 20, 28 | eqeltrd 2839 |
1
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) ∈ (mzPoly‘𝑊)) |