X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fi_static%2Frexs_length.ma;h=7e0bc2e01188f8ef400087adecec27eaa16394e8;hp=a5c82f9f5a7b78987fe5e4a51bea28ee994da1e5;hb=f308429a0fde273605a2330efc63268b4ac36c99;hpb=87f57ddc367303c33e19c83cd8989cd561f3185b diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_length.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_length.ma index a5c82f9f5..7e0bc2e01 100644 --- a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_length.ma +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_length.ma @@ -20,7 +20,7 @@ include "static_2/i_static/rexs.ma". (* Forward lemmas with length for local environments ************************) (* Basic_2A1: uses: TC_lpx_sn_fwd_length *) -lemma rexs_fwd_length: ∀R,L1,L2,T. L1 ⪤*[R, T] L2 → |L1| = |L2|. +lemma rexs_fwd_length: ∀R,L1,L2,T. L1 ⪤*[R,T] L2 → |L1| = |L2|. #R #L1 #L2 #T #H elim H -L2 [ #L2 #HL12 >(rex_fwd_length … HL12) -HL12 // | #L #L2 #_ #HL2 #IHL1