elim (aaa_inv_abst … H) -H #B0 #A #H1 #HU #H2 destruct
lapply (aaa_mono … H1 … HW0) -W0 #H destruct /3 width=4/
| #L #W #T #U #l #_ #_ #HTU #HUW * #B #HW * #A #HT
elim (aaa_inv_abst … H) -H #B0 #A #H1 #HU #H2 destruct
lapply (aaa_mono … H1 … HW0) -W0 #H destruct /3 width=4/
| #L #W #T #U #l #_ #_ #HTU #HUW * #B #HW * #A #HT