Let x0 of type ο be given.
Apply H0 with
λ x1 x2 x3 x4 . pack_r 0 (λ x5 x6 . False).
Let x1 of type ο be given.
Apply H1 with
λ x2 x3 x4 x5 . 0.
Let x2 of type ο be given.
Apply H2 with
λ x3 x4 x5 x6 x7 x8 . 0.
Let x3 of type ι be given.
Let x4 of type ι be given.
Let x5 of type ι be given.
Let x6 of type ι be given.
Apply unknownprop_9981628fee84bcf70587ffb7933bd9c35042a1a594a2ae21c28e38ea11e09d6a with
90aea.. x3,
90aea.. x4,
BinRelnHom x3 x4 x5,
BinRelnHom x3 x4 x6,
90aea.. (pack_r 0 (λ x7 x8 . False)),
BinRelnHom x4 (pack_r 0 (λ x7 x8 . False)) 0,
struct_comp x3 x4 (pack_r 0 (λ x7 x8 . False)) 0 x5 = struct_comp x3 x4 (pack_r 0 (λ x7 x8 . False)) 0 x6,
∀ x7 . 90aea.. x7 ⟶ ∀ x8 . BinRelnHom x4 x7 x8 ⟶ struct_comp x3 x4 x7 x8 x5 = struct_comp x3 x4 x7 x8 x6 ⟶ and (and (BinRelnHom (pack_r 0 (λ x9 x10 . False)) x7 0) (struct_comp x4 (pack_r 0 (λ x9 x10 . False)) x7 0 0 = x8)) (∀ x9 . BinRelnHom (pack_r 0 (λ x10 x11 . False)) x7 x9 ⟶ struct_comp x4 (pack_r 0 (λ x10 x11 . False)) x7 x9 0 = x8 ⟶ x9 = 0) leaving 8 subgoals.
The subproof is completed by applying H3.
The subproof is completed by applying H4.
The subproof is completed by applying H5.
The subproof is completed by applying H6.
The subproof is completed by applying L7.
Apply unknownprop_db29be70f626d907819defaaafb0849de7b3b2be132ffdec2cf3d6bf6e7f756a with
x4,
pack_r 0 (λ x7 x8 . False) leaving 2 subgoals.
The subproof is completed by applying H4.
The subproof is completed by applying L7.
Apply unknownprop_765d413c5d1a8be896fb2d38fda75f9803185335550bf0cbde813c254ddda463 with
x3,
x4,
pack_r 0 (λ x7 x8 . False),
0,
x6,
λ x7 x8 . struct_comp x3 x4 (pack_r 0 (λ x9 x10 . False)) 0 x5 = x8 leaving 2 subgoals.
The subproof is completed by applying H3.
Apply unknownprop_765d413c5d1a8be896fb2d38fda75f9803185335550bf0cbde813c254ddda463 with
x3,
x4,
pack_r 0 (λ x7 x8 . False),
0,
x5.
The subproof is completed by applying H3.
Let x7 of type ι be given.
Let x8 of type ι be given.