ℤ →
  Lean.Grind.CommRing.Mon →
    (p : Lean.Grind.CommRing.Poly) →
      Lean.Grind.CommRing.Poly.below (motive := fun p => Lean.Grind.CommRing.Poly → Lean.Grind.CommRing.Poly) p →
        Lean.Grind.CommRing.Poly → Lean.Grind.CommRing.Poly