Apply ax_hfvadd__ax_hvcom__ax_hvass__ax_hv0cl__ax_hvaddid__ax_hfvmul__ax_hvmulid__ax_hvmulass__ax_hvdistr1__ax_hvdistr2__ax_hvmul0__ax_hfi__ax_his1__ax_his2__ax_his3__ax_his4__ax_hcompl__df_sh with
wceq csh (crab (λ x0 . w3a (wcel c0v (cv x0)) (wss (cima cva (cxp (cv x0) (cv x0))) (cv x0)) (wss (cima csm (cxp cc (cv x0))) (cv x0))) (λ x0 . cpw chil)).
Assume H13:
∀ x0 x1 x2 : ι → ο . ... ⟶ wceq (co (co x0 x1 cva) x2 csp) (co (co x0 x2 csp) (co x1 ... ...) ...).