apply lt_irrefl 0 (lt_of_le_of_lt  s1 p2)
case inl.h
a b c : ℤθ
n : ℤ
h : n ≠ 0
p2 : n < 0
s1 : 0 ≤ n
⊢ False

case inr
a b c : ℤθ
n : ℤ
h : n ≠ 0
p2 : n < 0
s2 : Int.toNat (-n) > 0
⊢ 1 ≤ Int.toNat (-n)
case inr
a b c : ℤθ
n : ℤ
h : n ≠ 0
p2 : n < 0
s2 : Int.toNat (-n) > 0
⊢ 1 ≤ Int.toNat (-n)