Let x0 of type ι be given.

Let x1 of type ι → ο be given.

Let x2 of type ι be given.

Assume H0: prim1 x2 x0.

Assume H1: x1 x2.

Apply unknownprop_7ba3c7fc1a64bc4a0aeed47bd1963f341f970e973cdb65321de4855f8cb88623 with x0, x1, x2, prim1 x2 (1216a.. x0 (λ x3 . x1 x3)).

Assume H2: prim1 x2 (1216a.. x0 x1) ⟶ and (prim1 x2 x0) (x1 x2).

Assume H3: and (prim1 x2 x0) (x1 x2) ⟶ prim1 x2 (1216a.. x0 x1).

Apply H3.

Apply andI with prim1 x2 x0, x1 x2 leaving 2 subgoals.

The subproof is completed by applying H0.

The subproof is completed by applying H1.

■

Proofgold Proof