include "basic_2/relocation/drops_lexs.ma".
include "basic_2/static/frees_drops.ma".
include "basic_2/static/lsubf_frees.ma".
-include "basic_2/static/lfxs.ma".
+include "basic_2/static/lfxs_fsle.ma".
include "basic_2/rt_transition/cpx_drops.ma".
include "basic_2/rt_transition/cpx_ext.ma".
qed-.
(* Basic_2A1: uses: cpx_frees_trans *)
-lemma cpx_fle_comp: ∀h,G. R_fle_compatible (cpx h G).
+lemma cpx_fsle_comp: ∀h,G. R_fsle_compatible (cpx h G).
#h #G #L #T1 #T2 #HT12
elim (frees_total L T1) #f1 #Hf1
elim (cpx_frees_conf_lexs … Hf1 L … HT12) -HT12
qed-.
(* Basic_2A1: uses: lpx_frees_trans *)
-lemma lfpx_fle_comp: ∀h,G. lfxs_fle_compatible (cpx h G).
+lemma lfpx_fsle_comp: ∀h,G. lfxs_fsle_compatible (cpx h G).
#h #G #L1 #L2 #T * #f1 #Hf1 #HL12
elim (cpx_frees_conf_lexs h … Hf1 … HL12 T) // #f2 #Hf2
lapply (lexs_fwd_length … HL12)