Step | Hyp | Ref
| Expression |
1 | | simpr 485 |
. . . . . . . 8
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑥 ∈ (ℤ ↑m 𝑊)) |
2 | | zex 12328 |
. . . . . . . . 9
⊢ ℤ
∈ V |
3 | | simpll 764 |
. . . . . . . . 9
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑊 ∈ V) |
4 | | elmapg 8628 |
. . . . . . . . 9
⊢ ((ℤ
∈ V ∧ 𝑊 ∈ V)
→ (𝑥 ∈ (ℤ
↑m 𝑊)
↔ 𝑥:𝑊⟶ℤ)) |
5 | 2, 3, 4 | sylancr 587 |
. . . . . . . 8
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∈ (ℤ ↑m 𝑊) ↔ 𝑥:𝑊⟶ℤ)) |
6 | 1, 5 | mpbid 231 |
. . . . . . 7
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑥:𝑊⟶ℤ) |
7 | | simplr 766 |
. . . . . . 7
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → 𝑅:𝑉⟶𝑊) |
8 | | fcompt 7005 |
. . . . . . 7
⊢ ((𝑥:𝑊⟶ℤ ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎)))) |
9 | 6, 7, 8 | syl2anc 584 |
. . . . . 6
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎)))) |
10 | | fveq1 6773 |
. . . . . . . . . 10
⊢ (𝑏 = 𝑥 → (𝑏‘(𝑅‘𝑎)) = (𝑥‘(𝑅‘𝑎))) |
11 | | eqid 2738 |
. . . . . . . . . 10
⊢ (𝑏 ∈ (ℤ
↑m 𝑊)
↦ (𝑏‘(𝑅‘𝑎))) = (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) |
12 | | fvex 6787 |
. . . . . . . . . 10
⊢ (𝑥‘(𝑅‘𝑎)) ∈ V |
13 | 10, 11, 12 | fvmpt 6875 |
. . . . . . . . 9
⊢ (𝑥 ∈ (ℤ
↑m 𝑊)
→ ((𝑏 ∈ (ℤ
↑m 𝑊)
↦ (𝑏‘(𝑅‘𝑎)))‘𝑥) = (𝑥‘(𝑅‘𝑎))) |
14 | 13 | ad2antlr 724 |
. . . . . . . 8
⊢ ((((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) ∧ 𝑎 ∈ 𝑉) → ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥) = (𝑥‘(𝑅‘𝑎))) |
15 | 14 | eqcomd 2744 |
. . . . . . 7
⊢ ((((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) ∧ 𝑎 ∈ 𝑉) → (𝑥‘(𝑅‘𝑎)) = ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)) |
16 | 15 | mpteq2dva 5174 |
. . . . . 6
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑎 ∈ 𝑉 ↦ (𝑥‘(𝑅‘𝑎))) = (𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))) |
17 | 9, 16 | eqtrd 2778 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝑥 ∘ 𝑅) = (𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))) |
18 | 17 | fveq2d 6778 |
. . . 4
⊢ (((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑥 ∈ (ℤ ↑m 𝑊)) → (𝐹‘(𝑥 ∘ 𝑅)) = (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) |
19 | 18 | mpteq2dva 5174 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) = (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))))) |
20 | 19 | 3adant2 1130 |
. 2
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) = (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥))))) |
21 | | simpl1 1190 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → 𝑊 ∈ V) |
22 | | ffvelrn 6959 |
. . . . . 6
⊢ ((𝑅:𝑉⟶𝑊 ∧ 𝑎 ∈ 𝑉) → (𝑅‘𝑎) ∈ 𝑊) |
23 | 22 | 3ad2antl3 1186 |
. . . . 5
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → (𝑅‘𝑎) ∈ 𝑊) |
24 | | mzpproj 40559 |
. . . . 5
⊢ ((𝑊 ∈ V ∧ (𝑅‘𝑎) ∈ 𝑊) → (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
25 | 21, 23, 24 | syl2anc 584 |
. . . 4
⊢ (((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) ∧ 𝑎 ∈ 𝑉) → (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
26 | 25 | ralrimiva 3103 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → ∀𝑎 ∈ 𝑉 (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) |
27 | | mzpsubst 40570 |
. . 3
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ ∀𝑎 ∈ 𝑉 (𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎))) ∈ (mzPoly‘𝑊)) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) ∈ (mzPoly‘𝑊)) |
28 | 26, 27 | syld3an3 1408 |
. 2
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑎 ∈ 𝑉 ↦ ((𝑏 ∈ (ℤ ↑m 𝑊) ↦ (𝑏‘(𝑅‘𝑎)))‘𝑥)))) ∈ (mzPoly‘𝑊)) |
29 | 20, 28 | eqeltrd 2839 |
1
⊢ ((𝑊 ∈ V ∧ 𝐹 ∈ (mzPoly‘𝑉) ∧ 𝑅:𝑉⟶𝑊) → (𝑥 ∈ (ℤ ↑m 𝑊) ↦ (𝐹‘(𝑥 ∘ 𝑅))) ∈ (mzPoly‘𝑊)) |