X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_ist_tls.ma;h=e6da8edd37a31b7b40f6a38384fc69f2d34a82a5;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=1dcf5c5cf5a9ac0ac93f4987384cc87332d91bd0;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_ist_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_ist_tls.ma index 1dcf5c5cf..e6da8edd3 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_ist_tls.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_ist_tls.ma @@ -15,12 +15,12 @@ include "ground/relocation/gr_tls.ma". include "ground/relocation/gr_ist.ma". -(* TOTALITY CONDITION FOR GENERIC RELOCATION MAPS ***********************************************************) +(* TOTALITY CONDITION FOR GENERIC RELOCATION MAPS ***************************) -(* Properties on tls ********************************************************) +(* Constructions with gr_tls ************************************************) (*** istot_tls *) -lemma gr_ist_tls (n) (f): 𝐓❪f❫ → 𝐓❪⫱*[n]f❫. +lemma gr_ist_tls (n) (f): 𝐓❪f❫ → 𝐓❪⫰*[n]f❫. #n @(nat_ind_succ … n) -n // #n #IH #f #Hf