(R : Type u_1) →
  [inst : CommSemiring R] →
    (S : Type u_2) →
      [inst_1 : CommSemiring S] →
        (p : ℕ) → [inst_2 : ExpChar R p] → [ExpChar S p] → [inst_4 : Algebra R S] → S →ₛₗ[frobenius R p] S