simp at *
case mp.negSucc
R : Type u
inst : CommRing R
p : ℕ
inst_1 : IsDomain R
hp : 1 < p
a✝ : ℕ
a : natAbs -[a✝+1] % p = 0
⊢ (match -[a✝+1], ↑p with
    | ofNat m, ofNat n => ofNat (m % n)
    | ofNat m, -[n+1] => ofNat (m % Nat.succ n)
    | -[m+1], ofNat n => -ofNat (Nat.succ m % n)
    | -[m+1], -[n+1] => -ofNat (Nat.succ m % Nat.succ n)) =
    0
case mp.negSucc
R : Type u
inst : CommRing R
p : ℕ
inst_1 : IsDomain R
hp : 1 < p
a✝ : ℕ
a : Nat.succ a✝ % p = 0
⊢ ↑p ∣ ↑a✝ + 1