Let x0 of type ι be given.
Let x1 of type ι be given.
Apply H0 with
λ x2 . struct_r (BinReln_exp x2 x1).
Let x2 of type ι be given.
Let x3 of type ι → ι → ο be given.
Apply H1 with
λ x4 . struct_r (BinReln_exp (pack_r x2 x3) x4).
Let x4 of type ι be given.
Let x5 of type ι → ι → ο be given.
Apply unknownprop_96b4efd33e0eab34902b0210050a90e84d3feb02930f35613e1732b2c4e43b01 with
x2,
x3,
x4,
x5,
λ x6 x7 . struct_r x7.
The subproof is completed by applying pack_struct_r_I with
setexp x4 x2,
λ x6 x7 . ∀ x8 . x8 ∈ x2 ⟶ ∀ x9 . x9 ∈ x2 ⟶ x3 x8 x9 ⟶ x5 (ap x6 x8) (ap x7 x9).