Metamath Proof Explorer


Theorem evls1varpw

Description: Univariate polynomial evaluation for subrings maps the exponentiation of a variable to the exponentiation of the evaluated variable. (Contributed by AV, 14-Sep-2019)

Ref Expression
Hypotheses evls1varpw.q ⊢ Q = S evalSub 1 R
evls1varpw.u ⊢ U = S ↾ 𝑠 R
evls1varpw.w ⊢ W = Poly 1 ⁡ U
evls1varpw.g ⊢ G = mulGrp W
evls1varpw.x ⊢ X = var 1 ⁡ U
evls1varpw.b ⊢ B = Base S
evls1varpw.e ⊢ × ˙ = ⋅ G
evls1varpw.s ⊢ φ → S ∈ CRing
evls1varpw.r ⊢ φ → R ∈ SubRing ⁡ S
evls1varpw.n ⊢ φ → N ∈ ℕ 0
Assertion evls1varpw ⊢ φ → Q ⁡ N × ˙ X = N ⋅ mulGrp S ↑ 𝑠 B Q ⁡ X

Proof

Step Hyp Ref Expression
1 evls1varpw.q ⊢ Q = S evalSub 1 R
2 evls1varpw.u ⊢ U = S ↾ 𝑠 R
3 evls1varpw.w ⊢ W = Poly 1 ⁡ U
4 evls1varpw.g ⊢ G = mulGrp W
5 evls1varpw.x ⊢ X = var 1 ⁡ U
6 evls1varpw.b ⊢ B = Base S
7 evls1varpw.e ⊢ × ˙ = ⋅ G
8 evls1varpw.s ⊢ φ → S ∈ CRing
9 evls1varpw.r ⊢ φ → R ∈ SubRing ⁡ S
10 evls1varpw.n ⊢ φ → N ∈ ℕ 0
11 eqid ⊢ Base W = Base W
12 2 subrgring ⊢ R ∈ SubRing ⁡ S → U ∈ Ring
13 5 3 11 vr1cl ⊢ U ∈ Ring → X ∈ Base W
14 9 12 13 3syl ⊢ φ → X ∈ Base W
15 1 2 3 4 6 11 7 8 9 10 14 evls1pw ⊢ φ → Q ⁡ N × ˙ X = N ⋅ mulGrp S ↑ 𝑠 B Q ⁡ X