-#L1 #L2 #V1 #V2 #W1 #W2 #l #HV1 #HVW1 #HW12 #HW2 #_ #_ #HL12
-elim (snv_fwd_aaa … HV1) -HV1 #A #HV1
-elim (snv_fwd_aaa … HW2) -HW2 #B #HW2
-lapply (ssta_aaa … HV1 … HVW1) -HVW1 #H1
-lapply (lsuba_aaa_trans … HW2 … HL12) #H2
-lapply (aaa_cpcs_mono … HW12 … H1 … H2) -W1 -H2 #H destruct /2 width=3/
+#L1 #L2 #W #V #W1 #V2 #l #HV #HW #_ #_ #_ #IHL12 -W1 -V2
+elim (snv_fwd_aaa … HV) -HV #A #HV
+elim (snv_fwd_aaa … HW) -HW #B #HW
+elim (aaa_inv_cast … HV) #HWA #_
+lapply (lsuba_aaa_trans … HW … IHL12) #HWB
+lapply (aaa_mono … HWB … HWA) -HWB -HWA #H destruct /2 width=3/