Let x0 of type ι be given.
Let x1 of type ι be given.
Let x2 of type (ι → ο) → ο be given.
Apply H0 with
λ x3 x4 . x1 = ap x4 0.
Let x3 of type ι → ι → ο be given.
The subproof is completed by applying tuple_2_0_eq with
x1,
encode_c x1 x2,
λ x4 x5 . x3 x5 x4.