| λ x0 . and (struct_c x0) (unpack_c_o x0 (λ x1 . λ x2 : (ι → ο) → ο . and (and (and (x2 (λ x3 . x3 ∈ x1)) (∀ x3 x4 : ι → ο . x2 x3 ⟶ x2 x4 ⟶ x2 (λ x5 . and (x3 x5) (x3 x5)))) (∀ x3 : (ι → ο) → ο . (∀ x4 : ι → ο . x3 x4 ⟶ x2 x4) ⟶ x2 (λ x4 . ∀ x5 : ο . (∀ x6 : ι → ο . and (x3 x6) (x6 x4) ⟶ x5) ⟶ x5))) (∀ x3 . x3 ∈ x1 ⟶ ∀ x4 . x4 ∈ x1 ⟶ (x3 = x4 ⟶ ∀ x5 : ο . x5) ⟶ ∀ x5 : ο . (∀ x6 : ι → ο . and (x2 x6) (exactly1of2 (x6 x3) (x6 x4)) ⟶ x5) ⟶ x5))) |
|
|
|
|
|
|
|
|
|
|