∀ {R : Type u} {K : Type v} {L : Type z} {p : R} [inst : CommRing R] [inst_1 : Field K] [inst_2 : Field L]
  [inst_3 : Algebra K L] [inst_4 : Algebra R L] [inst_5 : Algebra R K] [IsScalarTower R K L] [IsDomain R]
  [IsFractionRing R K] [IsIntegrallyClosed R] {B : PowerBasis K L},
  Prime p →
    IsIntegral R B.gen →
      ∀ {z : L} {Q : Polynomial R},
        (Polynomial.aeval B.gen) Q = p • z → IsIntegral R z → (minpoly R B.gen).IsEisensteinAt (R ∙ p) → p ∣ Q.coeff 0