have : n.succ - y - 1 ≤ n := by
  have : n.succ - y - 1 = n - y := n.add_sub_add_right 1 y
  rw [this]
  exact n.sub_le y
case negSucc
n x : Nat
y : Nat := x % succ n
⊢ modToNat -[x+1] (succ n) < succ n
case negSucc
n x : Nat
y : Nat := x % succ n
this : succ n - y - 1 ≤ n
⊢ modToNat -[x+1] (succ n) < succ n