Let x0 of type ι → (ι → ι → ο) → ι → ο be given.
Let x1 of type ι be given.
Let x2 of type ι → ο be given.
Apply H0 with
λ x3 . λ x4 : ι → ο . ∃ x5 : ι → ι → ο . and (∀ x6 . prim1 x6 x3 ⟶ 1d55d.. x0 x6 (x5 x6)) (x4 = x0 x3 x5).
Let x3 of type ι be given.
Let x4 of type ι → ι → ο be given.
Assume H1:
∀ x5 . prim1 x5 x3 ⟶ ∃ x6 : ι → ι → ο . and (∀ x7 . prim1 x7 x5 ⟶ 1d55d.. x0 x7 (x6 x7)) (x4 x5 = x0 x5 x6).
Let x5 of type ο be given.
Assume H2:
∀ x6 : ι → ι → ο . and (∀ x7 . prim1 x7 x3 ⟶ 1d55d.. x0 x7 (x6 x7)) (x0 x3 x4 = x0 x3 x6) ⟶ x5.
Apply H2 with
x4.
Apply andI with
∀ x6 . prim1 x6 x3 ⟶ 1d55d.. x0 x6 (x4 x6),
x0 x3 x4 = x0 x3 x4 leaving 2 subgoals.
Let x6 of type ι be given.
Apply exandE_iio with
λ x7 : ι → ι → ο . ∀ x8 . prim1 x8 x6 ⟶ 1d55d.. x0 x8 (x7 x8),
λ x7 : ι → ι → ο . x4 x6 = x0 x6 x7,
1d55d.. x0 x6 (x4 x6) leaving 2 subgoals.
Apply H1 with
x6.
The subproof is completed by applying H3.
Let x7 of type ι → ι → ο be given.
Assume H5: x4 x6 = x0 x6 x7.
Apply H5 with
λ x8 x9 : ι → ο . 1d55d.. x0 x6 x9.
Apply unknownprop_6b9d466c48459997b5943e2bfa8effee1803540eeebe30604246716ec482ccac with
x0,
x6,
x7.
The subproof is completed by applying H4.
Let x6 of type (ι → ο) → (ι → ο) → ο be given.
Assume H3: x6 (x0 x3 x4) (x0 x3 x4).
The subproof is completed by applying H3.