X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fsubstitution%2Flift_lift.ma;h=727d486d4dfd4e978620ef2c530d71db4685b0c6;hb=78d4844bcccb3deb58a3179151c3045298782b18;hp=74edd2ea2df078c4b82a9e55ea87bd6de029dbf6;hpb=a8c166f1e1baeeae04553058bd179420ada8bbe7;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/basic_2/substitution/lift_lift.ma b/matita/matita/contribs/lambda_delta/basic_2/substitution/lift_lift.ma
index 74edd2ea2..727d486d4 100644
--- a/matita/matita/contribs/lambda_delta/basic_2/substitution/lift_lift.ma
+++ b/matita/matita/contribs/lambda_delta/basic_2/substitution/lift_lift.ma
@@ -69,7 +69,7 @@ theorem lift_div_le: ∀d1,e1,T1,T. ⇧[d1, e1] T1 ≡ T →
 ]
 qed.
 
-(* Note: apparently this was missing in Basic_1 *)
+(* Note: apparently this was missing in basic_1 *)
 theorem lift_div_be: ∀d1,e1,T1,T. ⇧[d1, e1] T1 ≡ T →
                      ∀e,e2,T2. ⇧[d1 + e, e2] T2 ≡ T →
                      e ≤ e1 → e1 ≤ e + e2 →
@@ -198,3 +198,12 @@ theorem lift_trans_ge: ∀d1,e1,T1,T. ⇧[d1, e1] T1 ≡ T →
   elim (IHT12 … HT20 ?) -IHT12 -HT20 // /3 width=5/
 ]
 qed.
+
+(* Advanced properties ******************************************************)
+
+lemma lift_conf_le: ∀T,T1,d. ⇧[O, d] T ≡ T1 → ∀T2,e. ⇧[O, d + e] T ≡ T2 →
+                    ⇧[d, e] T1 ≡ T2.
+#T #T1 #d #HT1 #T2 #e #HT2
+elim (lift_split … HT2 d d ? ? ?) -HT2 // #X #H
+>(lift_mono … H … HT1) -T //
+qed.