Let x0 of type ι be given.
Let x1 of type ι be given.
Apply RealsStruct_mult_zero_inv with
x0,
x1,
x1,
x1 = field4 x0 leaving 6 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H1.
The subproof is completed by applying H1.
The subproof is completed by applying H2.
The subproof is completed by applying H3.
The subproof is completed by applying H3.