{R : Type u_1} →
  {S : Type u_2} →
    [inst : CommRing R] →
      [inst_1 : Monoid S] →
        [inst_2 : DistribMulAction S R] → [IsScalarTower S R R] → (f : Polynomial R) → DistribMulAction S (AdjoinRoot f)