Apply CD_minus_mul_distrL with
Sing 2,
SNo,
minus_SNo,
λ x0 . x0,
add_SNo,
mul_SNo leaving 8 subgoals.
The subproof is completed by applying complex_tag_fresh.
The subproof is completed by applying SNo_minus_SNo.
Let x0 of type ι be given.
The subproof is completed by applying H0.
The subproof is completed by applying SNo_add_SNo.
The subproof is completed by applying SNo_mul_SNo.
The subproof is completed by applying minus_add_SNo_distr.
The subproof is completed by applying mul_SNo_minus_distrR.
The subproof is completed by applying mul_SNo_minus_distrL.