Let x0 of type ι → (ι → ((ι → ο) → ο) → ο) → ((ι → ο) → ο) → ο be given.
Assume H0:
∀ x1 . ∀ x2 x3 : ι → ((ι → ο) → ο) → ο . (∀ x4 . prim1 x4 x1 ⟶ x2 x4 = x3 x4) ⟶ x0 x1 x2 = x0 x1 x3.
Apply In_ind with
λ x1 . ∀ x2 x3 : ((ι → ο) → ο) → ο . 1d01c.. x0 x1 x2 ⟶ 1d01c.. x0 x1 x3 ⟶ x2 = x3.
Let x1 of type ι be given.
Assume H1:
∀ x2 . prim1 x2 x1 ⟶ ∀ x3 x4 : ((ι → ο) → ο) → ο . 1d01c.. x0 x2 x3 ⟶ 1d01c.. x0 x2 x4 ⟶ x3 = x4.
Let x2 of type ((ι → ο) → ο) → ο be given.
Let x3 of type ((ι → ο) → ο) → ο be given.
Claim L4:
∃ x4 : ι → ((ι → ο) → ο) → ο . and (∀ x5 . prim1 x5 x1 ⟶ 1d01c.. x0 x5 (x4 x5)) (x2 = x0 x1 x4)
Apply unknownprop_70e0b3e19e71633a5089c4fe6e041cdfa72d2379ee60f95f14de305a8bd1bd2c with
x0,
x1,
x2.
The subproof is completed by applying H2.
Claim L5:
∃ x4 : ι → ((ι → ο) → ο) → ο . and (∀ x5 . prim1 x5 x1 ⟶ 1d01c.. x0 x5 (x4 x5)) (x3 = x0 x1 x4)
Apply unknownprop_70e0b3e19e71633a5089c4fe6e041cdfa72d2379ee60f95f14de305a8bd1bd2c with
x0,
x1,
x3.
The subproof is completed by applying H3.
Apply L4 with
x2 = x3.
Let x4 of type ι → ((ι → ο) → ο) → ο be given.
Assume H6:
(λ x5 : ι → ((ι → ο) → ο) → ο . and (∀ x6 . prim1 x6 x1 ⟶ 1d01c.. x0 x6 (x5 x6)) (x2 = x0 x1 x5)) x4.
Apply H6 with
x2 = x3.
Assume H7:
∀ x5 . prim1 x5 x1 ⟶ 1d01c.. x0 x5 (x4 x5).
Assume H8: x2 = x0 x1 x4.
Apply L5 with
x2 = x3.
Let x5 of type ι → ((ι → ο) → ο) → ο be given.
Assume H9:
(λ x6 : ι → ((ι → ο) → ο) → ο . and (∀ x7 . prim1 x7 x1 ⟶ 1d01c.. x0 x7 (x6 x7)) (x3 = x0 x1 x6)) x5.
Apply H9 with
x2 = x3.
Assume H10:
∀ x6 . prim1 x6 x1 ⟶ 1d01c.. x0 x6 (x5 x6).
Assume H11: x3 = x0 x1 x5.
Apply H8 with
λ x6 x7 : ((ι → ο) → ο) → ο . x7 = x3.
Apply H11 with
λ x6 x7 : ((ι → ο) → ο) → ο . x0 x1 x4 = x7.
Apply H0 with
x1,
x4,
x5.
Let x6 of type ι be given.
Apply H1 with
x6,
x4 x6,
x5 x6 leaving 3 subgoals.
The subproof is completed by applying H12.
Apply H7 with
x6.
The subproof is completed by applying H12.
Apply H10 with
x6.
The subproof is completed by applying H12.