Proofgold Proof

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