X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fetc%2Flsuby%2Flsuby_lsuby.etc;h=ff914eca7477cf7f4639aec609ec38de1ae3b4b4;hb=0fea4ed429678c3293027cfe76fdbe15cfa331cb;hp=24361d3c07f408eaa9bbb3318097b010db1add46;hpb=8a5a354c9ac3ef20ca01dbeb61f6b99902f172a7;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/etc/lsuby/lsuby_lsuby.etc b/matita/matita/contribs/lambdadelta/basic_2/etc/lsuby/lsuby_lsuby.etc
index 24361d3c0..ff914eca7 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/etc/lsuby/lsuby_lsuby.etc
+++ b/matita/matita/contribs/lambdadelta/basic_2/etc/lsuby/lsuby_lsuby.etc
@@ -12,21 +12,21 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "basic_2/relocation/lsuby.ma".
+include "basic_2/substitution/lsuby.ma".
 
 (* LOCAL ENVIRONMENT REFINEMENT FOR EXTENDED SUBSTITUTION *******************)
 
 (* Main properties **********************************************************)
 
-theorem lsuby_trans: ∀d,e. Transitive … (lsuby d e).
-#d #e #L1 #L2 #H elim H -L1 -L2 -d -e
-[ #L1 #d #e #X #H lapply (lsuby_inv_atom1 … H) -H
+theorem lsuby_trans: ∀l,m. Transitive … (lsuby l m).
+#l #m #L1 #L2 #H elim H -L1 -L2 -l -m
+[ #L1 #l #m #X #H lapply (lsuby_inv_atom1 … H) -H
   #H destruct //
 | #I1 #I2 #L1 #L #V1 #V #_ #IHL1 #X #H elim (lsuby_inv_zero1 … H) -H //
   * #I2 #L2 #V2 #HL2 #H destruct /3 width=1 by lsuby_zero/
-| #I1 #I2 #L1 #L2 #V #e #_ #IHL1 #X #H elim (lsuby_inv_pair1 … H) -H //
+| #I1 #I2 #L1 #L2 #V #m #_ #IHL1 #X #H elim (lsuby_inv_pair1 … H) -H //
   * #I2 #L2 #HL2 #H destruct /3 width=1 by lsuby_pair/
-| #I1 #I2 #L1 #L2 #V1 #V2 #d #e #_ #IHL1 #X #H elim (lsuby_inv_succ1 … H) -H //
+| #I1 #I2 #L1 #L2 #V1 #V2 #l #m #_ #IHL1 #X #H elim (lsuby_inv_succ1 … H) -H //
   * #I2 #L2 #V2 #HL2 #H destruct /3 width=1 by lsuby_succ/
 ]
 qed-.