X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fsubstitution%2Flift_lift.ma;h=30bf8886e2485351bba39599feb160468e373219;hb=fcd30dfead2fbc2889aa993fba0577dce8a90c88;hp=235c4233d1f1fc627ccf5bf7118a73814868c52c;hpb=39e80f80b26e18cf78f805e814ba2f2e8400c1f1;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 235c4233d..30bf8886e 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
@@ -14,12 +14,12 @@
 
 include "Basic_2/substitution/lift.ma".
 
-(* RELOCATION ***************************************************************)
+(* BASIC TERM RELOCATION ****************************************************)
 
 (* Main properies ***********************************************************)
 
 (* Basic_1: was: lift_inj *)
-theorem lift_inj:  ∀d,e,T1,U. ⇧[d,e] T1 ≡ U → ∀T2. ⇧[d,e] T2 ≡ U → T1 = T2.
+theorem lift_inj: ∀d,e,T1,U. ⇧[d,e] T1 ≡ U → ∀T2. ⇧[d,e] T2 ≡ U → T1 = T2.
 #d #e #T1 #U #H elim H -d -e -T1 -U
 [ #k #d #e #X #HX
   lapply (lift_inv_sort2 … HX) -HX //