(* *)
(**************************************************************************)
-include "Basic-2/substitution/ltps.ma".
-include "Basic-2/unfold/tpss.ma".
+include "Basic_2/substitution/ltps.ma".
+include "Basic_2/unfold/tpss.ma".
(* PARTIAL UNFOLD ON LOCAL ENVIRONMENTS *************************************)
]
qed.
-lemma drop_inv_atom2: ∀d,e,L1. L1 [d, e] ≫ ⋆ → L1 = ⋆.
+lemma ldrop_inv_atom2: ∀d,e,L1. L1 [d, e] ≫ ⋆ → L1 = ⋆.
/2 width=5/ qed.
fact ltps_inv_tps22_aux: ∀d,e,L1,L2. L1 [d, e] ≫ L2 → d = 0 → 0 < e →