Proofgold Proof

pf
Let x0 of type ι be given. Let x1 of type (ι → ο) → ο be given. Apply pack_c_0_eq with pack_c x0 x1, x0, x1. Let x2 of type ι → ι → ο be given. Assume H0: x2 (pack_c x0 x1) (pack_c x0 x1). The subproof is completed by applying H0. ■