Proof of Theorem ply1sca
| Step | Hyp | Ref
| Expression |
| 1 | | eqid 2737 |
. . 3
⊢
(PwSer1‘𝑅) = (PwSer1‘𝑅) |
| 2 | 1 | psr1sca 22194 |
. 2
⊢ (𝑅 ∈ 𝑉 → 𝑅 =
(Scalar‘(PwSer1‘𝑅))) |
| 3 | | fvex 6848 |
. . 3
⊢
(Base‘(1o mPoly 𝑅)) ∈ V |
| 4 | | ply1lmod.p |
. . . . 5
⊢ 𝑃 = (Poly1‘𝑅) |
| 5 | 4, 1 | ply1val 22138 |
. . . 4
⊢ 𝑃 =
((PwSer1‘𝑅) ↾s
(Base‘(1o mPoly 𝑅))) |
| 6 | | eqid 2737 |
. . . 4
⊢
(Scalar‘(PwSer1‘𝑅)) =
(Scalar‘(PwSer1‘𝑅)) |
| 7 | 5, 6 | resssca 17267 |
. . 3
⊢
((Base‘(1o mPoly 𝑅)) ∈ V →
(Scalar‘(PwSer1‘𝑅)) = (Scalar‘𝑃)) |
| 8 | 3, 7 | ax-mp 5 |
. 2
⊢
(Scalar‘(PwSer1‘𝑅)) = (Scalar‘𝑃) |
| 9 | 2, 8 | eqtrdi 2788 |
1
⊢ (𝑅 ∈ 𝑉 → 𝑅 = (Scalar‘𝑃)) |