Let x be given.
Assume Hx H1.
Let q be given.
Assume Hq1a Hq1b Hq1c Hq1d.
rewrite the current goal using
minus_SNo_invol q Hq1c (from right to left).
We will
prove - - q = - x.
Use f_equal.
Let k be given.
Assume Hk.
rewrite the current goal using
minus_SNo_invol q Hq1c (from left to right).
rewrite the current goal using
add_SNo_com x q Hx Hq1c (from left to right).
An exact proof term for the current goal is Hq2 k Hk.
∎