Let x0 of type ι be given.
Let x1 of type ι be given.
Apply H1 with
prim1 x1 x0 leaving 2 subgoals.
The subproof is completed by applying H2.
Apply H2 with
prim1 x1 x0.
Apply FalseE with
empty_p x1 ⟶ prim1 x1 x0.
Apply H0.
The subproof is completed by applying H3.