X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_isi_tls.ma;h=05881cbb5158a7f2b4064f9b82f5475891987553;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=a1cc29b90f7d1528b15fec88b7450168f21d5216;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi_tls.ma index a1cc29b90..05881cbb5 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi_tls.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isi_tls.ma @@ -15,11 +15,11 @@ include "ground/relocation/gr_tls.ma". include "ground/relocation/gr_isi_tl.ma". -(* IDENTITY CONDITION FOR GENERIC RELOCATION MAPS ***********************************************************) +(* IDENTITY CONDITION FOR GENERIC RELOCATION MAPS ***************************) -(* Properties with iterated tail ********************************************) +(* Constructions with gr_tls ************************************************) (*** isid_tls *) -lemma gr_isi_tls (n) (f): 𝐈❪f❫ → 𝐈❪⫱*[n]f❫. +lemma gr_isi_tls (n) (f): 𝐈❪f❫ → 𝐈❪⫰*[n]f❫. #n @(nat_ind_succ … n) -n /3 width=1 by gr_isi_tl/ qed.