Let x and y be given.
Assume Hx Hy.
We prove the intermediate
claim Lmx:
SNo (- x).
An exact proof term for the current goal is Hx.
We prove the intermediate
claim Lmy:
SNo (- y).
An exact proof term for the current goal is Hy.
We prove the intermediate
claim Lymx:
SNo (y + - x).
An
exact proof term for the current goal is
SNo_add_SNo y (- x) Hy Lmx.
Use f_equal.
We will
prove x + - y = - (y + - x).
We will
prove x + - y = - y + - - x.
We will
prove x + - y = - y + x.
An
exact proof term for the current goal is
add_SNo_com x (- y) Hx Lmy.
∎