lapply (drop_mono … HLK0 … HLK1) -HLK0 #H0 destruct
elim (lstas_inv_lref1 … H2) -H2 * #K #Y #X [3,6: #d ] #HLK #HYX [1,2: #HXT #H0 |3,5: #HXT |4,6: #H1 #H2 ]
lapply (drop_mono … HLK … HLK1) -HLK #H destruct
lapply (drop_mono … HLK0 … HLK1) -HLK0 #H0 destruct
elim (lstas_inv_lref1 … H2) -H2 * #K #Y #X [3,6: #d ] #HLK #HYX [1,2: #HXT #H0 |3,5: #HXT |4,6: #H1 #H2 ]
lapply (drop_mono … HLK … HLK1) -HLK #H destruct