+lemma fsle_lifts_dx (L1) (L2):
+ |L1| ≤ |L2| → ∀T2,U2. ⬆*[1]T2 ≘ U2 →
+ ∀T1. ⦃L1,T1⦄ ⊆ ⦃L2,T2⦄ → ⦃L1,T1⦄ ⊆ ⦃L2.ⓧ,U2⦄.
+#L1 #L2 #HL21 #T2 #U2 #HTU2 #T1
+* #n #m #f #g #Hf #Hg #H2L #Hfg
+lapply (lveq_length_fwd_sn … H2L ?) // -HL21 #H destruct
+lapply (frees_lifts_SO (Ⓣ) (L2.ⓧ) … HTU2 … Hg)
+[ /3 width=4 by drops_refl, drops_drop/ ] -T2 #Hg
+@(ex4_4_intro … Hf Hg) /2 width=4 by lveq_void_dx/ (**) (* explict constructor *)
+qed-.
+