∀ (R : Type u_1) (S₁ : Type u_2) [inst : CommSemiring R],
  (MvPolynomial.aeval fun o => o.elim (MvPolynomial.C Polynomial.X) MvPolynomial.X).comp
      (MvPolynomial.aevalTower (Polynomial.aeval (MvPolynomial.X none)) fun i => MvPolynomial.X (some i)) =
    AlgHom.id R (MvPolynomial S₁ (Polynomial R))