- lapply (lsubsv_xprs_trans … HL12 … HTU) -HL12 -HTU /2 width=8/
-| #L2 #W #T #U #l #_ #_ #HTU #HWU #IHW #IHT #L1 #HL12
- lapply (IHW … HL12) -IHW #HW
- lapply (IHT … HL12) -IHT #HT
- lapply (lsubsv_ssta_trans … HTU … HL12) -HTU #HTU
- lapply (lsubsv_cpcs_trans … HL12 … HWU) -HL12 -HWU /2 width=4/
+ elim (lsubsv_ssta_trans … HVW … HVl … HL12) -HVW #W1 #HVW1 #HW1
+ lapply (cpcs_cprs_strap1 … HW1 … HW0) -W #HW10
+ lapply (lsubd_da_trans … HVl L1 ?) -HVl /2 width=1 by lsubsv_fwd_lsubd/ #HVl
+ elim (lsubsv_cpds_trans … HTU … HL12) -HTU #X #HTU #H
+ elim (cprs_inv_abst1 … H) -H #W #U2 #HW0 #_ #H destruct
+ lapply (cpcs_cprs_strap1 … HW10 … HW0) -W0 #H
+ elim (cpcs_inv_cprs … H) -H #W0 #HW10 #HW0
+ /4 width=11 by snv_appl, cpds_cprs_trans, cprs_bind/
+| #G #L2 #W #T #U #l #_ #_ #HTl #HTU #HUW #IHW #IHT #L1 #HL12
+ lapply (lsubsv_cpcs_trans … HL12 … HUW) -HUW #HUW
+ elim (lsubsv_ssta_trans … HTU … HTl … HL12) -HTU #U0 #HTU0 #HU0
+ lapply (lsubd_da_trans … HTl L1 ?) -HTl
+ /4 width=5 by lsubsv_fwd_lsubd, snv_cast, cpcs_trans/