| Step | Hyp | Ref
| Expression |
| 1 | | simpr 484 |
. . . . . . . 8
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑥 ∈ (ℤ ↑m 𝑊)) |
| 2 | | zex 12622 |
. . . . . . . . 9
⊢ ℤ
∈ V |
| 3 | | simpll 767 |
. . . . . . . . 9
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑊 ∈ V) |
| 4 | | elmapg 8879 |
. . . . . . . . 9
⊢ ((ℤ
∈ V ∧ 𝑊 ∈ V)
→ (𝑥 ∈ (ℤ
↑m 𝑊)
↔ 𝑥:𝑊⟶ℤ)) |
| 5 | 2, 3, 4 | sylancr 587 |
. . . . . . . 8
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∈ (ℤ ↑m 𝑊) ↔ 𝑥:𝑊⟶ℤ)) |
| 6 | 1, 5 | mpbid 232 |
. . . . . . 7
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑥:𝑊⟶ℤ) |
| 7 | | simplr 769 |
. . . . . . 7
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑅:𝑉⟶𝑊) |
| 8 | | fcompt 7153 |
. . . . . . 7
⊢ ((𝑥:𝑊⟶ℤ ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎)))) |
| 9 | 6, 7, 8 | syl2anc 584 |
. . . . . 6
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎)))) |
| 10 | | fveq1 6905 |
. . . . . . . . . 10
⊢ (𝑏 = 𝑥 → (𝑏‘(𝑅‘𝑎)) = (𝑥‘(𝑅‘𝑎))) |
| 11 | | eqid 2737 |
. . . . . . . . . 10
⊢ (𝑏 ∈ (ℤ
↑m 𝑊)
↦ (𝑏‘(𝑅‘𝑎))) = (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) |
| 12 | | fvex 6919 |
. . . . . . . . . 10
⊢ (𝑥‘(𝑅‘𝑎)) ∈ V |
| 13 | 10, 11, 12 | fvmpt 7016 |
. . . . . . . . 9
⊢ (𝑥 ∈ (ℤ
↑m 𝑊)
→ ((𝑏 ∈ (ℤ
↑m 𝑊)
↦ (𝑏‘(𝑅‘𝑎)))‘𝑥) = (𝑥‘(𝑅‘𝑎))) |
| 14 | 13 | ad2antlr 727 |
. . . . . . . 8
⊢ ((((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) ∧ 𝑎 ∈ 𝑉) → ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥) = (𝑥‘(𝑅‘𝑎))) |
| 15 | 14 | eqcomd 2743 |
. . . . . . 7
⊢ ((((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) ∧ 𝑎 ∈ 𝑉) → (𝑥‘(𝑅‘𝑎)) = ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)) |
| 16 | 15 | mpteq2dva 5242 |
. . . . . 6
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎))) = (𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))) |
| 17 | 9, 16 | eqtrd 2777 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))) |
| 18 | 17 | fveq2d 6910 |
. . . 4
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝐹‘(𝑥 ∘ 𝑅)) = (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) |
| 19 | 18 | mpteq2dva 5242 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) = (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))))) |
| 20 | 19 | 3adant2 1132 |
. 2
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) = (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))))) |
| 21 | | simpl1 1192 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → 𝑊 ∈ V) |
| 22 | | ffvelcdm 7101 |
. . . . . 6
⊢ ((𝑅:𝑉⟶𝑊 ∧ 𝑎 ∈ 𝑉) → (𝑅‘𝑎) ∈ 𝑊) |
| 23 | 22 | 3ad2antl3 1188 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → (𝑅‘𝑎) ∈ 𝑊) |
| 24 | | mzpproj 42748 |
. . . . 5
⊢ ((𝑊 ∈ V ∧ (𝑅‘𝑎) ∈ 𝑊) → (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
| 25 | 21, 23, 24 | syl2anc 584 |
. . . 4
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
| 26 | 25 | ralrimiva 3146 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → ∀𝑎 ∈ 𝑉 (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
| 27 | | mzpsubst 42759 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑎 ∈ 𝑉 (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) ∈ (mzPoly‘𝑊)) |
| 28 | 26, 27 | syld3an3 1411 |
. 2
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) ∈ (mzPoly‘𝑊)) |
| 29 | 20, 28 | eqeltrd 2841 |
1
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) ∈ (mzPoly‘𝑊)) |