no goals
ι : Type u_1
ι' : Type ?u.1051657
R : Type u_2
K : Type ?u.1051663
A : Type u_3
A' : Type ?u.1051669
A'' : Type ?u.1051672
V : Type u
V' : Type ?u.1051677
x : ι → A
inst✝⁶ : CommRing R
inst✝⁵ : CommRing A
inst✝⁴ : CommRing A'
inst✝³ : CommRing A''
inst✝² : Algebra R A
inst✝¹ : Algebra R A'
inst✝ : Algebra R A''
a b : R
hx : AlgebraicIndependent R x
r : R
⊢ ↑(mvPolynomialOptionEquivPolynomialAdjoin hx) (↑C r) =
    ↑Polynomial.C (↑(algebraMap R { x_1 // x_1 ∈ adjoin R (range x) }) r)
rw [AlgebraicIndependent.mvPolynomialOptionEquivPolynomialAdjoin_apply, aeval_C,
  IsScalarTower.algebraMap_apply R (MvPolynomial ι R), ← Polynomial.C_eq_algebraMap,
  Polynomial.map_C, RingHom.coe_coe, AlgEquiv.commutes]