- contex-free normal forms started

[helm.git] / matita / matita / contribs / lambda_delta / Basic_2 / unfold / ltpss_tpss.ma

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/unfold/ltpss_tpss.ma b/matita/matita/contribs/lambda_delta/Basic_2/unfold/ltpss_tpss.ma
index b8e425e631ab4908119467123776d588344edae6..367093b0a181ff3755302a6b9ab2819f806f01b3 100644 (file)
--- a/matita/matita/contribs/lambda_delta/Basic_2/unfold/ltpss_tpss.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/unfold/ltpss_tpss.ma
@@ -12,8 +12,8 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "Basic-2/unfold/tpss_ltps.ma".
-include "Basic-2/unfold/ltpss.ma".
+include "Basic_2/unfold/tpss_ltps.ma".
+include "Basic_2/unfold/ltpss.ma".
 
 (* PARTIAL UNFOLD ON LOCAL ENVIRONMENTS *************************************)
 
@@ -143,7 +143,7 @@ qed.
 
 (* Advanced forward lemmas **************************************************)
 
-lemma ltpss_fwd_tpsa21: ∀e,K1,I,V1,L2. 0 < e → K1. 𝕓{I} V1 [0, e] ≫* L2 →
+lemma ltpss_fwd_tpss21: ∀e,K1,I,V1,L2. 0 < e → K1. 𝕓{I} V1 [0, e] ≫* L2 →
                         ∃∃K2,V2. K1 [0, e - 1] ≫* K2 & K1 ⊢ V1 [0, e - 1] ≫* V2 &
                                  L2 = K2. 𝕓{I} V2.
 #e #K1 #I #V1 #L2 #He #H @(ltpss_ind … H) -L2