Let x0 of type ι be given.
Let x1 of type ι → ι → ι be given.
Assume H0: ∀ x2 . x2 ∈ x0 ⟶ ∀ x3 . x3 ∈ x0 ⟶ x1 x2 x3 ∈ x0.
Assume H1:
∀ x2 . x2 ∈ x0 ⟶ bij x0 x0 (λ x3 . x1 x2 x3).
Assume H2:
∀ x2 . x2 ∈ x0 ⟶ bij x0 x0 (λ x3 . x1 x3 x2).
Apply andI with
struct_b (pack_b x0 x1),
unpack_b_o (pack_b x0 x1) (λ x2 . λ x3 : ι → ι → ι . and (∀ x4 . x4 ∈ x2 ⟶ bij x2 x2 (λ x5 . x3 x4 x5)) (∀ x4 . x4 ∈ x2 ⟶ bij x2 x2 (λ x5 . x3 x5 x4))) leaving 2 subgoals.
Apply pack_struct_b_I with
x0,
x1.
The subproof is completed by applying H0.
Apply unknownprop_b2167d2837715e11967d084f35fa508acd069640c7a7c47aa3f84dfcaa1371b5 with
x0,
x1,
λ x2 x3 : ο . x3.
Apply andI with
∀ x2 . x2 ∈ x0 ⟶ bij x0 x0 (λ x3 . x1 x2 x3),
∀ x2 . x2 ∈ x0 ⟶ bij x0 x0 (λ x3 . x1 x3 x2) leaving 2 subgoals.
The subproof is completed by applying H1.
The subproof is completed by applying H2.