X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fdynamic%2Flsubsv_lstas.ma;h=fa1b25fea1402486f3130047f20cf158e130c2b5;hb=b634a816745cf8a9a7ad14650d088232c8ee1a1a;hp=ee2dea7fa7405abe3bf76c7332e84bf456e437a5;hpb=c60524dec7ace912c416a90d6b926bee8553250b;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lstas.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lstas.ma
index ee2dea7fa..fa1b25fea 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lstas.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lstas.ma
@@ -19,11 +19,11 @@ include "basic_2/dynamic/lsubsv.ma".
 
 (* Properties on nat-iterated static type assignment ************************)
 
-lemma lsubsv_lstas_trans: ∀h,g,G,L2,T,U2,d2. ⦃G, L2⦄ ⊢ T •*[h, d2] U2 →
-                          ∀d1. d2 ≤ d1 → ⦃G, L2⦄ ⊢ T ▪[h, g] d1 →
-                          ∀L1. G ⊢ L1 ⫃¡[h, g] L2 →
+lemma lsubsv_lstas_trans: ∀h,o,G,L2,T,U2,d2. ⦃G, L2⦄ ⊢ T •*[h, d2] U2 →
+                          ∀d1. d2 ≤ d1 → ⦃G, L2⦄ ⊢ T ▪[h, o] d1 →
+                          ∀L1. G ⊢ L1 ⫃¡[h, o] L2 →
                           ∃∃U1. ⦃G, L1⦄ ⊢ T •*[h, d2] U1 & ⦃G, L1⦄ ⊢ U1 ⬌* U2.
-#h #g #G #L2 #T #U #d2 #H elim H -G -L2 -T -U -d2
+#h #o #G #L2 #T #U #d2 #H elim H -G -L2 -T -U -d2
 [ /2 width=3 by ex2_intro/
 | #G #L2 #K2 #V #W #U #i #d2 #HLK2 #_ #HWU #IHVW #d1 #Hd21 #Hd1 #L1 #HL12
   elim (da_inv_lref … Hd1) -Hd1 * #K0 #V0 [| #d0 ] #HK0 #HV0
@@ -56,7 +56,7 @@ lemma lsubsv_lstas_trans: ∀h,g,G,L2,T,U2,d2. ⦃G, L2⦄ ⊢ T •*[h, d2] U2
 | #G #L2 #K2 #V #W #U #i #d2 #HLK2 #_ #HWU #IHVW #d1 #Hd21 #Hd1 #L1 #HL12
   elim (da_inv_lref … Hd1) -Hd1 * #K0 #V0 [| #d0 ] #HK0 #HV0 [| #H1 ]
   lapply (drop_mono … HK0 … HLK2) -HK0 #H2 destruct
-  lapply (le_plus_to_le_r … Hd21) -Hd21 #Hd21
+  lapply (le_plus_to_le_c … Hd21) -Hd21 #Hd21
   elim (lsubsv_drop_O1_trans … HL12 … HLK2) -L2 #Y #H #HLK1
   elim (lsubsv_inv_pair2 … H) -H * #K1
   [ #HK12 #H destruct
@@ -91,8 +91,8 @@ lemma lsubsv_lstas_trans: ∀h,g,G,L2,T,U2,d2. ⦃G, L2⦄ ⊢ T •*[h, d2] U2
 ]
 qed-.
 
-lemma lsubsv_sta_trans: ∀h,g,G,L2,T,U2. ⦃G, L2⦄ ⊢ T •*[h, 1] U2 →
-                        ∀d. ⦃G, L2⦄ ⊢ T ▪[h, g] d+1 →
-                        ∀L1. G ⊢ L1 ⫃¡[h, g] L2 →
+lemma lsubsv_sta_trans: ∀h,o,G,L2,T,U2. ⦃G, L2⦄ ⊢ T •*[h, 1] U2 →
+                        ∀d. ⦃G, L2⦄ ⊢ T ▪[h, o] d+1 →
+                        ∀L1. G ⊢ L1 ⫃¡[h, o] L2 →
                         ∃∃U1. ⦃G, L1⦄ ⊢ T •*[h, 1] U1 & ⦃G, L1⦄ ⊢ U1 ⬌* U2.
 /2 width=7 by lsubsv_lstas_trans/ qed-.