Let x be given.
Assume Hx Hxneg.
We prove the intermediate
claim Lmx:
SNo (- x).
An exact proof term for the current goal is SNo_minus_SNo x Hx.
We prove the intermediate
claim L1:
0 < - x.
Apply minus_SNo_Lt_contra2 x 0 Hx SNo_0 to the current goal.
rewrite the current goal using minus_SNo_0 (from left to right).
An exact proof term for the current goal is Hxneg.
rewrite the current goal using minus_SNo_0 (from left to right).
An exact proof term for the current goal is L1.
∎