Let x0 of type ι be given.
Let x1 of type ι → ο be given.
Apply andI with
Subq (09072.. x0 x1) (472ec.. x0),
∀ x2 . prim1 x2 x0 ⟶ exactly1of2 (prim1 ((λ x3 . 15418.. x3 (91630.. (4ae4a.. 4a7ef..))) x2) (09072.. x0 x1)) (prim1 x2 (09072.. x0 x1)) leaving 2 subgoals.
Let x2 of type ι be given.
Apply unknownprop_b46721c187c37140cbae22d356b00ba89f4126d81d8665e4be15b5a58c78d06f with
1216a.. x0 (λ x3 . x1 x3),
a4c2a.. x0 (λ x3 . not (x1 x3)) (λ x3 . (λ x4 . 15418.. x4 (91630.. (4ae4a.. 4a7ef..))) x3),
x2,
prim1 x2 (472ec.. x0) leaving 3 subgoals.
The subproof is completed by applying H1.
Apply unknownprop_e4362c04e65a765de9cf61045b78be0adc0f9e51a17754420e1088df0891ff67 with
x0,
x1,
x2,
prim1 x2 (472ec.. x0) leaving 2 subgoals.
The subproof is completed by applying H2.
Assume H4: x1 x2.
Apply unknownprop_0b5b61a66a1ed2eb843dbce5c5f6930c63a284fe5e33704d9f0cc564310ec40b with
x0,
94f9e.. x0 (λ x3 . (λ x4 . 15418.. x4 (91630.. (4ae4a.. 4a7ef..))) x3),
x2.
The subproof is completed by applying H3.
Apply unknownprop_e546e9a8cc28c7314a8604ada98e2a83641f2ef6b8078441570ffe037b28d26f with
x0,
λ x3 . not (x1 x3),
λ x3 . (λ x4 . 15418.. x4 (91630.. (4ae4a.. 4a7ef..))) x3,
x2,
prim1 x2 (472ec.. x0) leaving 2 subgoals.
The subproof is completed by applying H2.
Let x3 of type ι be given.
Let x2 of type ι be given.