rwa [Nat.sub_add_cancel h5] at h7
case h.refine_1.inr
s : ℕ → ℤ
hs : ∀ (i : ℕ), s i < s (i + 1)
z : ℤ
hs0 : s 0 < z
hmono : StrictMono s
S : Set ℕ := {i | z ≤ s (i + 1)}
h3 : ∃ j, j ∈ S
h4 : Nat.find h3 - 1 < Nat.find h3 → Nat.find h3 - 1 ∉ S
h5 : Nat.find h3 > 0
h6 : Nat.find h3 - 1 < Nat.find h3
h7 : s (Nat.find h3 - 1 + 1) < z
⊢ s (Nat.find h3) < z
no goals