Let x and y be given.
Assume Hx Hy.
Apply Hy to the current goal.
Assume H.
Apply H to the current goal.
Apply SNoR_E x Hx y Hy1 to the current goal.
Assume Hy1a.
Let z be given.
We prove the intermediate
claim Lmx:
SNo (- x).
We prove the intermediate
claim Lmy:
SNo (- y).
We prove the intermediate
claim Lmz:
SNo (- z).
We prove the intermediate
claim Lxx:
SNo (x + x).
An
exact proof term for the current goal is
SNo_add_SNo x x Hx Hx.
We prove the intermediate
claim Lyz:
SNo (y + z).
An
exact proof term for the current goal is
SNo_add_SNo y z Hy2 Hz.
Let w be given.
Assume Hw.
Apply SNoR_E x Hx w Hw to the current goal.
Assume Hw1 _ _.
An exact proof term for the current goal is Hw1.
An exact proof term for the current goal is Hy.
We prove the intermediate
claim L2:
- x < - z.
We prove the intermediate
claim L3:
- y + - z < - x + - x.
Let w be given.
Assume H.
Apply H to the current goal.
Apply SNoR_E (- z) Lmz w Hw to the current goal.
We prove the intermediate
claim Lmw:
SNo (- w).
We use
(- w) to
witness the existential quantifier.
Apply andI to the current goal.
Apply ReplI to the current goal.
An exact proof term for the current goal is Hw.
We will
prove y + - w = x + x.
rewrite the current goal using
minus_SNo_invol (x + x) Lxx (from right to left).
We will
prove y + - w = - - (x + x).
rewrite the current goal using H3 (from right to left).
We will
prove y + - w = - (- y + w).
We will
prove y + - w = - - y + - w.
Use reflexivity.
∎