X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fi_static%2Ftc_lfxs_length.ma;h=8280cd80c2d31a54d44012789fce57b662e196cd;hb=5c186c72f508da0849058afeecc6877cd9ed6303;hp=414acd7da728319823cf453dc062be29e718290e;hpb=58ea181757dce19b875b2f5a224fe193b2263004;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_length.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_length.ma
index 414acd7da..8280cd80c 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_length.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/i_static/tc_lfxs_length.ma
@@ -20,7 +20,7 @@ include "basic_2/i_static/tc_lfxs.ma".
 (* Forward lemmas with length for local environments ************************)
 
 (* Basic_2A1: uses: TC_lpx_sn_fwd_length *)
-lemma tc_lfxs_fwd_length: ∀R,L1,L2,T. L1 ⦻**[R, T] L2 → |L1| = |L2|.
+lemma tc_lfxs_fwd_length: ∀R,L1,L2,T. L1 ⪤**[R, T] L2 → |L1| = |L2|.
 #R #L1 #L2 #T #H elim H -L2
 [ #L2 #HL12 >(lfxs_fwd_length … HL12) -HL12 //
 | #L #L2 #_ #HL2 #IHL1