Let x be given.
Assume Hx.
Let L and R be given.
Assume HLR HLE HLI1 HLI2 HRE HRI1 HRI2 Hx1e.
We prove the intermediate
claim L0L1:
0 ∈ SNoL 1.
rewrite the current goal using
SNoL_1 (from left to right).
An
exact proof term for the current goal is
In_0_1.
rewrite the current goal using Hx1e (from left to right).
rewrite the current goal using
SNo_eta x Hx (from left to right).
Let w be given.
Assume Hw.
We will
prove w ∈ SNoL x.
Apply HLE w Hw to the current goal.
Let u be given.
Let v be given.
rewrite the current goal using
SNoL_1 (from left to right).
Apply cases_1 v Hv to the current goal.
Apply SNoL_E x Hx u Hu to the current goal.
Assume Hua _ _.
We prove the intermediate
claim L1:
w = u.
rewrite the current goal using Hwuv (from left to right).
Use transitivity with
u * 1 + 0, and
u * 1.
Use f_equal.
Use transitivity with
x * 0 + 0, and
x * 0.
Use f_equal.
We will
prove - u * 0 = 0.
Use transitivity with and
- 0.
An
exact proof term for the current goal is
minus_SNo_0.
An
exact proof term for the current goal is
IHx u (SNoL_SNoS x Hx u Hu).
rewrite the current goal using L1 (from left to right).
An exact proof term for the current goal is Hu.
Let u be given.
Let v be given.
rewrite the current goal using
SNoR_1 (from left to right).
An
exact proof term for the current goal is
EmptyE v Hv.
Let z be given.
Assume Hz.
We will
prove z ∈ SNoR x.
Apply HRE z Hz to the current goal.
Let u be given.
Let v be given.
rewrite the current goal using
SNoR_1 (from left to right).
An
exact proof term for the current goal is
EmptyE v Hv.
Let u be given.
Let v be given.
rewrite the current goal using
SNoL_1 (from left to right).
Apply cases_1 v Hv to the current goal.
Apply SNoR_E x Hx u Hu to the current goal.
Assume Hua _ _.
We prove the intermediate
claim L1:
z = u.
rewrite the current goal using Hzuv (from left to right).
Use transitivity with
u * 1 + 0, and
u * 1.
Use f_equal.
Use transitivity with
x * 0 + 0, and
x * 0.
Use f_equal.
We will
prove - u * 0 = 0.
Use transitivity with and
- 0.
An
exact proof term for the current goal is
minus_SNo_0.
An
exact proof term for the current goal is
IHx u (SNoR_SNoS x Hx u Hu).
rewrite the current goal using L1 (from left to right).
An exact proof term for the current goal is Hu.
Let w be given.
Assume Hw.
Apply SNoL_E x Hx w Hw to the current goal.
Assume Hwa _ _.
rewrite the current goal using Hx1e (from right to left).
We prove the intermediate
claim L1:
w * 1 + x * 0 = w.
Use transitivity with
w * 1 + 0, and
w * 1.
An
exact proof term for the current goal is
IHx w (SNoL_SNoS x Hx w Hw).
We prove the intermediate
claim L2:
x * 1 + w * 0 = x * 1.
Use transitivity with and
x * 1 + 0.
rewrite the current goal using L1 (from right to left).
rewrite the current goal using L2 (from right to left).
An
exact proof term for the current goal is
Hx11 w Hw 0 L0L1.
Let z be given.
Assume Hz.
Apply SNoR_E x Hx z Hz to the current goal.
Assume Hza _ _.
rewrite the current goal using Hx1e (from right to left).
We prove the intermediate
claim L1:
x * 1 + z * 0 = x * 1.
Use transitivity with and
x * 1 + 0.
We prove the intermediate
claim L2:
z * 1 + x * 0 = z.
Use transitivity with
z * 1 + 0, and
z * 1.
An
exact proof term for the current goal is
IHx z (SNoR_SNoS x Hx z Hz).
rewrite the current goal using L2 (from right to left).
rewrite the current goal using L1 (from right to left).
An
exact proof term for the current goal is
Hx14 z Hz 0 L0L1.
∎