X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_isd_tl.ma;h=43e865131e56014b269b18177aae0020a0e7cad7;hb=8bbe582d87984526f40182c4409cbfd43108cb79;hp=cd5cc230ed07de376897af7cde5876435ec1130e;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_tl.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_tl.ma index cd5cc230e..43e865131 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_tl.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_isd_tl.ma @@ -15,12 +15,12 @@ include "ground/relocation/gr_tl.ma". include "ground/relocation/gr_isd.ma". -(* DIVERGENCE CONDITION FOR GENERIC RELOCATION MAPS ***********************************************************) +(* DIVERGENCE CONDITION FOR GENERIC RELOCATION MAPS *************************) -(* Properties with tail *****************************************************) +(* Constructions with gr_tl *************************************************) (*** isdiv_tl *) -lemma gr_isd_tl (f): 𝛀❪f❫ → 𝛀❪⫱f❫. +lemma gr_isd_tl (f): 𝛀❪f❫ → 𝛀❪⫰f❫. #f cases (gr_map_split_tl f) * #H [ elim (gr_isd_inv_push … H) -H // | /2 width=3 by gr_isd_inv_next/