∀ (R : Type u_3) [inst : CommSemiring R] {σ : Type u_1} (A : Type u_2) [inst_1 : CommSemiring A] [inst_2 : Algebra R A],
  (Algebra.TensorProduct.lift (Algebra.ofId A (MvPolynomial σ A)) (MvPolynomial.mapAlgHom (Algebra.ofId R A)) ⋯).comp
      (MvPolynomial.aeval fun s => 1 ⊗ₜ[R] MvPolynomial.X s) =
    AlgHom.id A (MvPolynomial σ A)