have l : y ≤ x - y * z := le_tsub_of_add_le_left h
x y z✝ z : ℕ
h : y * z + y ≤ x
k : y * z ≤ x
⊢ (x - y * Nat.succ z) % y = x % y
x y z✝ z : ℕ
h : y * z + y ≤ x
k : y * z ≤ x
l : y ≤ x - y * z
⊢ (x - y * Nat.succ z) % y = x % y