diff --git a/src/Init/Grind/Ordered/Field.lean b/src/Init/Grind/Ordered/Field.lean
index 440417d483..649a7c6207 100644
--- a/src/Init/Grind/Ordered/Field.lean
+++ b/src/Init/Grind/Ordered/Field.lean
@@ -185,4 +185,54 @@ theorem mul_le_mul_iff_of_neg_left {a b c : R} (h : c < 0) : c * a ≤ c * b ↔
 
 end Field.IsOrdered
 
+theorem Field.zero_lt_one [Field α] [LinearOrder α] [Ring.IsOrdered α] : (0 : α) < 1 := by
+  cases LinearOrder.trichotomy (0:α) 1
+  next => assumption
+  next h =>
+    cases h
+    next => have := Field.zero_ne_one (α := α); contradiction
+    next h =>
+      have := Ring.IsOrdered.mul_pos_of_neg_of_neg h h
+      simp [Semiring.one_mul] at this
+      assumption
+
+theorem Field.minus_one_lt_zero [Field α] [LinearOrder α] [Ring.IsOrdered α] : (-1 : α) < 0 := by
+  have h := Field.zero_lt_one (α := α)
+  have := IntModule.IsOrdered.add_lt_left h (-1)
+  rw [Semiring.zero_add, Ring.add_neg_cancel] at this
+  assumption
+
+theorem ofNat_nonneg [Field α] [LinearOrder α] [Ring.IsOrdered α] (x : Nat) : (OfNat.ofNat x : α) ≥ 0 := by
+  induction x
+  next => simp [OfNat.ofNat, Zero.zero]; apply Preorder.le_refl
+  next n ih =>
+    have := Field.zero_lt_one (α := α)
+    rw [Semiring.ofNat_succ]
+    replace ih := IntModule.IsOrdered.add_le_left ih 1
+    rw [Semiring.zero_add] at ih
+    have := Preorder.lt_of_lt_of_le this ih
+    exact Preorder.le_of_lt this
+
+instance [Field α] [LinearOrder α] [Ring.IsOrdered α] : IsCharP α 0 where
+  ofNat_eq_zero_iff := by
+    intro x
+    simp only [Nat.mod_zero]; constructor
+    next =>
+      intro h
+      cases x
+      next => rfl
+      next x =>
+        rw [Semiring.ofNat_succ] at h
+        replace h := congrArg (· - 1) h; simp at h
+        rw [Ring.sub_eq_add_neg, Semiring.add_assoc, Ring.add_neg_cancel,
+            Ring.sub_eq_add_neg, Semiring.zero_add, Semiring.add_zero] at h
+        have h₁ : (OfNat.ofNat x : α) < 0 := by
+          have := Field.minus_one_lt_zero (α := α)
+          rw [h]; assumption
+        have h₂ := ofNat_nonneg (α := α) x
+        have : (0 : α) < 0 := Preorder.lt_of_le_of_lt h₂ h₁
+        simp
+        exact (Preorder.lt_irrefl 0) this
+    next => intro h; rw [OfNat.ofNat, h]; rfl
+
 end Lean.Grind
diff --git a/tests/lean/run/grind_field_div.lean b/tests/lean/run/grind_field_div.lean
index 78081e80f7..91dc4cd9d7 100644
--- a/tests/lean/run/grind_field_div.lean
+++ b/tests/lean/run/grind_field_div.lean
@@ -62,6 +62,10 @@ example [Field α] {sqrtTwo a b c : α} :
       9 * sqrtTwo / 32 * (a ^ 2 + b ^ 2 + c ^ 2) ^ 2 := by
   grind
 
+-- The following example should not split on `2 = 0` because a linear ordered field has
+-- characteristic zero.
+#guard_msgs (trace) in
+set_option trace.grind.split true in
 example [Field α] [LinearOrder α] [Ring.IsOrdered α] (x y z : α)
     : x > 0 → y > 0 → z > 0 → x * y * z ≥ 1 →
       (x ^ 2 - y * z) / (x ^ 2 + y ^ 2 + z ^ 2) + (y ^ 2 - z * x) / (y ^ 2 + z ^ 2 + x ^ 2) +